C DLL in Delphi nutzen - AnsiString übergeben

[moelski]

Moin !

Ich habe hier nen Kollegen der versucht gerade eine C DLL zu proggen die ich dann in Delphi einbinden kann.
Selber habe ich auch eine TestDLL geschrieben die ich problemlos nutzen kann:

Delphi-Quellcode:

Const DeviceName = 'Junsi iCharge 1010B+';

...

Function GetDeviceName : AnsiString;
begin
  GetDeviceName := DeviceName;
end;

Das ist mal der wichtigstes Teil meiner Dll. Und das würden wir gerne in C machen ...

Mein Kollege versucht nun einen AnsiString an meine Anwendung zu geben. Aber das klappt leider nicht.
Kann jemand einen Tip geben wie man in C die DLL proggen müsste um der Delphi Anwendung eben einen AnsiString zu übergeben?

[DeddyH]

Lasst doch besser einen PAnsiChar zurückgeben.

[moelski]

Und wie würde das praktisch in Delphi aussehen?
Also wie komme ich irgendwann wieder zu meinem String?

[DeddyH]

Ein einfacher Typecast genügt.

[moelski]

Aber warum eigentlich PAnsiChar?
Müsste das nicht PAnsiString sein ??

[nicodex]

Das Grundproblem ist: Wer gibt den Speicher wieder frei. Also muss es auf C-Seite auch eine Funktion dafür geben, oder man muss sich etwas anderes einfallen lassen: 1) Der Aufrufer (Delphi) stellt den Speicher bereit und übergibt einen Puffer und dessen Größe oder 2) man verwendet Strings, die über eine gemeinsame Schnittstelle verwendet werden können (Delphis WideString ist eine Kapselung des OLE-Strings - auf C-Seite wäre dies ein BSTR (MSVC: _bstr_t) der mit SysAllocStringLen erzeugt werden kann).

[DeddyH]

Wie unter 1) geschildert machen es auch viele API-Funktionen, z.B. ExpandEnvironmentStrings.

[nicodex]

Zu 2)
Versuche auf C-Seite erst gar nicht sowas zu machen:

Code:

BSTR Foo(...)

Ja nach Compiler wird daraus intern unter Umständen:

Code:

void Foo(..., BSTR *AResult)

oder

Code:

void Foo(BSTR *AResult, ...)

Man sollte nur void oder Ordinaltypen zurückgeben:

Code:

void Foo(..., BSTR *AResult)

Code:

DWORD Foo(..., BSTR *AResult)

Code:

HRESULT Foo(..., BSTR *AResult)

[moelski]

Moin !

BSTR fällt wohl generell raus, denn mein Kollege hat kein MSVC sondern normales Ansi C.

Zitat:

1) Der Aufrufer (Delphi) stellt den Speicher bereit und übergibt einen Puffer und dessen Größe oder

Hat jemand mal ein Beispiel wie ich das dann unter Delphi implementieren muss?

[nicodex]

Zitat von moelski:

BSTR fällt wohl generell raus, denn mein Kollege hat kein MSVC sondern normales Ansi C.

BSTR ist nicht Microsoft-Compiler-spezifisch (im Gegensatz zu _bstr_t).
Es ist ein Typ der im Windows-SDK definiert wird (siehe SysAllocStringLen).

Zitat von moelski:

Zitat:

1) Der Aufrufer (Delphi) stellt den Speicher bereit und übergibt einen Puffer und dessen Größe oder

Hat jemand mal ein Beispiel wie ich das dann unter Delphi implementieren muss?

Delphi-Quellcode:

function GetDeviceName(ABuffer: PAnsiChar; ABufferSize: LongWord): LongWord; stdcall;
  external '...' name '...';

Code:

uint32_t __stdcall GetDeviceName(char *a_Buffer, uint32_t a_BufferSize);