Langsam hab ich den Schweiß auf der Stirn.
Bisher habe ich eine "externe" DLL die mit IBAN und BIC zurück liefert mit Delphi 2007 einfach per PCHAR ansprechen können.
In den Rückgabe Strings hatte ich dann die richtigen Werte drin.
Seit der Umstellung auf XE2 funktioniert das nicht mehr... Ich habe schon PAnsiString getestet. Irgendwie komm ich da nicht weiter weil ich auch
diese ganze String zu Pointer zusammen mit Unicode nicht so ganz kapiere.
Habe im Netz und im Forum schon gesucht bin aber zu keinem Sinnvollen Ergebnis gekommen.

Für Hilfe wäre ich sehr dankbar!

markieren

Code:

function sevDTA_Init(sInit: PChar): LongInt; stdcall; external 'sevDTA20.DLL';
procedure sevDTA_Close(Handle: LongInt); stdcall; external 'sevDTA20.DLL';
function sevDTA_BLZFileDate(sDatum: PChar): LongInt; stdcall; external 'sevDTA20.DLL';
function sevSEPA_CalcIBAN(sBLZnr, sKto, sBIC, cIBAN : PChar) : LongInt; stdcall; external 'sevDTA20.DLL';

So sah die Deklaration bisher aus.

Angesprochen habe ich es dann so:

markieren

Code:

function Get_CalcIBAN(sBLZnr, sKtonto, sBIC: String): String;
var sIBAN : String;

begin
   cobresult := '';
   SetLength(IBAN, 30);
   IBAN := '                             ';
   SetLength(sBIC, 12);
   sBIC := '           ';

   case sevSEPA_CalcIBAN(StrToDLL(sBlzNr), StrToDLL(sKtonto), StrToDLL(sBic), StrToDLL(sIBAN)) of
      ERR_SEPA_CALCIBAN_ERROR : result := '';
      ERR_SEPA_CALCIBAN_WARNING : Begin result := IBAN;cobresult := sBIC; end;
      ERR_SEPA_CALCIBAN_NOUSAGE: result := '';
      ERR_BLZ_WRONG_FORMAT: result := '';
      ERR_BLZ_KTONR_WRONG: result := '';
      ERR_BLZ_NOT_FOUND: result := '';
   else
   begin
      result := sIBAN;
      cobresult := sBIC;
   end;
   end;
end;

Was muss ich tun damit das in XE2 wieder funktioniert?

DANKE!

Wie sieht StrToDLL() aus?

markieren

Delphi-Quellcode:

function Get_CalcIBAN(sBLZnr, sKtonto, sBIC: AnsString): AnsiString;
...
case sevSEPA_CalcIBAN(PAnsiChar(sBlzNr), PAnsiChar(sKtonto), PAnsiChar(sBic), PAnsiChar(sIBAN)) ...

Außerdem:

markieren

Delphi-Quellcode:

function sevDTA_Init(sInit: PAnsiChar): LongInt; stdcall; external 'sevDTA20.DLL';
procedure sevDTA_Close(Handle: LongInt); stdcall; external 'sevDTA20.DLL';
function sevDTA_BLZFileDate(sDatum: PAnsiChar): LongInt; stdcall; external 'sevDTA20.DLL';
function sevSEPA_CalcIBAN(sBLZnr, sKto, sBIC, cIBAN : PAnsiChar) : LongInt; stdcall; external 'sevDTA20.DLL';

Shit Montag

Aktuell :

markieren

Code:

function StrToDLL(s : String) : PAnsiChar;
begin
  result := PAnsiChar(s);
end;

muss ich jetzt überall AnsiString nehmen anstelle von String ?

Zitat von Supergrobie:

Shit Montag

Aktuell :

markieren

Code:

function StrToDLL(s : String) : PAnsiChar;
begin
  result := PAnsiChar(s);
end;

Wenn schon:

markieren

Delphi-Quellcode:

function StrToDLL(s : String) : PAnsiChar;
begin
  result := PAnsiChar(AnsiString(s));
end;

Oder gleich

markieren

Delphi-Quellcode:

function StrToDLL(s : AnsiString) : PAnsiChar;
begin
  result := PAnsiChar(s);
end;

Alles nicht

Zitat:

markieren

Delphi-Quellcode:

function StrToDLL(s : String) : PAnsiChar;
begin
  result := PAnsiChar(s);
end;

Totaler Schrott und das sollte auch der Debugger bemängeln. (zumindestens ab Delphi 2009)

Zitat:

markieren

Delphi-Quellcode:

function StrToDLL(s : String) : PAnsiChar;
begin
  result := PAnsiChar(AnsiString(s));
end;

Typmäßig OK, aber dennoch Schrott.

Delphi legt hier eine lokale temporäre Variable an, wo der AnsiString reingeht, bevor PAnsiChar darauf angewendet wird.
Und jetzt ratet mal, was mit dieser Variable und deren Speicher bei Funktionsende passiert?

Richtig, der Zeiger ist futsch, da er auf was nicht mehr Existierendes zeigt.

Zitat:

markieren

Delphi-Quellcode:

function StrToDLL(s : AnsiString) : PAnsiChar;
begin
  result := PAnsiChar(s);
end;

Solange man einen AnsiString übergibt und solange man diesen AnsiString nicht mehr verändert und er auch immernoch existiert, kommt das StrToDLL(MyStr) auf ein PAnsiChar(MyStr) hinaus und die Funktion ist "nutzlos", aber benutzbar.

Übergibt man aber einen "anderen" String-Typen, dann war's das wieder und alles ist Schrott. (kann man nur etwas verhindern/eingränzen, indem man es als function StrToDLL(var s : AnsiString) : PAnsiChar; deklariert und so eine AnsiString-Variable als Parameter erzwingt)

Entweder du verwendest AnsiStrings (zumindestens in deiner Funktion), oder castest alles vor Ort PAnsiChar(AnsiString(xxx)) .

Und die Funktions-Header der DLL-Funktionen müssen natürlich auch PAnsiChar sein.
(wenn das nur IN-Parameter sind, dann kann man sie notfalls auch einfach als CONST X: AnsiString deklarieren, da sich im AnsiString auch die PAnsiChar-Struktur versteckt)

Und bei Out-Parametern, muß es sowieso zwingend ein AnsiString sein.

Ah OK! Wieder was gelernt!

Ich lasse den Schrott dann nun weg! Btw. der Compliler meckert nicht...

Aber leider liefert es mir jetzt meinen leeren Mist zurück...
Nachdem ich es dann komplett auf AnsiString umgestellt habe bekomme ich beim Aufruf der DDL Routine einen UAE

markieren

Code:

function Get_CalcIBAN(sBLZnr, sKtonto, sBIC: AnsiString): String;
var sIBAN : AnsiString;

begin
   cobresult := '';
   SetLength(IBAN, 30);
   IBAN := '                            ';
   SetLength(sBIC, 12);
   sBIC := '          ';

   case sevSEPA_CalcIBAN(PAnsiChar(sBlzNr), PAnsiChar(sKtonto), PAnsiChar(sBic), PAnsiChar(sIBAN)) of
      ERR_SEPA_CALCIBAN_ERROR : result := '';
      ERR_SEPA_CALCIBAN_WARNING : Begin result := IBAN;cobresult := sBIC; end;
      ERR_SEPA_CALCIBAN_NOUSAGE: result := '';
      ERR_BLZ_WRONG_FORMAT: result := '';
      ERR_BLZ_KTONR_WRONG: result := '';
      ERR_BLZ_NOT_FOUND: result := '';
   else
   begin
      result := sIBAN;
      cobresult := sBIC;
   end;
   end;
end;

erst nachdem ich diese Zeile weg lasse gehts...

sBIC := ' ';

Danke an Alle die mir die Augen geöffnet haben