C++ Delphi Übersetzung 3DYDYoutube Filter

[Zacherl]

Zitat von Rollo62:

Zitat:

Habe leider auch nicht wirklich Ahnung, wie BSTR* definiert ist (die wäre wichtig),

Hat mich jetzt auch interessiert, was ich hier finde ist allerdings gruselig

Zitat von Fritzew:

Also BSTR ist WideString auf Delphi Seite.

Delphi-Quellcode:

function GetName(index: UINT): WideString; stdcall;
function Test(url: PWideChar; explicitly: BOOL; out canonical_url: WideString): HRESULT; stdcall;

Mhh, schwer zu sagen, was hier stimmt. Ich hatte ein paar Posts zuvor eine andere Definition gefunden. Das WideString kommt mir allerdings sehr komisch vor, da dies ein Delphi Typ mit Ref-Counter und allem drum und dran ist.

So oder so ist der Output Zeiger ja nil . Entsprechend der Dokumentation der Funktion ist das ja in Ordnung, falls S_FALSE zurückgeliefert wird. Jetzt kommt der Knackpunkt:

Zitat von MSDN:

The constants S_OK and S_FALSE are both success codes

Entsprechend liefert das SUCCEEDED() Makro jeweils true zurück. Hier müsstest du also nachher noch explizit auf S_OK oder S_FALSE testen.

[Fritzew]

http://docwiki.embarcadero.com/Libra...tem.WideString

Also wir benutzten dass hier häufig. (gemixte source VS C++ und Delphi)
Das schöne daran, Windows übernimmt die Speicherverwaltung.
Aber: Es ist nicht unbedingt das schnellste.

[Zacherl]

Zitat von Fritzew:

http://docwiki.embarcadero.com/Libra...tem.WideString

Dann hätten wir wohl auch hier jetzt die korrekte Übersetzung

[EWeiss]

Ok Danke euch..
function GetName(index: UINT): PWideChar; stdcall;

Hmm.. bin mir nicht sicher und zwar deshalb weil GetName mir die richtigen werte liefert
Dann gibt es noch den Unterschied BSTR und BSTR*


gruss

[EWeiss]

Zitat:

Dann hätten wir wohl auch hier jetzt die korrekte Übersetzung

Nein ist definitiv PWideChar!

Getestet.

Falsch! liefert leer String zurück.
function GetName(index: UINT): WideString; stdcall;
Richtig!
function GetName(index: UINT): PWideChar; stdcall;

PWideString liefert falsche Werte.


gruss

[EWeiss]

Zitat:

Entsprechend liefert das SUCCEEDED() Makro jeweils true zurück. Hier müsstest du also nachher noch explizit auf S_OK oder S_FALSE testen.

Ich weis jetzt nicht wie du das meinst.

Das tue ich doch.
hr := SupportedSites.Test(PWideChar(MediaFile), false, url);

Die frage die da noch wäre ist das nun eine Procedure oder eine Funktion!

Code:

STDMETHOD(Test)(__in LPCWSTR url, __in BOOL explicitly, __out_opt BSTR* canonical_url) = 0;

Sieht mir nach procedure aus, wenn dem so ist wie soll ich dann auf S_OK\S_FALSE testen?
Ich habe es als Function ausgelegt da ich nicht weis wie ich sonst auf S_OK hin testen soll.

gruss

[KodeZwerg]

Wäre "GetLastError" ne Möglichkeit?

[Zacherl]

Zitat von EWeiss:

Das tue ich doch.
hr := SupportedSites.Test(PWideChar(MediaFile), false, url);

Nee, du prüfst aber doch das hr dann mit dem SUCCEEDED() Makro. Das Problem ist, dass sowohl S_OK , als auch S_FALSE keinen Fehler indizieren, weshalb du immer true erhälst. Du musst nach dem SUCCEEDED() Check nochmal genau prüfen, also:

Delphi-Quellcode:

if SUCCEEDED(hr) then
begin
  if      (hr = S_OK) then
    // String sollte etwas beinhalten
  else if (hr = S_FALSE) then
    // String sollte nil sein
  else
    // nicht dokumentiert
end;

Zitat von EWeiss:

Die frage die da noch wäre ist das nun eine Procedure oder eine Funktion!

Code:

STDMETHOD(Test)(__in LPCWSTR url, __in BOOL explicitly, __out_opt BSTR* canonical_url) = 0;

...
Ich habe es als Function ausgelegt da ich nicht weis wie ich sonst auf S_OK hin testen soll.

Das ist auch korrekt so, da STDMETHOD definiert ist als #define STDMETHOD(method) virtual HRESULT STDMETHODCALLTYPE method , also als Funktion mit HRESULT als Rückgabewert (nicht zu verwechseln mit STDMETHOD_ ).