DLL mit PChar D2010

[schwa226]

Hallo,

ich habe nun eine DLL die Solche Parameter übernimmt:
TGetData= function (user,pass : PChar; Out1Str , Out2Str : Pointer ;out1_leng,out2_leng : Integer): integer; stdcall; Wenn ich sie nun so aufrufe:

Delphi-Quellcode:

GetData : TGetData;

..
.
User, Pass : String;

GetData(PChar(User),PChar(Pass),@Out1Str[1],@Out2Str[1],out1_leng,out2_leng);

Dann zeigt mir die Debug Messagebox der DLL bei User & Pass nur den ersten Buchstaben an.

Also nur 'u' statt 'user';

Hat sicher etwas mit Unicode usw zu tun, bekomme es aber einfach nicht hin, dass der ganze String übergeben wird.

[Chris.R]

Hallo,

versuch mal folgendes:

TGetData= function (user,pass : PAnsiChar; Out1Str , Out2Str : Pointer ;out1_leng,out2_leng : Integer): integer; stdcall; und dann so den Aufruf:

Delphi-Quellcode:

GetData : TGetData;

..
.
User, Pass : AnsiString;

GetData(PAnsiChar(User),PAnsiChar(Pass),@Out1Str[1],@Out2Str[1],out1_leng,out2_leng);

Ciao Chris

[sonicus83]

Danke für den Tipp, bei mir hat das geholfen.

Hatte die TAPI32.DLL genutzt und mich gewundert, warum nur die "0" gewählt wird. Als Suchhilfe noch ein paar Begriffe:

tapiRequestMakeCall
TAPI
TAPI32

[himitsu]

TGetData = function(const User, Pass: AnsiString; Out1, Out2: PAnsiChar; Out1_Length, Out2_Length: Integer): Integer; stdcall; Alternativ dürfte auch dieses gehn.

Wobei Pointer absichtlich in PAnsiChar geändert wurde, denn ich denke mal dieses ist auch ein AnsiString oder ein AnsiChar-Array ... so gibt es dort nun eine Warnung, wenn man einen PWideChar dort übergibt.

Und das PAnsiChar zu AnsiString ... hier wird wohl nur gelesen und diesbezüglich sieht ein AnsiString intern wie ein PAnsiChar aus.


Und merke dir Eines: für externe Datenübertagung/-Speicherung nutzt man einfach keine dynamische Typen.

PChar, String, Integer, Cardinal sind systemabhängig (also entsprechend des Compilers) und können sich schnell mal verändern.

Ab D2009 ist PChar ein PWideChar und davor war er ein PAnsiChar.