Discussion :

[jt-tronix]

Salut, j'aurais besoin d'aide, car j'ai trouvé ce code en C et j'en ai absolument besoin pour mon programme en Delphi, cependant, je ne connait pas grand chose au C, et je n'arrive pas à convertir ce code, car je ne trouve pas d'équivalent delphi aux fonction utilisée.
Sa serait sympas si quelqu'un pouvait m'aider, merci.

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
#include <stdio.h>
#include <stdlib.h>
 
#define SIGN_START 0x800
#define SIG_POS 0x2d0
#define INIT_SUM 0x00000000
 
int main(int argc, char **argv)
{
	FILE *fp;
	int sum, buf;
	if (argc != 2) {
	   printf("Bad args.  should be %s <mapfile>\n", argv[0]);
	   exit(0);
	}
 
	if (!(fp = fopen(argv[1], "r+"))) {
	   printf("Error opening file.\n");
	   exit(0);
	}
 
	// initialize xor sum
	sum = INIT_SUM;
 
	// go to start of hash
	fseek(fp, SIGN_START, SEEK_SET);
 
	// assuming 4 byte ints.
	while (!feof(fp)) {
	   fread(&buf, sizeof(int), 1, fp);
	   sum = sum ^ buf;
	}
	sum = sum ^ buf;
	clearerr(fp);
	fseek(fp, SIG_POS, SEEK_SET);
	fwrite(&sum, sizeof(int), 1, fp);
	fclose(fp);
}

[Rayek]

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
 
// Définition des constantes
 
#define SIGN_START 0x800
#define SIG_POS 0x2d0
#define INIT_SUM 0x00000000
 
// fonction principale en C, char argv a l'air d'être comme le paramstr().
 
int main(int argc, char **argv)
{
	FILE *fp; // variable TFileStream
	int sum, buf; // définition de variables
 
	if (argc != 2) { // si argc <> 2 alors
	   printf("Bad args.  should be %s <mapfile>\n", argv[0]); // affchage si <> 2
	   exit(0); // sortir de la fonction
	}
 
	if (!(fp = fopen(argv[1], "r+"))) { // ouverture du TFileStream
	   printf("Error opening file.\n");
	   exit(0);
	}
 
	// initialize xor sum
	sum = INIT_SUM;
 
	// go to start of hash
	fseek(fp, SIGN_START, SEEK_SET);// se positionner dans le fichier (utiliser Seek)
 
	// assuming 4 byte ints.
	while (!feof(fp)) { // boucle de récupération des données jusqu'à qu'on arrive en fin de fichier
	   fread(&buf, sizeof(int), 1, fp); // Utiliser ReadBuffer pour la lecture dans le fichier
	   sum = sum ^ buf; 
	}
	sum = sum ^ buf;
 
// Ecrit la somme a la position SIG_POS dans le fichier
	clearerr(fp);
	fseek(fp, SIG_POS, SEEK_SET);
	fwrite(&sum, sizeof(int), 1, fp);
	fclose(fp); // fermeture du fichier
}

[jt-tronix]

Ok, super, merci, c'est vachement bien commenté en plus
Je vais testé ça plus tard, et je dirais si sa marche.

[Rayek]

Ok, super, merci, c'est vachement bien commenté en plus
Je vais testé ça plus tard, et je dirais si sa marche.

Je t'ai juste indiquer à quoi ca sert, après, à toi d'adapter selon les besoins. (ca fait un petit moment que j'ai plus fait de C, donc ca rique de pas être tres juste pour tout)

[jt-tronix]

Oui, je viens de voir sa, je vais essayé de me débrouiller

[Rayek]

au cas ou tu as ca pour t'aider : http://delphi.developpez.com/faq/?pa...ertir_c_delphi

[jt-tronix]

Ok, merci pour le lien, il m'a aidé, j'ai cependant un eptit soucis, je n'arrive pas à trouver à quoi correspond "sizeof(int)" en C, je sais que c'est également "sizeof()" en delphi, mais je ne sais pas a quoi correspond l'argument.

[Rayek]

Met ta variable à la place du int

[ATTIA]

Bonjour

Je suis aussi 1.t.ré.C par la convertion C delphi mais je ne sais pas si c'est bien ce lien que je doit choisir dans:
http://delphi.developpez.com/faq/?pa...ertir_c_delphi

http://www.delphi-jedi.org/APICONVTEAMS

Merci

[jt-tronix]

Met ta variable à la place du int

Oui, mais justement, laquelle variable, c'est ça qui me pose probleme, je sais bien que c'est une variable, mais je sais pas laquelle!

[Laurent Dardenne]

Je suis aussi 1.t.ré.C par la convertion

Merci de lire les régles du forum.
les régles du club.

[Laurent Dardenne]

Oui, mais justement, laquelle variable, c'est ça qui me pose probleme

ici il me semble que c'est plus le type int qui est concerné, la variable Buf étant du même type (4 octets).

[jt-tronix]

Merci pour vos réponse, mais j'ai trouvé voila le code final :

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
19
20
21
22
23
24
25
26
27
28
procedure TForm1.Button1Click(Sender: TObject);
const
  SIGN_START = $800;
  SIG_POS = $2D0;
  INIT_SUM = $00000000;
var
  F: file;
  buf: integer;
  sum: integer;
  i:integer;
begin
  i:=0;
  sum := INIT_SUM;
  Assignfile(F, './fichier.ext');
  FileMode := 2;
  Reset(F, 1);
  Seek(F, SIGN_START);
  while not eof(F) do
    begin
      BlockRead(F, buf, sizeof(buf));
      sum := sum xor buf;
      i:=i+1;
    end;
  seek(F,SIG_POS);
  BlockWrite(F, sum, sizeof(buf));
  CloseFile(F);
  label1.caption := inttostr(sum);
end;

Après avoir résolu une erreur dans le premier code source : le

Code :

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

sum=sum^buf;

n'existe normalement pas.

Cependant, ce processus par rapport à celui en C n'est pas très rapide, que puis je faire pour augmenter la rapidité ?

J'ai réussi à le mettre avec un TfileStream :

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
19
20
21
22
23
24
25
procedure TForm1.Button1Click(Sender: TObject);
const
  SIGN_START = $800;
  SIG_POS = $2D0;
  INIT_SUM = $00000000;
var
  F: TfileStream;
  buf: integer;
  sum: integer;
  i: integer;
begin
  i := 0;
  sum := INIT_SUM;
  F := TFileStream.Create('./Lockout.map', fmOpenReadWrite);
  F.Position := SIGN_START;
  while F.Position <> F.size do
    begin
      F.ReadBuffer(buf, SizeOf(integer));
      sum := sum xor buf;
    end;
  F.Position := SIG_POS;
  F.WriteBuffer(sum, SizeOf(integer));
  F.Free;
  label1.caption := inttostr(sum);
end;

Mais c'est encore moin rapide : 34secondes pour 32mo contre 24secondes pour la première méthode, mais à un moment le programme bug mais revient à la fin du traitement, alors qu'avec le programme en C : 5secondes.