WideString als Rückgabe in COM-Klasse

[almisoft]

Ich habe eine kleine Funktion in einer COM-Klasse, die einen String zurückgeben soll:

Delphi-Quellcode:

function GetLastErrorMessage: WideString; stdcall;

Sobald ich die Methode aber aufrufe, erscheint "Access violation at address ... in module 'RPCRT4.dll'.
Alle anderen Funktionen der COM-Klasse geben HRESULT oder WORDBOOL zurück, da gibt es keine Probleme.
Ich bin nicht so der RPC-Guru, wie kann ich über COM einen String zurückgeben? Wo liegt mein Denkfehler. Vielen Dank.

[Sherlock]

In COM sollten Funktionen immer ein HResult zurückgeben. Strings oder so gibt man als Rückgabeparameter zurück.

Zitat aus Andreas Kosch COM-Buch:

Delphi-Quellcode:

function GetInfo(out RetVal: WideString):HResult; stdcall;
begin
  try
    RetVal := 'Der Text des COM_Objects';
    Result := S_OK;
  except 
    Result := E_UNEXPECTED;
  end;
end;

Edit: Um zu diesem Ergebnis zu kommen reicht es auch, wenn Du Deine Deklaration nicht mit stdcall sondern mit safecall deklarierst.

Delphi-Quellcode:

function GetLastErrorMessage: WideString; safecall;

Sherlock

[almisoft]

supi, vielen Dank!

[almisoft]

Hmm, ich arbeite mit dem TLB-Editor. Dort kann ich zwar einen Parameter auf [out] umstellen, das schlägt sich aber nicht im TLB-Quelltext nieder (der ja automatisch erstellt wird):

Delphi-Quellcode:

function GetLastErrorMessage(const Message: WideString): HResult; stdcall;

Auch habe ich keine Möglichkeit, "safecall" anzugeben.

[Sherlock]

Das ist seltsam.

Im TLB-Editor musst Du aber schon HResult als Rückgabewert angeben. Den String gibst Du als Out-Paramter (noch besser out und Retval) an. Der muss dann noch einen Stern (*) bekommen, damit er als Zeiger gekennzeichnet ist.

Das müsste dann eine Function mit WideString als Rückgabewert und safecall in der TLB ergeben.

Sherlock

[Jeehaa]

Ich weiß der Thread ist schon uralt, aber es passt einfach thematisch.

Ich hab das gleiche Problem wie zuletzte erwähnt. In dem TLB-Editor mache ich alles richtig, aber meine funktion in der Tlb.pas ist später einfahc nicht als safecall deklariert.
was kann man da falsch machen. ich verwende turbo delphi2006

[sirius]

Delphi benutzt safecall nur bei dualen Schnittstellen (Automatisierungsobjekt).

[Jeehaa]

ja, hatte ich eingestellt. hat trotzdem nicht geklappt.
jetzt habe ich dein com+ objekt erstellt, da geht es.
zuvor habe ich ein normale com-obnjekt verwendet, da ging es nicht.
komisch