Указатели на структуру

[Gawwws]

В библиотеке имеется ф-я:

INT32 GetSupportDeviceDescription(Int32 Index, SUPPORT_DEVICE_DESCRIPTION* Description);

в которой Description – указатель на структуру для копирования в неё описания поддерживаемого устройства. Структура выглядит так:

typedef struct
{
INT32 CaptionID;
INT32 DeviceID;
WCHAR* Description;
}
SUPPORT_DEVICE_DESCRIPTION;

CaptionID - идентификатор названия типа.
DeviceID - идентификатор типа.
Description - строка описания типа (максимальная длина строки 255 символов).

В Delphi описал так:

type Tsdd  = record
  CaptionID: integer;
	DeviceID: integer;
	Description: Array [0..255] of WideChar; //Description: PWideChar;
end;

Function GetSupportDeviceDescription(Index: integer; Description: Pointer): integer; cdecl; external 'us.dll';

использую так:

var Des: Tsdd;
      index, i: integer;
......
Index:= 5;
i:= GetSupportDeviceDescription(Index, @Des);
if i = 0 Then ShowMessage(Des.Description));

Ошибка чтения на последней строчке, а если объявить Description.Description как PWideChar, то ошмбка записи в DLL на предпоследней строчке. Что я делаю не так?

[northener]

Сообщение от Gawwws

если объявить Description.Description как PWideChar, то ошмбка записи в DLL на предпоследней строчке

А в этом варианте тоже присутствует собачка?

[Gawwws]

Сообщение от northener

А в этом варианте тоже присутствует собачка?

Ну да, ведь SUPPORT_DEVICE_DESCRIPTION* Description - должен быть указателем!

[northener]

Но PChar (PWideChar) и так уже указатель.

[Gawwws]

Сообщение от northener

Но PChar (PWideChar) и так уже указатель.

Но в описании сказано, что SUPPORT_DEVICE_DESCRIPTION* Description -указатель на структуру, в которой 2 переменные INT32(integer) и типизированый указатель WCHAR*(PWideChar).

Проблема, думаю, при попытке записи библиотекой данных в память указателя PWideChar, но не могу понять почему!

[Gawwws]

Попробовал так:

type Tsdd  = record
  CaptionID: integer;
  DeviceID: integer;
  Description: PWideChar;
end;

type Psdd  = ^Tsdd;

Function GetSupportDeviceDescription(Index: integer; Description: Psdd): integer; cdecl; external 'us.dll';

procedure TForm1.Button2Click(Sender: TObject);
var PDes: Psdd;
    index, rez: integer;
begin
for Index:= 0 to SDCountOll - 1 do begin
  new(PDes);
  rez:= GetSupportDeviceDescription(Index, PDes);
  if rez = 0 Then begin
    ShowMessage(PDes^.Description);
  end;
end;
end;

и всё равно ошибка записи в us.dll!!!

[Filka]

Сообщение от Gawwws

Проблема, думаю, при попытке записи библиотекой данных в память указателя PWideChar, но не могу понять почему!

Потому что указатель не инициализирован, не?

[Gawwws]

Сообщение от Filka

Потому что указатель не инициализирован, не?

А

new(PDes);

[Filka]

type
  TSupportDeviceDescription = record
    CaptionID: Integer;
    DeviceID: Integer;
    Description: PWideChar;
  end;

function GetSupportDeviceDescription(Index: Integer;
  var Description: TSupportDeviceDescription): Integer; cdecl; external 'us.dll';

procedure TForm1.Button1Click(Sender: TObject);
var
  DevDescription: TSupportDeviceDescription;
  Buffer: array[Byte] of WideChar;
begin
  DevDescription.Description := @Buffer[0];
  if GetSupportDeviceDescription(5, DevDescription) = 0 then
    ShowMessage(DevDescription.Description);
end;

[Gawwws]

Сообщение от Filka

type
  TSupportDeviceDescription = record
    CaptionID: Integer;
    DeviceID: Integer;
    Description: PWideChar;
  end;

function GetSupportDeviceDescription(Index: Integer;
  var Description: TSupportDeviceDescription): Integer; cdecl; external 'us.dll';

procedure TForm1.Button1Click(Sender: TObject);
var
  DevDescription: TSupportDeviceDescription;
  Buffer: array[Byte] of WideChar;
begin
  DevDescription.Description := @Buffer[0];
  if GetSupportDeviceDescription(5, DevDescription) = 0 then
    ShowMessage(DevDescription.Description);
end;

Спасибо огромное!!! Заработало!!!

И точно!!! Нужно же инициализировать указатель внутри структуры!!!

DevDescription.Description := @Buffer[0];