C++ DLL in Delphi einbinden

[shmia]

Zitat von Muetze1:

Kann es sein, das du Speicher für den PChar alloziieren musst? Stichwort StrAlloc()...

Mit Sicherheit muss man das tun.

Delphi-Quellcode:

var
   otrailer : string;
   tr: TRAB;
   erg : integer;
begin
   // record tr mit Daten füllen
   ....
   // Speicher für otrailer anlegen
   SetLength(otrailer, 1000);    // das sollte reichen   

   erg := versacom(tr, PChar(otrailer));  // der Aufruf

   // string otrailer verkürzen bis zum 1. Auftreten von #0
   otrailer := PChar(otrailer);

   // Auswertung von erg nicht vergessen !
end;

[Muetze1]

Moin!

Ich meine ebend nicht diesen TypeCast, da der bei der Weitergabe an die DLL Probleme machen kann (und bei mir auch meistens macht), daher habe ich nicht umsonst auf StrAlloc() verwiesen. Alloziiere den PChar mit StrAlloc()...

MfG
Muetze1

[Stevie]

Das Problem liegt ja in der Sache an sich:
- string[0] gibt ja die Länge des Strings und bracuht somit kein Abschlusszeichen
- bei pchar geht der String bis zum Auftreten des Abschlusszeichens

[shmia]

Zitat von Muetze1:

Ich meine ebend nicht diesen TypeCast, da der bei der Weitergabe an die DLL Probleme machen kann (und bei mir auch meistens macht), daher habe ich nicht umsonst auf StrAlloc() verwiesen. Alloziiere den PChar mit StrAlloc()...

StrAlloc gehört zu den backward compatibility routines.
Dagegen ist die Vorgehensweise, die ich vorgeschlagen habe "Delphi-Like".
Es wird mit SetLength dynamisch Speicher reserviert. Denoch braucht sich der
Programmierer nicht um die Freigabe des Speichers zu kümmern.
Man darf bedenkenlos einen Zeiger auf den reservierten String in eine externe Funktion hineingeben und darauf vertrauen, dass die Funktion auf den Zeiger schreiben darf (solange die Länge nicht überschritten wird).
Allerdings hätte ich vielleicht dazu sagen müssen, dass nur AnsiStrings erlaubt sind:

Delphi-Quellcode:

var 
   otrailer : AnsiString;  // (auch als langer String bezeichnet)