Discussion :

[Leobaillard]

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 :

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 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;

[tourlourou]

cela ne marcherait-il pas mieux si SysRecordClient était un pointeur sur un TSysRecordClient, avec un truc du style
Client.ReadBuffer(SysRecordClient^, Sizeof(TSysRecordCLient)); ?

[Leobaillard]

Je vais essayer... Il faut mettre le "^" ?

Client.ReadBuffer(SysRecordClient^, Sizeof(TSysRecordCLient));

[Leobaillard]

Merci beaucoup !!!!!!!!!!!!!!!!!!!!!

Joyeux noël et vive Delphi !