Discussion :

[Lio590]

Je développe un logiciel de type VNC très simple, il capture l'écran avec Bitblt et compare la nouvelle capture avec l'ancienne. J'utilise le code suivant pour la comparaison des bitmaps:

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
 
PROCEDURE CompareBitmaps(CONST BitmapA, BitmapB:  TBitmap; VAR Total, Match, Differ:  INTEGER);
    Type
      TRGBTripleArray =  ARRAY[WORD] OF TRGBTriple;
      pRGBTripleArray =  ^TRGBTripleArray;
 
Var
   i   :  Integer;
   j   :  Integer;
   rowA:  pRGBTripleArray;
   rowB:  pRGBTripleArray;
 
  Begin
    ASSERT( (BitmapA.width  = BitmapB.width) AND  (BitmapA.height = BitmapB.height),  'Different sizes');
 
    BitmapA.PixelFormat := pf24bit;
    BitmapB.PixelFormat := pf24bit;
 
    Total  := BitmapA.width * BitmapA.height;
    Match  := 0;
    Differ := 0;
 
    For j := 0 To BitmapA.height-1 Do
    BEGIN
      rowA := BitmapA.Scanline[j];
      rowB := BitmapB.Scanline[j];
 
      For i := 0 To BitmapA.width-1 Do
      Begin
        If  CompareMem(@rowA[i], @rowB[i], SizeOf(TRGBTriple)) Then 
          Inc(Match)
          Else Inc(Differ)
      end;
    End
  End

Les bitmaps ont toujours la même taille et au format 24bits. Le code semble fonctionner cependant de temps a autre j'ai des exceptions «Scan line index hors limite» ce qui me semble hautement improbable puisque les index sont toujours les mêmes il n'y a pas de raisons objectives pour qu'ils soient hors limites.
Avez vous une idée de ce qui pourrait générer cette exception ?

[ShaiLeTroll]

Ton assert fonctionne ?
Modifie ton code pour faire un test avec if et une exception dans le else, ça serait plus simple, les assert ne sont actives que pour le debug normalement !
Tu ne les mettras plus dans une version de prod !

Le reste semble assez cohérent

hautement improbable

Ce qui veut dire "rarement possible" mais possible quand même
l'habituel différence entre la Théorie et la Pratique, le facteur Murphy !

[Cl@udius]

Je me pose cette question: Et si les 2 bitmaps sont vides ?

[Edit]
Fausse bonne question, dans ce cas on n'entrerait pas dans les boucles.

[Lio590]

ShaiLeTroll> merci je vais essayer
Cl@udius> vides ? je teste le retour de Bitblt et les bitmaps sont créés de manière statique au début avec une taille fixe. N'est-ce pas suffisant pour s'assurer que quoi qu'il arrive ils ne seront pas considérés comme vides ?

Cordialement

[Cl@udius]

Cl@udius> vides ?

L'edit de mon message précédent précise que c'était une fausse bonne question.

J'ai pensé à cela car dans la fonction ScanLine, l'exception "Index hors limite" est levée si Row est < inf. à 0 ou sup. ou égal à bmHeight.

@+

[Lio590]

Cl@udius> J'ai ajouté le test "bitmap.empty ?" mais le probleme est toujours la.
Je comprends quelles sont les conditions qui peuvent déclencher l'exception, le probleme c'est que dans la boucle l'index n'est jamais 0< ou > a BitmapA.height-1 / BitmapA.width-1 ou alors je ne comprend plus rien a Delphi.

[Cl@udius]

A part avec des bitmaps de tailles différentes, je ne vois pas pourquoi ScanLine lèverait une exception.

D'où la question de Shai:

Ton assert fonctionne ?

Assure-toi qu'il soit bien pris en compte en ajoutant {$C+} juste devant, ou bien
remplace le par un if OK else Exception, comme proposé par Shai.

@+

[Lio590]

J'ai testé l'assert il fonctionne correctement, j'ai fait des tests avec des valeurs statiques sur les dimensions de Bitmap et meme probleme. Je commence a penser que c'est un bug dans Delphi

[Paul TOTH]

pour ce genre de problème j'utilise toujours la même méthode

1) ajoute un AllocConsole()
2) dans ta boucle ajoute un WriteLn('j = ',j);

quand ça plante, regarde la valeur de j dans la console.

c'est plus efficace que de mettre un point d'arrêt conditionné

et j'ajoute autant de WriteLn que nécessaire pour trouver ce qui ne va pas.
exemple:
Writeln('Bitmap = ', Bitmap.Width, 'x', Bitmap.Height);

si tu veux la même chose dans un fichier log

remplace AllocConsole() par

Code :

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

1
2
3
 
AssignFile(Output, 'log.txt');
Rewrite(output);

[Lio590]

Paul> excellente idee, ca va permettre de confirmer ou pas le fait que les index restent dans les limites

[Andnotor]

Je ne sais pas si ça peut avoir une incidence, mais une chose qui n'est pas bonne est la déclaration :

Code :

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

TRGBTripleArray =  ARRAY[WORD] OF TRGBTriple;

puisque tu admets qu'une ligne du bitmap fait 65536 pixels

Dans pareil cas, on défini plutôt un tableau de taille inconnue (enfin 1 élément) :

Code :

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

TRGBTripleArray =  ARRAY[0..0] OF TRGBTriple;

De plus, dans un post précédent, tu disais travailler avec un thread. Es-tu sûr qu'il n'y a pas d'accès concurrent sur les mêmes bitmaps depuis la tâche principale ?

[ShaiLeTroll]

En plus 0..0 ça sera encore plus limitatif ! Non ?

Mais effectivement, est-ce qu'il une vérification des bornes du tableau, cela laisse quand même 32000 pixels, vu que l'on est dans un mini-VNC, ça doit pas dépasser les 1920 x 1080 !
Lorsque j'ai utilise des pointeurs sur tableau (seule méthode en D3), j'ai toujours indiqué la plus grande cardinalité, comme dans le code de la TList

Lio590, à très juste titre, utilise la déclaration conseillé par nono04 dans son tutoriel
Utilisation de la propriété TBitMap.ScanLine

AllocConsole(), faudrait que j'essaye, moi j'utilise OutputDebugString pour cela !

[Andnotor]

Ce n'est pas limitatif dans le sens où on travaille sur un pointeur. Peu importe la taille du tableau, on index à volonté. Il faut pour cela que ce pointeur pointe bien sur le premier élément du tableau, d'où le [0..0]. Ce n'est pas un tableau ouvert (ce qui donnerait un pointeur sur un pointeur de tableau )

Je n'ai pas souvenir d'avoir eu un "Scan line index hors limite" (Des violations d'accès oui...) et la seule limite que je vois dans ce code est WORD.

[Caribensila]

Salut,

La procedure est correcte (bien qu'on puisse l'optimiser) et je crois que Andnotor a mis le doigt sur le problème. Cela doit provenir d'un Thread qui change la hauteur d'un des bitmap.

Pour vérifier, il suffit de passer les paramètres BitmapA et BitmapB par valeur :

Code :

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

PROCEDURE CompareBitmaps(BitmapA, BitmapB: TBitmap; VAR Total, Match, Differ: INTEGER);

[Paul TOTH]

la déclaration [0..0] ou [Word] ne change pas grand chose, de toute façon la taille est arbitraire et le range checking inapplicable.

par contre TBitmap étant un objet, le paramètre const, var ou "par valeur" ne change strictement rien en Pascal...mise à part que la variable ne pourra pas être modifiée si elle est constante, alors que son contenu le pourra.

Code :

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

1
2
3
4
5
6
 
procedure demo(const b: TBitmap);
begin
  b := TBitmap.Create; // impossible car constant
  b.Height := 128; // autorisé !
end;

si le bitmap est modifié dans un Thread l'erreur est probablement là

[Caribensila]

TBitmap étant un objet, le paramètre const, var ou "par valeur" ne change strictement rien en Pascal...mise à part que la variable ne pourra pas être modifiée si elle est constante, alors que son contenu le pourra.

Oups! J'ai compris mon erreur. Merci pour la démo.


Par contre, je n'utiliserais pas de type array :

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
Procedure CompareBitmaps(const BitmapA, BitmapB:  TBitmap; var Total, Match, Differ: Integer);
  var     ScanA, ScanB: pRGBQuad;
          i           : Integer;
	begin
  BitmapA.PixelFormat := pf32bit;
  BitmapB.PixelFormat := pf32bit;
  Total               := BitmapA.width * BitmapA.height;
  Differ              := 0;
  ScanA               := BitmapA.ScanLine[BitmapA.Height-1];
  ScanB               := BitmapB.ScanLine[BitmapB.Height-1];
  for i := 1 to Total do begin
    if not CompareMem(ScanA,ScanB,4) then Inc(Differ);
    inc(ScanA);
    inc(ScanB);
  end;
  Match := Total-Differ;
end;

[Paul TOTH]

c'est une autre façon de faire, mais attention à l'alignement des lignes ! sur un format pf24bits il peu y avoir un padding en fin de ligne pour avoir une largeur multiple de 4.

mais l'erreur "Scan line index hors limite" vient de la propriété ScanLine[], pas de l'usage des pointeurs.

[Lio590]

Bonjour,

Tout d'abord merci a tous pour votre aide et suggestions.
Je pense avoir trouvé d'où venait le problème. En fait l'intitulé de l'erreur «Index Scan Line hors limite» m'a conduit dans la mauvaise direction. En effet il était évident pour moi que le problème venait du seul endroit dans le code ou j'utilisais scanline. Que neni, il semble que bitblt utilise également scanline et c'est lui qui générait l'erreur !!
Je l'ai compris lorsque j'ai recodé la procédure de comparaison des bitmaps avec getdibits et j'obtenais toujours la même erreur.

Encore une fois merci a tous pour votre aide