Discussion :

[lil_jam63]

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 :

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
 
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 :

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

[Nono40]

Code :

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

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

Est traduit par :

Code :

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

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

Code :

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

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

Idem.

Code :

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

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

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

Code :

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

If bBits<>0 Then szCom[j]=$30;

[lil_jam63]

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

"Types Incompatibles: 'Char et Integer'"

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

[coxinator]

bBits est de type Boolean je ferais le test ainsi :

Code :

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

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

[lil_jam63]

C'est aussi une solution mais là où ça plante c'est lors de l'affectation

Code :

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

1
2
 
szCom[j]:= $31

szCom est un tableau de Char et pourtant j'ai une erreur

"Types Incompatibles: 'Char et Integer'"

je vois pas où il trouve des integer là dedans

[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 :

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

1
2
3
4
 
szCom[j]:= #$31; 
szCom[j]:= #49;
szCom[j]:= Char($31);

[lil_jam63]

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