WideString aus C++ DLL-Methode an Delphi-Host zurückgeben!?

[MacGyver2k]

Hallo Leute,

ich habe ein Problem beim Rückgabetyp "WideString" aus einer C bzw. C++ DLL heraus.
Es besteht eine Delphi-Infrastruktur für Plugins, welche allerdings bisher ausschließlich auch mit Delphi-DLLs genutzt wurde.
Nun hab ich vor diese auch mit C/C++-DLLs zu füttern.
Geht so weit auch schonmal bei DLL-Methoden mit numerischen Rückgabe-Typen wie Integer und Bool und so weiter.
Bsp (C++):

Delphi-Quellcode:

bool DECLDIR EXTP_IsPlugIn( LPWSTR name )
{      
     return PlugIn.IsPlugIn( name );   
}

Sobal die in Delphi vorliegende Hostanwendung meine DLL lädt und die eben geschriebene Methode aufruft, geht das alles wunderbar so wie es sein soll.
Im Parameter "name" steht entsprechend die erwartete GUID als String - das konnte ich mit dem VS-Debugger prüfen.
Da ich nun hier und da schon gelesen habe, dass ein Delphi-WideString in C äquivalent mit einem LPWSTR ist, habe ich den Parametertyp auch so gewählt.
Das heißt, in diese Richtung funktioniert die Übergabe. Außerdem Kommt auch das BOOL-True in der Hostanwendung an, da die innere Methode bislang immer True zurückliefert.
Wenn ich nun aber eine Methode habe, die nach Anforderung im Delphi-Code einen WideString zurückliefern muss, so kommt absolut garnichts an - zum mindest sieht es aus wie ein leerer Sting "".
Hier mal noch eine Methode, die einen WideString zurückliefern soll (C++):

Delphi-Quellcode:

LPWSTR DECLDIR EXTP_GetPlugInDescription()
{
    return PlugIn.GetPlugInDescription();
}

Wie dem Code zu entnehmen ist, habe ich hier auch schon den Typ auf LPWSTR gesetzt. DECLDIR entsteht folgendermaßen (C++):
#define DECLDIR __declspec(dllexport) Nun stellt sich mir die Frage, wie ich wohl einen String aus C/C++ in eine für Delphi akzeptable WideString-Konforme Variante überführe.
Hier nochmal die Deklaration der entsprechenden DLL-Methode in Delphi:

GetPlugInName = function : WideString; stdcall; Ich würde mich tierisch freuen, wenn jemand hier einen Wink für mich hätte. Sonst muss ich mich nur weiterhin aufregen, dass der Entwickler dieser Pluginverwaltung unbedingt WideStrings nutzen muss, wo ich doch gelesen habe, dass man die grade in DLLs nicht unbedingt nehmen soll, sondern eher PChar, um eben solchen Problemen aus dem Weg zu gehen.

Vielen Dank an euch schonmal!!!
Grüße, MacGyver2k

[Bernhard Geyer]

Ich denke du wirst hier mit StringToOleStr arbeiten müssen um einen COM-String zu bekommen der nicht mehr unter der Speicherverwaltung von Delphi steht.

[himitsu]

Eigentlich braucht er in C nur den COM- / OLE-String verwalten
und Delphi macht dieses automatisch, bei Verwendung des WideString

SysAllocStringLen
SysReAllocStringLen
SysFreeString
SysStringLen

Delphi kapselt diese Befehle im WideString und dort wird alles nur an die WinAPI der oleaut32.dll weitergereicht.


Ich weiß jetzt nicht ob C dafür eventuell eine Klasse oder sowas hat, welches dieses auch schon kapselt, aber er braucht die Funktionen dann in C nur als LPWSTR bzw. BSTR deklarieren, deren Inhalt in C über die oben genannten Funktionen verwalten und in Delphi an gleicher Stelle der Funktionen alles einfach als WideString definieren.

etwa so:

Code:

bool DECLDIR EXTP_IsPlugIn( BSTR name )

Delphi-Quellcode:

function EXTP_IsPlugIn(const name: WideString): LongBool; stdcall;
// oder 
function EXTP_IsPlugIn(var name: WideString): LongBool; stdcall;

[add]
war jetzt bool = ByteBool/Boolean und BOOL = LongBool ? wenn ja, dann natürlich anpassen.

[Apollonius]

Bei Strings ist doch const nicht gleich var, oder? Const sollte doch nur bewirken, dass keine Kopie angefertigt wird, und nicht die Übergabe beeinflussen.

Die WideString-Rückgabe dürfte übrigens nicht im EAX-Register erfolgen, sondern über einen versteckten Parameter, also ungefähr so:

Code:

void Foo(LPWSTR* result)

[hathor]

Probier doch einfach das:

GetPlugInName : array [0..xxxx] of WChar;

[himitsu]

Zitat von Apollonius:

Bei Strings ist doch const nicht gleich var, oder?

jupp ... ich wußte nur grad nicht in welche Richtung der Wert übertragen werden sollte ... muß man sich dann nur das Passende (CONST, VAR, OUT oder nix) auswählen und dann verwenden.

Von Seiten der Schnittstelle ist aber CONST und VAR genau gleich,
nur daß bei CONST der Parameterinhalt nicht geändert wird (werden darf)
und bei VAR darf sich der Inhalt ändern kann.

@hathor: bezüglich der Speicherverwaltung könnte man da auch einfach auf PWideChar/LPWSTR umsteigen und Derjenige, welcher die Daten haben möchte übergibt dort einfach den nötigen Puffer (eventuell noch einen "BufferLen"-Parameter mit übergeben und auf der Füllenden Seite prüfen, ob der Puffer auch groß genug ist)

[Apollonius]

Zitat von himitsu:

Von Seiten der Schnittstelle ist aber CONST und VAR genau gleich,
nur daß bei CONST der Parameterinhalt nicht geändert wird (werden darf)
und bei VAR darf sich der Inhalt ändern kann.

Sicher? Das sollte doch eigentlich nur bei Records so sein. Bei Strings ergibt Call-By-Const-Reference ja keinen Vorteil.

[himitsu]

für String/AnsiString/WideString/UnicodeString:

CONST, VAR und OUT ist alles call-by-reference

Ohne Angabe (von CONST VAR OUT) ist es zwar ebenfalls call-by-reference, allerdings wird da der Inhalt kopiert bzw. der Referenzzähler erhöht.

Bei einem WideString wird also ohne Angabe eine neue Kopie angelegt,
wärend VAR und CONST nur die Referenz übernehmen.


Ansonsten geben diese (VAR, CONST, OUT und nix) nur an, wie/ob der Parameterinhalt behandelt wird.

[Apollonius]

Das kann nicht sein, Himitsu. Ein var Widestring muss ein Zeiger auf einen PWideChar sein, sonst könntest du in der Routine nichts ändern. Const und fehlende Angabe resultieren hingegen in der Übergabe als PWideChar.

[himitsu]

ach menno, das Wetter ist wohl doch zu schlimm

OK, von der Übergabe ist es doch nicht gleich


also CONST und NIX ist gleich (call-by-const-reference),
sowie VAR und OUT (call-by-var-reference)

aber was die Behandlung der Inhalte angeht, bleibt es unverändert

also dann so?

Delphi-Quellcode:

bool DECLDIR EXTP_IsPlugIn( BSTR name )
function EXTP_IsPlugIn(const name: WideString): Boolean; stdcall;

bool DECLDIR EXTP_IsPlugIn( BSTR* name )
function EXTP_IsPlugIn(var name: WideString): Boolean; stdcall;