Discussion :

[BraDim]

Bonjour,

j'utilise une dll (AffichDial1) qui compose un appel téléphonique et qui joue un fichier wav sur le modem dans 2 boucles for imbriquées.

le problème est qu'il sort de la seconde boucle (après AffichDial1 et ne fait pas le DataModule1.ClientDataSetQueryParam.Next) et continue sur la première.

voici le code :

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
 
For i:=0 to Z do
begin
   FaireRequeteQueryParam('SELECT * FROM AppelPhone WHERE indexligne='+IntToStr((i+1)*100)+' AND IndexAppel='+IntToStr(TabLignes[i].lAction[7].Option1)+'');
   n:=DataModule1.ClientDataSetQueryParam.RecordCount;
   if n>0 then
   begin
      DataModule1.ClientDataSetQueryParam.First;
      For j:=0 to n-1 do
      begin
         NumAppel:=DataModule1.ClientDataSetQueryParam.FieldByName('NumAppel').AsString;
         FichierWav:=DataModule1.ClientDataSetQueryParam.FieldByName('FichierWav').AsString;
         AffichDial1(TrameDial1+NumAppel+'='+Chemin+'\'+TabLignes[i].lligne+'\'+FichierWav);
         DataModule1.ClientDataSetQueryParam.Next;
       end;
   end;
end;

[Caine]

Tu as testé la valeur de n?

Peux être que tu as un problème avec tes requêtes plus qu'avec tes boucles

[BraDim]

En fait, pour i=0, n=2; AffichDial1 est lancé une premère fois. dans la procedure de dll correspondant à AffichDial1, je fais un create et c'est là qu'il sort et qu'il revient à i=2 sans faire le j=1 tout de suite. Par contre, dès qu'il a fini la procedure de dll correspondant à AffichDial1, il revient sur "DataModule1.ClientDataSetQueryParam.Next;" mais entre temps il a lancé d'autres requête et le recordcount vaut 0 alors qu'il valait 2 avant.

Bizarre, Bizarre,

[Caine]

Je ne comprends pas bien là, i passe de 0 à 2 juste après AffDial1 ? Si c'est le cas, il y a un problème de réentrance je pense.

Précises un peu que je te suives mieux.

[BraDim]

un problème de Raie en Trance?? je plaisante
En fait, i passe de 0 à 1 sans faire le fin de sa boucle ("DataModule1.ClientDataSetQueryParam.Next;")

[Caine]

C'est impossible, garanti par le langage.

Comment déduis-tu qu'il n'exécute pas la fin de la boucle?