C++ --> Delphi übersetzen

[Assarbad]

Zitat:

Zitat von toms

Code:

IHTMLDocument2 *lpHtmlDocument

Habe noch nicht soviel mit Interfaces in Delphi gearbeitet. IMO ist der Typ IHTMLDocument2 aber schon ein Pointer. Die C++-Syntax sagt nix weiter als daß lpHtmlDocument ein Pointer auf den Typ IHTMLDocument2 ist.

Zitat:

Zitat von toms

Code:

if(!lpHtmlDocument)
    return;

so ?

Delphi-Quellcode:

 
if lpHtmlDocument = nil then 
   Exit;

Ja!

Zitat:

Zitat von toms

Code:

IUnknown *lpUnk;
IEnumVARIANT *lpNewEnum;

Siehe 1.)

Zitat:

Zitat von toms

Code:

((IDispatch*)frame).QueryInterface(IID_IHTMLWindow2, (void**)&elem);

Hier wurde vom Autor offenbar die besch***en lesbare alte C-Casting-Syntax genommen. Die neue C++-Syntax entspricht in etwa der von Delphi, außer daß man Typen auch inline deklarieren kann (dann müssen sie wie hier in Klammern stehen). Lies es so:

Code:

(IDispatch*)(frame).QueryInterface(IID_IHTMLWindow2, (void**)(&elem));

Es ist nur der Typecast von "frame" nach "Pointer auf IDispatch" um dann direkt die Methode von IDispatch QueryInterface() aufzurufen und das IHTMLWindow2-Interface in "elem" zu bekommen.

Code:

(void**)(&elem)

wäre in Delphi wohl ungefähr:

Delphi-Quellcode:

var elem:Pointer

[toms]

Habe leider immer noch nicht begriffen, wie das zu uebersetzen ist:

Delphi-Quellcode:

CComBSTR testid(searchID.length()+1,(const char*)searchID);

habe mal einen Anfang gemacht:


... := Length(searchID) + 1, (const char * )searchID);

Weiter unklar ist das:

Code:

testtag(5, ’SPAN’);

Code:

{lpUnk: IUnknown;}

 if (SUCCEEDED(lpAllElements.get__newEnum(&lpUnk))&& lpUnk ! = nil)

Code:

varElement.pdispVal->QueryInterface(IID_IHTMLElement,(void**)&lpElement);

soweit habe ich:
var
varElement: OleVariant;
lpElement: IHTMLElement;

varElement.pdispVal.QueryInterface(IID_IHTMLElemen t, lpElement);

jedoch erhalte ich folgende Fehlermeldung:

[Error] ... Type not allowed in Variant Dispatch call

Code:

lpElement->put_outerHTML(innerText);

Problem:

{var
lpElement: IHTMLElement;}

put_outerHTML erkennt Delphi nicht!

[Assarbad]

Delphi-Quellcode:

CComBSTR testid(searchID.length()+1,(const char*)searchID);

Ich hatte weiter oben schon gesagt, daß ein CConBSTR nichts weiter ist als ein Wrapperobjekt für OleStrings und damit WideStrings (eigtl. PWideChar). Da wir in Delphi kein Objekt dazu brauchen, sondern der WideString (obwohl kein Objekt/Klasse) reicht, sollte das so gehen.

Delphi-Quellcode:

var
testid:WideString;
searchID:String;
begin
  testid :=  searchID;
.
.
.

Code:

testtag(5, 'SPAN');

Keine Ahnung ... dazu müßte man den Code drumherum sehen. Es kann von Constructor über Macro bis Funktion alles sein.

Code:

{lpUnk: IUnknown;}

 if (SUCCEEDED(lpAllElements.get__newEnum(&lpUnk))&& lpUnk ! = nil)

SUCCEEDED ist ein Macro, das IMO auf

Delphi-Quellcode:

Ergebnis = S_OK

checkt.

Versuch hier mal:

Delphi-Quellcode:

var
 varElement: OleVariant;
 lpElement: IHTMLElement;

varElement.pdispVal.QueryInterface(IID_IHTMLElement, Pointer(lpElement));

Keine Garantie, daß irgendwas davon hilft. Ich habe leider nicht genug Zeit um ausführlicher zu helfen.

[OregonGhost]

Zitat:

Zitat von Assarbad

Code:

{lpUnk: IUnknown;}

 if (SUCCEEDED(lpAllElements.get__newEnum(&lpUnk))&& lpUnk ! = nil)

SUCCEEDED ist ein Macro, das IMO auf

Delphi-Quellcode:

Ergebnis = S_OK

checkt.

Da muss ich korrigieren:

Code:

#define SUCCEEDED(Status)     ((HRESULT)(Status) >= 0)

Zitat:

put_outerHTML erkennt Delphi nicht!

Hat man in Delphi nicht SmartPointer? In dem Fall ist outerHTML eine Eigenschaft und du kannst ihr direkt etwas zuweisen, probier mal.

[toms]

Zitat:

Zitat von OregonGhost

Zitat:

put_outerHTML erkennt Delphi nicht!

Hat man in Delphi nicht SmartPointer? In dem Fall ist outerHTML eine Eigenschaft und du kannst ihr direkt etwas zuweisen, probier mal.

Klar, so geht's!

Zitat:

Zitat von "Assarbad

Versuch hier mal:

Delphi-Quellcode:

var
 varElement: OleVariant;
 lpElement: IHTMLElement;

varElement.pdispVal.QueryInterface(IID_IHTMLElement, Pointer(lpElement));

Keine Garantie, daß irgendwas davon hilft. Ich habe leider nicht genug Zeit um ausführlicher zu helfen.

Funktioniert leider genausowenig