Discussion :

[tourlourou]

Bonsoir,

J'obtiens une différence à l'exécution du même code source sous Lazarus Win7 32 bits et CodeTyphon (Lazarus 64) Ubuntu.

J'obtiens sous Win7 l'affichage de l'image couleur attendue, mais sous Ubuntu une image reconnaissable, grise, avec des rayures colorées verticales...

Pour éliminer certaines causes, j'ai sauvé dans un fichier le tableau RGB (PBA dans le code ci-dessous) que je passe en ScanLine à un TLazIntfImage, copié vers un BitMap qui est assigné à un TImage pour l'affichage (ouf !)

Et le fichier correct sous Win7 donne la même image grise sous Ubuntu que celle obtenue par le traitement normal !

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
  tms:=TMemoryStream.Create;
  tms.Write(PBA[0], FWidth*FHeight*3); // PBA = TByteArray : tableau de RGB style BitMap
  tms.SaveToFile('testbmp.bin');
  tms.Clear;
  tms.LoadFromFile('testbmp.bin');
  FillChar(PBA[0], FWidth*FHeight*3, 0);
  tms.Read(PBA[0], FWidth*FHeight*3);
  tms.Free;
  // passage au Bitmap de travail
  with ScanlineImage // TLazIntfImage
  do begin
    BeginUpdate;
      for yy:=0 to FHeight-1 // PRT = TRGBTripleArray absolute PBA
      do Move( PRT[yy*FWidth], TPRT(GetDataLineStart(yy))[0], ScanlineSize );
    EndUpdate;
  end;
  // puis à celui interne à passer
  FBitmap.LoadFromIntfImage(ScanlineImage);   
  // puis Image1.Picture.Assign(FBitmap);

Je ne sais plus où donner de la tête !

Merci pour vos pistes.

[tourlourou]

Je viens de faire le test inverse : le fichier tableau généré sous Ubuntu est bien affiché comme attendu sous Win7.

Il y a donc une différence de comportement entre les 2 versions de Lazarus ou les 2 environnements dans le passage au TLazIntfImage ou au BitMap.

Création du TLazIntfImage :

Code :

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

1
2
3
4
5
6
7
8
  ScanlineImage:=TLazIntfImage.Create(0, 0, [riqfRGB]);
  with ScanlineImage
  do begin
    BeginUpdate;
      SetSize(FWidth, FHeight);
      CreateData;
    EndUpdate; 
  end;

D'un côté, je suis content que mon code qui précède cette étape soit portable

[Paul TOTH]

comment est déclaré PRT ? n'y a-t-il pas une différence 32/64 bits ?

[tourlourou]

Je ne crois pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
type
  // pixel RGB ou YUV
  TYUV3=packed record
  case Boolean of
    True : (Blue, Green, Red: Byte); // = TRGBTriple
    False: (Y, U, V: Byte);
  end;
 
  // ligne de pixels
  TPRT=array of TYUV3;    
 
var
  PBA: PByteArray;
  PRT: TPRT absolute PBA; // pour traiter le buffer par octet, RGBTriple, ou YUV

[tourlourou]

Voici la différence de rendu, qui ne laisse de me plonger dans la perplexité...

[Paul TOTH]

attend "PRT = TRGBTripleArray absolute PBA" tu fais un absolute d'un record vers un pointeur ?

PS: pourquoi utiliser un MemoryStream pour enregistrer sur disque ?!

[ChPr]

Voici la différence de rendu, qui ne laisse de me plonger dans la perplexité...

L'analyse des deux images montre qu'il y a un problème flagrant de nombre d'octets par pixel (3 ou 4).

L'image de gauche est celle de droite compressé sur un espace des 3/4 de celle de droite. La quart restant est rempli de je ne sais quoi.

Maintenant, quel le problème ???

Cordialement.

Pierre