Unicode Problem

[JRichmann]

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