Traduction C++ vers Delphi

Version imprimable

Voilà, j'ai entrepris de traduire une fonction c++ en delphi et je bloque sur 3 lignes qui me disent vraiment rien, voilà la fonction C++

Code:

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
 
DWORD WINAPI ThreadLireCom(void)
{
	int i=2,j=0;bool bBits;nbCom=0;int Tps=0;DWORD Errors;
	LONGLONG PerformanceCount=0,PerformanceCountOld=0;
 
	SetCommMask(hCom,EV_DSR);
	while(IsActif)
	{
		WaitCommEvent(hCom,&Errors,0);nbCom++;
		PerformanceCountOld=PerformanceCount;
		QueryPerformanceCounter((LARGE_INTEGER *)&PerformanceCount);
		Tps = (int)((float)(PerformanceCount-PerformanceCountOld)*1000000/Frequency);
 
		if(Tps > 13337)
		{
			nbCom=1;i=2;j=0;
			memset(&szCom,0,sizeof(szCom));
			memset(&szComOld,0,sizeof(szComOld));
		}
 
		if(nbCom==i)
		{
			bBits=(nbCom%2==0);
			szCom[j++]=(bBits) ? 0x31:0x30;
			if(Tps > 1333 && nbCom!=1)
			{
				i++;
				szCom[j]=(!bBits) ? 0x31:0x30;
			}
			else
			{
				i+=2;
				if(!bBits) szCom[j]=0x30;
			}
		}
	}
	return 0;
}

Et voilà ma traduction

Code:

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
45
46
47
48
49
50
51
52
53
54
55
 
procedure TThreadRC5.ecoute;
var
  i, j, tps : integer;
	bBits : boolean;
	nbCom : integer;
  Errors : DWord;
	PerformanceCount, PerformanceCountOld, Frequency : TLargeInteger;
  szCom : array [0..256] of char;
  szComOld : array [0..256] of char;
begin
  i := 2;
  j := 0;
  nbCom := 0;
  tps := 0;
  PerformanceCount :=0;
  PerformanceCountOld :=0;
 
  SetCommMask(hCom,EV_DSR);
  QueryPerformanceFrequency(Frequency);
  while connect do
    begin
     WaitCommEvent(hCom,Errors,nil);
     inc(nbCom);
     PerformanceCountOld := PerformanceCount;
     QueryPerformanceCounter(PerformanceCount);
     Tps := Trunc((PerformanceCount-PerformanceCountOld)*1000000/Frequency);
 
     if (Tps > 13337)then
		  begin
			  nbCom :=1;
        i :=2;
        j :=0;
        FillChar(szCom, 0, sizeof(szCom));
        FillChar(szComOld, 0, sizeof(szComOld));
		  end;
 
     if nbCom = i then
      begin
        bBits :=(nbCom mod 2 =0);
        inc(j);
        szCom[j]:=(bBits) ? 0x31:0x30;                  //<-- ici
        if(Tps > 1333) and ( nbCom <> 1) then
          begin
            inc(i);
            szCom[j] :=(bBits = false) ? $31:$30;       //<-- ici
          end
        else
          begin
            inc(i,2);
            if(bBits = false) then szCom[j]:= $30;      //<-- ici
          end;
      end;
    end;
end;

Est ce que qqn peut me dire a quoi correspondent les trois lignes marquée "ici" dans ma procedure svp, je crois comprendre que c'est une conversion en binaire, j'ai cherché partout mais j'ai vraiment rien trouvé, merci. Et au passage si vous voyez qqchose de louche faites moi signe. :wink:

05/07/2004, 12h31
Nono40
:arrow:

Code:

szCom[j++]=(bBits) ? 0x31:0x30;

Est traduit par :
Code:

1 2 If bBits<>0 Then szCom[j]:=$31 Else szCom[j]:=$30; Inc(j);
Attention, le inc(j) doit être placé après ! C'est j++ et non ++j dans le code en C.
J'ai un doute dans le sens du test, à vérfier donc...

:arrow:

Code:

szCom[j]=(!bBits) ? 0x31:0x30;

Idem.

:arrow:

Code:

if(!bBits) szCom[j]=0x30;

C'est le C... On compare n'importe quoi avec n'importe quoi... False=0 D'ou :

Code:

If bBits<>0 Then szCom[j]=$30;
05/07/2004, 12h42
lil_jam63

Salut Nono, j'ai donc procédé comme tu me l'a suggérer et le compilo me dis

Citation:

"Types Incompatibles: 'Char et Integer'"

sur les trois lignes, pourtant szCom est un tableau de char :cry:

bBits est de type Boolean je ferais le test ainsi :
Code:

1 2 3 4 5 6 7 if bBits then szCom[j]:=$31 else szCom[j]:=$30; Inc(j);

05/07/2004, 13h00
lil_jam63
C'est aussi une solution mais là où ça plante c'est lors de l'affectation
Code:

1 2 szCom[j]:= $31
szCom est un tableau de Char et pourtant j'ai une erreur

Citation:

"Types Incompatibles: 'Char et Integer'"

je vois pas où il trouve des integer là dedans :lol:
05/07/2004, 13h03
Pierre Castelain
$31 est un entier. Si tu veux stocker affecter un caractère ajoute un # devant ou convertis en décimal ou utilise Char :
Code:

1 2 3 4 szCom[j]:= #$31; szCom[j]:= #49; szCom[j]:= Char($31);
05/07/2004, 13h10
lil_jam63

Autant pour moi, j'étais persuadé que $31 étais un char :oops: , les ravages d'une nuit blanche et d'un bon litre de café :roll:
Merci.