Discussion :

[Jon Shannow]

Bonjour,

Je transcris en Lazarus un composant Delphi que j'utilise sans problème et que je n'ai pas écrit, je l'avoue !

Dans le code du composant Delphi, il y a ces lignes...

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
 
for y:=0 to d.Height-1 do
  begin
  l:=c.ScanLine[y];
  t:=d.ScanLine[y];
  for x:=0 to d.Width-1 do
    if not ((l^[x*3+2]=255) and (l^[x*3+1]=0) and (l^[x*3]=0) and
           (t^[x*3+2]=0) and (t^[x*3+1]=0) and (t^[x*3]=255)) then
      begin
      if Result=0 then
        Result:=CreateRectRgn(x,y,x+1,y+1)
      else
        begin
        r:=CreateRectRgn(x,y,x+1,y+1);
        CombineRgn(Result,Result,r,RGN_OR);
        DeleteObject(r);
        end;
      end;
  end;

c et d sont des TBitMap
l et t sont des PBtyteArray;

Hélas, je viens de découvrir que ScanLine n'existe pas dans Lazarus !

Comme je suis une bille de première en graphisme, j'ai beau chercher, je ne vois pas comment traduire ces quelques lignes !

Est-ce que quelqu'un peut m'aider ?

Merci d'avance

JS

[Paul TOTH]

TBitmap.RawImage.Data^

[Jon Shannow]

Dois-je en conclure que RawData remplace ScanLine ? Et que je peux remplacer

Code :

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

l:=d.ScanLine[ y];

par

Code :

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

l := d.RawImage.Data^[y]

?

[Paul TOTH]

pas exactement, j'avais vu ça il y a longtemps

RawImage.Data est un pointeur vers le tableaux de tous les pixels.

sans avoir testé je pense qu'il faut faire ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var
  LineWidth: Intege;
  ScanLine: PByte;
begin
  LineWidth := Bitmap.Description.BytesPerLine;
  ScanLine := Bitmap.RawImage.Data; // première ligne
  for i := 0 to Bitmap.Height - 1 do
  begin
    ...traitement du scanline...
    Inc(ScanLine, LineWidth); // ligne suivante
  end;
end;

mais il est possible que l'ordre des lignes soit inversé, je ne sais pas dans quel sens le RawBitmap est stocké, ni si cet ordre est dépendant de l'OS (les Bitmap Windows ont la tête en bas)

[Jon Shannow]

Merci, je m'en suis sorti !

[Jipété]

Bonsoir,

Désolé de déterrer ce topic vieux de presque 2 ans, mais le commentaire de Jon est plus que sibyllin et mystérieux, et ne m'aide pas beaucoup...

Merci, je m'en suis sorti !

Jon, comment ? ? ?


Dans l'attente, si tu passes par là Paul, j'ai voulu utiliser ton bout de code pour passer un exemple trouvé chez efg et qui fonctionne bien en Delphi, et je bute comme Jon sur ce scanline...

J'ai fait comme ça (le but de la manip est de dessiner des ronds RGB ou CMY dans une TImage de 480 x 480 sur la Form) :

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
  // RESULT est un TBitmap
  LineWidth := RESULT.RawImage.Description.BytesPerLine; // = 1920 vu en step-by-step
  ScanLine := RESULT.RawImage.Data; // (Paul) première ligne
 
  Getmem(row, SizeOf(row)*LineWidth);
  FillChar(row^, SizeOf(row)*LineWidth, '0');
 
  FOR j := 0 TO RESULT.Height-1 DO
  BEGIN
    //row := RESULT.Scanline[j]; // original Delphi
    row := @Scanline;
 
    FOR i := 0 TO RESULT.Width-1 DO  // crash ici (SIGSEGV) avec j = 237 et i = 479
    // 238 x 480 = 114240, ça ne me parle pas, d'autant plus que juste pour voir,
    // si je mets .Width-2 ça crashe pareil avec j = 237 et i = 478
    BEGIN
      WITH row[i] DO
      // work with row
    END;
    Inc(ScanLine, LineWidth); // (Paul) ligne suivante
 
  END;
  Freemem(row, SizeOf(row)*LineWidth);

Une idée ?
Merci d'avance,