Record mit PChars aus DLL befüllen lassen

[DeddyH]

Auszug aus meiner Wrapper-Unit:

Delphi-Quellcode:

procedure FillDataA(Data: PTestDataA); stdcall;
  external 'TestDLL.dll' name 'FillDataA';

procedure FillDataW(Data: PTestDataW); stdcall;
  external 'TestDLL.dll' name 'FillDataW';

procedure FillData(Data: PTestData); stdcall;
  external 'TestDLL.dll' name {$IFDEF UNICODE}'FillDataW'{$ELSE}'FillDataA'{$ENDIF};

procedure ClearDataA(Data: PTestDataA); stdcall;
  external 'TestDLL.dll' name 'ClearDataA';

procedure ClearDataW(Data: PTestDataW); stdcall;
  external 'TestDLL.dll' name 'ClearDataW';

procedure ClearData(Data: PTestData); stdcall;
  external 'TestDLL.dll' name {$IFDEF UNICODE}'ClearDataW'{$ELSE}'ClearDataA'{$ENDIF};