Hallo...
ich stelle eine Delphi 5 Anwendung auf Delphi 2010 um.
an einer Stelle habe ich ein Problem.
Ich muss mir einen "String" aus eine
DLL holen. (die
DLL ist älter und KEINE
Unicode DLL)
Der Aufruf ist wie folgt definiert
Procedure CadLayerGetName (hLayer: Integer; szName: Pointer); stdcall; external 'vecad.dll';
In Delphi 5 habe ich das wie folgt gemacht:
procedure xxxx;
var Buf: array[0..128] of Pchar;
begin
CadLayerGetName (lhnd,@buf);
end;
Das klappt natürlich in Delphi 2010 nicht..... aber ich finde auch keinen rechten Ersatz.
Entweder erhalte ich Schrott Zeichen oder mein Prog. stürzt ab.
Grüße J. Richmann
www.JRichmann.de