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

[Sherlock]

Schon PAnsiChar probiert?

Sherlock

[Mikkey]

Zitat von JRichmann:

... of Pchar;

bist Du sicher?

Eigentlich würde ich array of char erwarten.

Das müsste zu array of Byte werden, dann bleibt nur noch, da einen Unicode-String draus zu machen.

[himitsu]

array of AnsiChar , da es so in der alten DLL deklartiert wurde.

Und genau deswegen nimmt man keine dynamischen Typen für derartige Definitionen
> Datenübertragung/-speicherung

Nur AnsiChar, WideChar, aber kein Char, welches sich je nach Compiler oder Zielumgebung unterscheiden kann.

[Sherlock]

Zitat von himitsu:

array of AnsiChar , da es so in der alten DLL deklartiert wurde.

Und genau deswegen nimmt man keine dynamischen Typen für derartige Definitionen
> Datenübertragung/-speicherung

Nur AnsiChar, WideChar, aber kein Char, welches sich je nach Compiler oder Zielumgebung unterscheiden kann.

Ich kann mich an der Stelle nur Wiederholen: Das so ein Schweinkram passiert, konnte man zu Delphi 5 Zeiten nichtmal erahnen.

Sherlock

[himitsu]

Zitat von Sherlock:

Ich kann mich an der Stelle nur Wiederholen: Das so ein Schweinkram passiert, konnte man zu Delphi 5 Zeiten nichtmal erahnen.

Nein ... mindestens seit Delphi 2 oder 3 waren diese Typen als "dynamisch" deklariert und man hätte sich da denken können, daß rein theoretisch mal die Chance bestehht, daß sich da mal etwas ändern kann.

Integer (die wurden ja nun eingefrohren und statdessen in Delphi die Native-Typen eingeführt)
Cardinal
NativeInt
NativeUInt
IntPtr
Pointer und alle sonstigen Zeiger
Char
PChar
String
Real



String[123] ist ein ShotString. Dieser ist ANSI geblieben und es gibt keine UnicodeVersion davon.
Ganz früher (z.B. in Delphi 1) war "String" noch das, was jetzt der ShortString ist ... bis dann die LongStrings (AnsiString, UnicodeString, sowie die von AnsiString abgeleiteten Typen ala UTF8String und RawByteString) eingeführt wurden.

[Sherlock]

...und nur wer den VCL Quellcode rückwärts runterbeten kann, ist ein ernstzunehmender Entwickler. Aber das hier wird OT. Und ich gebe mich geschlagen.



Sherlock

[JRichmann]

Vielen Dank für die vielen Antworten...

ich habe es jetzt mit einem Array of Byte gelöst.
Die Bytes konvertiere ich dann in einen String.

Irgendwie hat alles andere nicht richtig geklappt.

Grüße J. Richmann

www.JRichmann.de