Registriert seit: 19. Mai 2003
Ort: Gründau
2.480 Beiträge
Delphi XE7 Architect
|
Re: Dynamisches Array von DLL übergeben
8. Dez 2006, 17:32
Also hier die Lösung (habs ganz alleine rausgefunden  )
Delphi-Quellcode:
Data:=TStringArray(createArray);
zeiger:=Data;
for i:=0 to getArrayCount(zeiger) do
begin
len:=getElement(0, i, 0, zeiger); //hatte vorher "Buffer" im 1. Parameter stehen. Ist falsch!
try
GetMem(Buffer, len+1);
len:=getElement(Buffer, i, len+1, zeiger);
s:=String(Buffer);
finally
FreeMem(Buffer);
Buffer:=nil;
len:=0;
end;
ShowMessage(s);
end;
Bitteschön
und
Dankeschön!
|
|
Zitat
|