Traduire un bout de code de c++ vers delphi

Version imprimable

J'essaye de traduire cette fonction vers delphi.Quelqu'un peut m'aider?

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
 
void ClassImg::RGBtoYUV(LPBYTE pdest, LPBYTE psrc, DWORD w, LPBYTE m_AChannel)
{
    LPBYTE dst = pdest;
	LPBYTE src = psrc;
	LPBYTE Ach = m_AChannel;
    DWORD w2 = w >> 1;
    while (w2--)
    {
        int B = *src++;
        int G = *src++;
        int R = *src++;
		if (Ach) *Ach++ = *src++;
 
        int Y = ((long)(219l* 77*R + 219l*150*G + 219l* 29*B)>>16)+16;
        int U = ((long)(219l*131*B - 219l* 87*G - 219l* 44*R)>>16)+128;
 
    #define clip(x) (((x) & 0xffffff00) ? ((x) & 0x80000000) ? 0 : 255 : (x))
 
        *dst++ = clip(U);
        *dst++ = clip(Y);
 
        B = *src++;
        G = *src++;
        R = *src++;
		if (Ach) *Ach++ = *src++;
 
        Y = ((long)(219l* 77*R + 219l*150*G + 219l* 29*B)>>16)+16;
        int V = ((long)(219l*131*R - 219l*110*G - 219l* 21*B)>>16)+128;
 
        *dst++ = clip(V);
        *dst++ = clip(Y);
    }
}

06/02/2009, 10h22
Aka Guymelef

Bonjour.

Je ne suis pas un expert du C++ mais déjà l'opérateur >> du C++ tu peux le remplacer par l'opérateur shr. LPBYTE doit probablement être un pointeur sur un Byte (PByte).

Pour le #DEFINE à priori ça déclare une fonction à la volée donc tu dois pouvoir faire pareil avec une fonction interne à la méthode.
06/02/2009, 11h01
pointer

et le 219l? (219l c'est pas 2191)
06/02/2009, 13h27
Linkin

Ce ne serait pas pour dire qu'il faut le prendre en tant qu'entier long?

Citation:

Envoyé par Linkin

Ce ne serait pas pour dire qu'il faut le prendre en tant qu'entier long?

peut etre que tu as raison.bon j'essaye la 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 RGBtoYUV(pdest,psrc:pbyte;w:longword;m_AChannel:pointer);
var
  dst,src,ach:pbyte;
  w2:longword;
  r,g,b,y,u,v:byte;
begin
  dst := pdest;
	src := psrc;
	Ach := m_AChannel;
  w2 := w shr 1;
  while (w2>0) do
  begin
        w2:=w2-1;
         inc(integer(src));
         B := src^;
         inc(integer(src));
         G := src^;
         inc(integer(src));
         R := src^;
     		if (Ach<>nil) then
          begin
            inc(integer(src));
            Ach:=src;
            inc(integer(Ach));
          end;
 
        Y := round(((219* 77*R + 219*150*G + 219* 29*B)shr 16)+16);
        U := round(((219*131*B - 219* 87*G - 219* 44*R)shr 16)+128);
 
//#define clip(x) (((x) & 0xffffff00) ? ((x) & 0x80000000) ? 0 : 255 : (x))
 
//        *dst++ = LIMIT(U);
//        *dst++ = LIMIT(Y);
 
         inc(integer(src));
         B := src^;
         inc(integer(src));
         G := src^;
         inc(integer(src));
         R := src^;
      	if (Ach<>nil) then
          begin
            inc(integer(src));
            Ach:=src;
            inc(integer(Ach));
          end;
 
        Y := round(((219* 77*R + 219*150*G + 219* 29*B)shr 16)+16);
        V := round(((219*131*R - 219*110*G - 219* 21*B)shr 16)+128);
 
//        *dst++ = LIMIT(V);
//        *dst++ = LIMIT(Y);
    end;
end;

il me reste les commentaires :(

07/02/2009, 07h11
anapurna
salut

#define clip

doit etre traduite par une fonction

Code:

clip(x) (((x) & 0xffffff00) ? ((x) & 0x80000000) ? 0 : 255 : (x))
Code:

1 2 3 4 5 6 7 8 9 10 11 12 function Clib (x : integer) : byte begin if ((x) and $ffffff00) Then begin if ((x) and $80000000) Then result := 0 else result := 255; end else result := x; end;
la traduction des conditions n'est pas parfaite mais l'esprit de la traduction est là

@+ Phil

pour la fonction clip, j'aurais tendance à dire :
Code:

1 2 3 4 5 6 7 8 9 10 function Clip (x : integer) : byte begin if x>255 then Result:=255 else begin if x<0 then Result:=0 else Result:=x; end; end;
sinon, en delphi

Code:

if ((x) and $ffffff00) > 0

07/02/2009, 09h55
tourlourou
et au passage, quand on multiplie par 219 tous les membres d'une parenthèse, autant ne le faire qu'une fois en le mettant en facteur !
Code:

1 2 Y := round(((219* 77*R + 219*150*G + 219* 29*B)shr 16)+16); Y := round( ((219*(77*R + 150*G + 29*B)) shr 16)+16);