Discussion :

[Fred.77]

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.

[ToTo13]

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.

[Fred.77]

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 , .

[Fred.77]

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

Bonjour ToTo13 ;

Une seule opération :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Delphi          C
 
pchar 	      string
integer       int
byte 	      byte
pchar 	      string

[ToTo13]

Bonjour,

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

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

[Fred.77]

Bonjour,

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

Salut ,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 .

[Emmanuel Delahaye]

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 !)

[droggo]

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

...
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).