Convertir du Delphi en C

bonsoir à tous et à toutes ;

Depuis 10 joursque je travaille sur un projet qui consiste a traduire et convertir un programe créer en delphi en langage C. .

N'ayant que de faibles conaissances en delphi j'ai commençer a convertir et adapter les fonctions en langage C/C++ .



Merci pour toutes personnes pouvant intervenir dans ce sujet et essayer d'apporter un conseil ou une aide .



Cordialement,
Fred.

Bonjour,

alors pour ce qui est de ta première fonction :
- pour la déclaration de la fonction, elle renvoit un string en Delphi ( : String). mais je ne vois nulle part où le string est retourné :o
- il faudrait que tu rajoutes une structure pour coder le type delphi TMemoryStream.
- "for iIndex := 0 to ALength - 1 do" signifi que la variable iIndex va de 0 à ALength -1 par pas de 1. Donc en C "for (iIndex=0 ; iIndex <= ALength-1 ; iIndex++) result += ...".

Petites choses :
- sauf grossière erreur de ma part, "i+" ne veut rien dire en C.
- tes opérations sur les IntToHex sont fausses. De plus, il y en a deux opérations à faire et tu n'en fait qu'une.

Salut ToTo13 ;


Merci pour toutes ces informations et ta disponibilité .




Code Blocks signale différentes erreurs suite à la convertion de ce code en langage C , .

Citation:

---

Envoyé par ToTo13

Bonjour,
- tes opérations sur les IntToHex sont fausses.

---

Bonjour ToTo13 ;

Une seule opération :

Code:

---

IntToHex(Ord(Pchar(AMem.Memory)[AStart+iIndex]),2) ;

---

Code:

---

1 2 3 4

function Ord ( Arg : AnsiChar | Char | WideChar | Enumeration | Integer ) : Integer;   The Ord function returns an integer value for any ordinal type Arg.

---

Code:

---

1 2 3 4 5 6 7

Delphi C   pchar string integer int byte byte pchar string

---

Bonjour,

petite question :
- Que contient exactement le type "TMemoryStream" ?

Tu as besoin de trouver l'équivalent en C.

Citation:

---

Envoyé par Fred.77

Depuis 10 joursque je travaille sur un projet qui consiste a traduire et convertir un programe créer en delphi en langage C. .

---

Delphi est un langage objet. Je conçois qu'on veuille traduire du Delphi en C++ (dans ce cas, mauvais forum) ou du Pascal en C, mais du Delphi en C, ça me parait un peu osé, surtout si tu ne connais pas Delphi...

D'autre part, il n'y a pas de langage C/C++. Il y a C et il a C++. Ce sont 2 langages différents et ils ont chacun leurs forums (et leurs adeptes !)

Gio,

Ça va être difficile, car tu ne sembles connaître ni Delphi, ni le C.

Pour rendre le travail plus facile, il est important de présenter correctement le code : indentation régulière et cohérente, pas de sauts de ligne inutiles

Citation:

---

Envoyé par ToTo13

...
alors pour ce qui est de ta première fonction :
- pour la déclaration de la fonction, elle renvoit un string en Delphi ( : String). mais je ne vois nulle part où le string est retourné :o
...

---

Si, c'est le rôle des affectations à Result (variable automatique pour les fonctions en Delphi).

Citation:

---

Envoyé par ToTo13

Bonjour,

Tu as besoin de trouver l'équivalent en C.

---

Salut ,

Oui , exact voici à quoi ressemble le code en langage C .

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

int function(int AStart, int ALength) { int ires ,ires1, incmem ; long memfile;     while (incmem < memfile-8) { ires ^ ires1;   } ires1= strtoint(' '+(memfile,incmem,1));       }

---

Aucune erreur du compilateur Code::Blocks .

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

unsigned long long function2 (void)   { int iIndex,AStart,ALenght;     for (iIndex = 0; iIndex <= len-1; iIndex++) {   IntToHex(int(char*,[AStart+iIndex]),2) ;     }   }

---

Ce que j'ai pas compris :

Code:

---

1 2 3 4 5 6

itmp := AMem.Position; for ichk:=$16 to $1D do begin . while incmem < memfile.size-8 do begin ires1:=strtoint('$'+strMemMidH(memfile,incmem,1)); inc(incmem,8);

---

Inc () , Dec () c'est des fonctions d'incrémentation et de décrementation en Delphi .



Merci pour votre aide .