Discussion :

[lemarquisien]

Bonjour à tous,
j'ai un problème que je n'arrive pas à régler avec le composant TWSocket de la librairie ICS.
Lorsque je transmet à 2 destinataires à la suite :

Code :

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

1
2
Transmit(FileToSend,'ORDI-1') ;
Transmit(FileToSend,'ORDI-2') ;

LE PROBLEME EST QUE il ne le transfère qu'à la 2ème adresse ...
On voit bien sur le memo qu'il n'a pas eu le temps d'envoyer le fichier à la 1ère adresse
memo :

Code :

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

1
2
3
4
Dns lookup 'ORDI-1'
Dns lookup 'ORDI-2'
Connecting to 192.168.0.99:503
Session connected 0 'No Error'

au lieu de :

Code :

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

1
2
3
4
5
6
Dns lookup 'ORDI-1'
Connecting to 192.168.0.98:503
Session connected 0 'No Error'
Dns lookup 'ORDI-2'
Connecting to 192.168.0.99:503
Session connected 0 'No Error'

Merci de votre aide

[ShaiLeTroll]

C'est vilain, as-tu essayé un Sleep entre les deux (si la mise en réseau est asynchrone) ou au Application.ProcessMessages (très très vilain) ... je ne connais pas ICS, j'ai fait cela avec les composants D5 ou D7, ainsi que Indy en mode connecté via TCP\IP, semble que tu sois plutôt en UDP ...

Ce Mémo de Débug est rempli par quel moyen ?

[lemarquisien]

J'ai essayé un sleep mais ça ne fonctionne pas.
Par contre j'ai éssayé de le mettre dans un timer et ça fonctionne très bien

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
procedure TMainForm.TimerDataTransTimer(Sender: TObject);
begin
  if (boucle>NbPosteMethodeConnecte) Then
  begin
    TimerDataTrans.Enabled := False;
    exit;
  end;
  Transmit(PosteMethodeConnecte[boucle]);
  boucle := boucle+1;
  if (boucle>NbPosteMethodeConnecte) Then 
  begin
    boucle := 1;
    TimerDataTrans.Enabled := False;
  end;
end;

Merci toutefois de m'avoir répondu

[ShaiLeTroll]

Un Application.ProcessMessages aurait surement fait l'affaire, ... le Timer évidemment diffère énormément le traitement, c'est quand pas terrible ... tu n'as pas une fonction Flush, Commit ... qui éviterait ce genre de magouille