ShowMessage parfois non exécuté

Version imprimable

21/06/2011, 16h46
Jipété

ShowMessage parfois non exécuté
Bonjour,

J'utilise souvent ShowMessage pour vérifier vite fait un point de détail (comme beaucoup, je suppose).

Et pour contrôler un passage de paramètres à une fonction,
j'ai encore eu recours à ça, mais cette fois je tombe par terre :
Code:

1 2 3 4 5 function une_fonction(var Buffer; Count: int64): int64; begin ShowMessage(IntToStr(Count)); titi := @Buffer; toto := Count;
Le ShowMessage ci-dessus n'est pas exécuté, ça se voit très bien en pas-à-pas et en exécution (pas de fenêtre affichée), or je sais que ma fonction est appelée, puisqu'elle plante un peu plus loin, et qu'en pas-à-pas ça commence à la ligne "titi"...

Par ailleurs, l'appel à cette fonction est testé (dans une autre fonction) avec un... ShowMessage juste avant l'appel, et là c'est tout bon... :koi:

Si quelqu'un pouvait me dire pourquoi et comment un truc aussi basique ne fonctionne pas ici, ça m'aiderait énormément (newbie sous Lazarus).

Merci,
21/06/2011, 18h31
tourlourou
Hello JP !

Newbie aussi sous Lazarus ? Hi, Hi !

Quelques surprises de temps à autres. Par exemple, dans l'EDI, je ne peux pas voir les variables "complexes" : pour aStream.Position, le debugger m'affiche 'error near Position' au lieu de la valeur quand je passe le curseur en exécution...

Pour ton problème, pas d'idée, sinon en compliquant le code (au cas où) ; par exemple :
Code:

1 2 3 4 5 6 7 function une_fonction(var Buffer; Count: int64): int64; begin Inc(Count); ShowMessage(IntToStr(Count-1)); Dec(Count); titi := @Buffer; toto := Count;
Bonne continuation.
21/06/2011, 19h36
DOLPat®

Citation:

Envoyé par Jipété

... or je sais que ma fonction est appelée, puisqu'elle plante un peu plus loin, et qu'en pas-à-pas ça commence à la ligne "titi"...

Si elle plante un peu plus loin, et si elle ne commence pas au départ, je dirais que tu as un problème en amont et c'est pour cela que ton ShowMessage n'est pas affiché. Vérifie le code qui se situe avant l'appel à cette fonction.
21/06/2011, 22h38
Jipété
Bonsoir, Patrick

Citation:

Envoyé par DOLPat®

Si elle plante un peu plus loin, et si elle ne commence pas au départ, je dirais que tu as un problème en amont et c'est pour cela que ton ShowMessage n'est pas affiché. Vérifie le code qui se situe avant l'appel à cette fonction.

Mmh mmh, on dirait que je me suis mal exprimé ; l'appel à cette fonction est ainsi fait :
Code:

1 2 3 4 code... ShowMessage(IntToStr(le_param_suspect)); une_var_type_int64 := une_fonction(un_param, le_param_suspect); code...
Donc, avant le ShowMessage qui ne s'exécute pas, il y a juste un ShowMessage qui s'exécute.

Salut, Yves, ;)

Citation:

Envoyé par tourlourou

Pour ton problème, pas d'idée, sinon en compliquant le code (au cas où)

Ben tu sais quoi ? Je trouve que c'est une très bonne idée, à laquelle je n'avais pas du tout pensé !
Je testerai demain au taf...

Bon, pour aller plus loin, le pourquoi de ces ShowMessage :
la fonction plante car j'ai bien l'impression que mon int64 avant l'appel de la fonction est transformé en longint à l'entrée de la fonction.
Comment je le sais ?
D'abord, "le_param_suspect" est bien déclaré en tant que int64, ensuite, la valeur affichée par le ShowMessage vaut 22xxyyyzzz,
soit plus qu'un longint (max 2147_et_quelques), et à l'entrée de la fonction
(curieux, le fonctionnement de l'EDI : en pas-à-pas détaillé, la première ligne de débogage est la ligne d'entrée
function une_fonction(var Buffer; Count: int64): int64; [jamais vu ça sous Delphi...])
je lis -20abcdefgh en mettant la souris sur "Count" :aie:
Bizarre, non ?
Au plaisir de vous lire,
22/06/2011, 06h56
DOLPat®

Bonjour

Comme il est difficile de se prononcer sans le code source, l'idéal serait que tu nous donne le code appelant la fonction ainsi que la fonction elle-même.

Je persiste à penser que le problème est en amont, avant l'appel de la fonction. Il est possible qu'une variable soit écrasée. Le fait que ton Count ait une valeur farfelue semble aller dans ce sens. Apparemment, tu travailles avec des pointeurs, c'est peut-être de ce côté qu'il faut regarder. On a vite fait d'écrire à un mauvais endroit de la mémoire si l'on fait une erreur sur un pointeur. Si c'est un emplacement non assigné, on aura une erreur d'exception, mais dans certains cas, l'exécution se poursuit et alors bonjour les surprises...

En dernière possibilité, cela peut aussi être un bug Lazarus et dans ce cas, il serait bon (une fois certain que s'en est un) d'ouvrir un rapport de bug sur le bugtracker... (quelle version utilises-tu ?

1 pièce(s) jointe(s)

Bonjour,

Alors, Yves, ton idée était sympathique mais le mode pas-à-pas (depuis la fonction appelante) me surligne la ligne "function...", puis la ligne "begin", puis saute directement à "Dec(Count)" en zappant les deux lignes qui précèdent. Mystère complet... :cry:

Patrick, j'utilise la 0.9.30 avec FPC 2.4.2, SVN 29749.
Quand au code, il fonctionne très bien avec des fichiers inférieurs à 2,147 Go, et je fais joujou avec zlib et les choses qui tournent autour, en l'occurence un fichier SciZipFile.pas (merci google) qui contient (fonction appelante)

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
function TZipFile.GetUncompressed(i: integer): string;
const
  LENBUFF = 512;
var
  Decompressor: TDecompressionStream;
  UncompressedStream: TStringStream;
  FlatFileStream: TStringStream;
  Aheader: string;
  //ReadBytes: integer; // et pour les fichiers > 2 Go ???
  ReadBytes: int64; // et pour les fichiers > 2 Go ???
  LoadedCrc32: DWORD;
  tmp: Array[0..LENBUFF] of AnsiChar;
begin
  if (i < 0) or (i > High(Files)) then
    raise Exception.Create('Index out of range in function TZipFile.GetUncompressed.');
 
  if Files[i].CommonFileHeader.CompressedSize <> Files[i].CommonFileHeader.UncompressedSize then
  begin
    Aheader := chr(120) + chr(156); //manufacture a 2 byte header for zlib; 4 byte footer is not required.
    UncompressedStream := TStringStream.Create(Aheader + Files[i].CompressedData);
    try
      Decompressor := TDecompressionStream.Create(UncompressedStream);
      try
        SetLength(Result, Files[i].CommonFileHeader.UncompressedSize);
showmessage('compress : ' + IntToStr(Files[i].CommonFileHeader.CompressedSize)
  + ' -- uncompress : ' + IntTostr(Files[i].CommonFileHeader.unCompressedSize));// OK ici
        ReadBytes := Decompressor.Read(PChar(Result)^,
          Files[i].CommonFileHeader.UncompressedSize);   // crash si > 2.2 Go !
        //if ReadBytes <> integer(Files[i].CommonFileHeader.UncompressedSize) then
        if ReadBytes <> int64(Files[i].CommonFileHeader.UncompressedSize) then
          Result := '';
      finally
        Decompressor.Free;
      end;
    finally
      UncompressedStream.Free;
    end;
  end
  else
  ...

et la fonction appelée se trouve dans dzlib.pas,

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
//function TDecompressionStream.Read(var Buffer; Count: Longint): Longint;
function TDecompressionStream.Read(var Buffer; Count: int64): int64;
begin
  Inc(Count);
  ShowMessage(IntToStr(Count-1));
  Dec(Count);
  FZRec.next_out := @Buffer;
  FZRec.avail_out := Count;
  if FStrm.Position <> FStrmPos then FStrm.Position := FStrmPos;
  while (FZRec.avail_out > 0) do
  begin
    if FZRec.avail_in = 0 then
    begin
      FZRec.avail_in := FStrm.Read(FBuffer, sizeof(FBuffer));
      if FZRec.avail_in = 0 then
        begin
          Result := Count - FZRec.avail_out;
          Exit;
        end;
      FZRec.next_in := @FBuffer;
      FStrmPos := FStrm.Position;
      Progress(Self);  // plante ici
    end;
    CCheck(inflate(FZRec, 0));
  end;
  Result := Count;
end;

Bien sûr il m'a fallu modifier par ci par là des integer en int64, mais ça ne doit pas être ça le souci, je pense.
Enfin, pour essayer d'y voir clair, j'ai tenté ça

Code:

1
2
3
        tmp64 := Files[i].CommonFileHeader.UncompressedSize;
showmessage(inttostr(tmp64));
        ReadBytes := Decompressor.Read(PChar(Result)^, tmp64);   // crash si > 2.2 Go !

mais ça ne change rien...

Merci de votre soutien,

22/06/2011, 10h00
Paul TOTH
c'est surprenant ton histoire.

comme je n'utilise pas Lazarus je commencerais par vérifier le code de ShowMessage, est-ce la bonne fonction qui est appelée, ne contient-elle pas une condition spécifique ?

sinon, sous Windows, j'utilise souvent ceci qui est plus pratique je trouve:
Code:

1 2 3 4 5 6 7 8 .. uses Windows; ... begin AllocConsole; // ouvre la console si elle n'existe pas WriteLn('count = ',Count); end;
sous Linux je pense que le WriteLn doit envoyer vers la console de toute façon.
22/06/2011, 12h23
Jipété

Bonjour Paul,

Citation:

Envoyé par Paul TOTH

c'est surprenant ton histoire.

Halte au feu, je crois que j'ai trouvé !
Un mic-mac entre plusieurs dzlib.pas, le plus surprenant étant qu'à force de suivre des déclarations par Ctrl-clic, je me suis retrouvé avec un dzlib.pas ouvert dans l'EDI et ne faisant pas partie de mon petit projet, :aie:

Après correction mon ShowMessage est correctement exécuté, et avec la bonne valeur, :ccool:
Me reste plus qu'à continuer à débugger tout ce fourbi, développé à une époque où probablement on n'envisageait pas qu'un fichier puisse avoir une taille supérieure à 2,147 Go... :calim2:

Merci à tous et bon coding,