Réception de Buffer par Record
Bonjour à tous et bonnes fêtes de fin d'années (en avance...;) ).
Je me suis inspiré de la Faq Delphi pour intégrer l'envoi d'un record par un buffer entre un client et un serveur. Enfet, j'envoie une commande au serveur qui me renvoie dans un buffer le record. Ensuite, j'extrais les infos du record et je les affichent dans différents Labels. Le problème est que je ne vois pas ces infos !
J'ai donc placé un IdLogFile pour observer le log et visiblement le buffer est reçu mais on dirai que les commandes qui viennent après ne sont pas exécutées ! Pour le savoir j'ai placé des ShowMessages avant et après la commande. Celui qui vient avant apârait, et celui qui est parès n'apparait pas... Bizarre..
Si vous avez une idée...
Voici les morceaux de code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Exécution de la commande');
Client.SendCmd('GetSysInfo');
ShowMessage('Commande Exécutée');
try
Client.ReadBuffer(SysRecordClient, Sizeof(SysRecordCLient));
except
ShowMessage('Ajout erreur');
end;
comp_name.Caption:=SysRecordClient.CompName;
ShowMessage('Comp Name = ' + SysRecordCLient.compName);
win_vers.Caption:=SysRecordClient.WinVers;
timeOn.Caption:=SysRecordClient.TempsOn;
sessionOn.caption:=SysRecordClient.SessionOn;
ShowMessage('Terminé');
end; |
