C++ --> Delphi übersetzen

[toms]

Hallo,

Suche jemand oder mehrere, welche mir beim Übersetzen
eines C++ Codes nach Delphi helfen.
(auch nur einzelne Funktion möglich)

Der Code findet ihr im Anhang.

[SirThornberry]

helfen ist gut *g* an welcher Stelle kommst du nicht weiter? Wenn du hier die ganze cpp postest hat das nichts mit helfen zu tun sondern mit komplett erledigen lassen.

[toms]

z.B hier

Code:

  CComBSTR testid(searchID.length()+1,(const char*)searchID);
   CComBSTR testtag(5,"SPAN");

[Chewie]

Das sind einfach die Definition zweier Objekte des entsprechenden Typs. Da Objekte in C++ Werttypen sind, werden so statische Objekte angelegt, die auf dem Stack liegen und deswegen auch nicht manuell freigegeben werden.
In Delphi geht das nicht (OK, mit den alten TurboPascal-Objekten schon, aber lass die Finger weg von denen), also musst du den Konstruktor zur Laufzeit explizit aufrufen:

Code:

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

test := CComBSTR.Creazte(searchId.length + 1, PChar(searchId);  //Delphi

Auch wenn ich das nicht ganz kapiere. searchId ist offensichtlich ein Objekt, im zweiten Parameter wird dieses aber in einen Zeiger auf ein Zeichen gecastet.
Ich weiß zwar nicht Bescheid über den Aufbau von C++-Klassen, aber nach meinem dafürhalten wird dort der Zeiger auf die VMT übergeben? :?

[Robert Marquardt]

searchID ist offensichtlich ein C++ String.
Der typecast soll nur den korrekten Typ fuer den Konstruktor erzwingen.
Offensichtlich ist das aehnlich wie mit einem Delphi String, den man ja auch (fast) ungestraft zu einem PChar casten darf.

[Chewie]

Zitat:

Zitat von Robert Marquardt

Offensichtlich ist das aehnlich wie mit einem Delphi String, den man ja auch (fast) ungestraft zu einem PChar casten darf.

Hm, aber ein Delphi-String ist ja ein Zeiger. searchId ist aber ein statisches Objekt, sonst würde ja oben der "->"-Operator und nicht der Punktoperator stehen. Und eine Datenstruktur in einen Zeiger zu casten, bereitet mir ziemliche Bauchschmerzen :?

Außer natürlich, der Cast-Operator ist überladen :shock:

[Assarbad]

Zitat:

Zitat von Chewie

Auch wenn ich das nicht ganz kapiere. searchId ist offensichtlich ein Objekt, im zweiten Parameter wird dieses aber in einen Zeiger auf ein Zeichen gecastet.
Ich weiß zwar nicht Bescheid über den Aufbau von C++-Klassen, aber nach meinem dafürhalten wird dort der Zeiger auf die VMT übergeben? :?

Es ist der Aufruf eines Konstrukturs mit Länge und Pointer auf Zeichen als Parameter (ein literaler String wird auch immer als Pointer auf eine Zeichenkette behandelt). Sonst nix.

Zitat:

Zitat von Robert Marquardt

searchID ist offensichtlich ein C++ String.

Ist nur noch die Frage ob STL string oder CString!

Zitat:

Zitat von Robert Marquardt

Der typecast soll nur den korrekten Typ fuer den Konstruktor erzwingen.
Offensichtlich ist das aehnlich wie mit einem Delphi String, den man ja auch (fast) ungestraft zu einem PChar casten darf.

CComBSTR ist nichts weiter als ein "OLE String" ... also ein WideString. Versuchs mal mit so einem und caste den immer ...

Zitat:

Zitat von Chewie

Zitat:

Zitat von Robert Marquardt

Offensichtlich ist das aehnlich wie mit einem Delphi String, den man ja auch (fast) ungestraft zu einem PChar casten darf.

Hm, aber ein Delphi-String ist ja ein Zeiger. searchId ist aber ein statisches Objekt, sonst würde ja oben der "->"-Operator und nicht der Punktoperator stehen. Und eine Datenstruktur in einen Zeiger zu casten, bereitet mir ziemliche Bauchschmerzen :?

Die Begründung verstehe ich nicht. Wieso statisches Objekt? Es ist einfach ein Objekt. Das Casten übernimmt in C++ auch der entsprechende Operator (hier vermutlich LPCTSTR), der wenn es eindeutig ist, auch weggelassen werden darf.

Zitat:

Zitat von Chewie

Außer natürlich, der Cast-Operator ist überladen :shock:

Es gibt zum Glück meist mehrere Operatoren bei solchen Objekten. CString besitzt, wie gesagt, einen für LPCTSTR.

Übrigens ist "(const char*)" ja LPCTSTR, insofern UNICODE/_UNICODE nicht definiert sind! Die Vermutung liegt nahe, da im zweiten String ja ein ANSI-Literal verwendet wird.

[Chewie]

Zitat:

Zitat von Assarbad

Die Begründung verstehe ich nicht. Wieso statisches Objekt? Es ist einfach ein Objekt. Das Casten übernimmt in C++ auch der entsprechende Operator (hier vermutlich LPCTSTR), der wenn es eindeutig ist, auch weggelassen werden darf.

Ich meinte damit, dass dieses Objekt ein Werttyo ist und dass deswegen "in der Variable selbst" das Objekt drinnen ist. Wenn es ein Zeiger auf das Objekt wäre, hätte ich keine Bauchschmerzen, aber so...
Ich muss mich erstmal an das Typecasting-Konzept von C++ gewöhnen :roll:

[Assarbad]

Zitat:

Zitat von Chewie

Ich meinte damit, dass dieses Objekt ein Werttyo ist und dass deswegen "in der Variable selbst" das Objekt drinnen ist. Wenn es ein Zeiger auf das Objekt wäre, hätte ich keine Bauchschmerzen, aber so...
Ich muss mich erstmal an das Typecasting-Konzept von C++ gewöhnen :roll:

Aah, du meinst also, daß der Konstruktor von CComBSTR eingentlich einen STL string oder einen CString als Parameter erwarten sollte? Wäre theoretisch möglich aber dann nicht so generisch. Außerdem fiele dann der Sinn die Länge zu übergeben weg.

Da es ja Operatoren sind, die man explizit mit der Typkonversion von komplexen Klassen zu einfachen Typen beauftragen kann, ist es ja um sovieles einfacher.

[toms]

Danke mal soweit!

Hätte noch einige Übersetzungs Fragen.
Wie übersetzt man:

1.////////////////////////////////////////////////////////////

Code:

IHTMLDocument2 *lpHtmlDocument

2.////////////////////////////////////////////////////////////

Code:

if(!lpHtmlDocument)
    return;

so ?

Delphi-Quellcode:

 
if lpHtmlDocument = nil then 
   Exit;

3.////////////////////////////////////////////////////////////

Code:

IUnknown *lpUnk;
IEnumVARIANT *lpNewEnum;

4.////////////////////////////////////////////////////////////

Code:

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

In der Anlage gibt's mal erste Übersetzungs-Versuche.
(hauptsächlich search & replace von gewissen Zeichen)

[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