Discussion :

[astrotouf]

salut a tous.voila j'utilise delphi 7 et j'essaye de faire une application pour mon TP reseau et j'utilise les sockets TServerSocket et TClientSocket pour la connexion de l'application client et serveur.
mon probleme est que je ne sais pas comment faire pour envoyer des donness autre que de type texte ( integer, boolean...etc).
la seule fonction que j'ai reussi a utiliser est Socket.SendText.
voila je vous remercie d'avance pour vos reponses.

[ShaiLeTroll]

Tient voilà du code de mon application à bordel, cela peut te donner des idées

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
procedure TFrmShowJPEG.BtnSendClick(Sender: TObject);
var
   Index: Integer;
   DummyJPEg: TJPEGImage;
   DummyBitmap: TBitmap;
   DummyStream: TMemoryStream;
begin
   DummyJPEg := TJPEGImage.Create();
   try
      DummyBitmap := TBitmap.Create();
      try
         DummyStream := TMemoryStream.Create();
         try
            DummyBitmap.Assign(ImageWithDate.Picture.Bitmap);
            DummyBitmap.Canvas.TextOut(0, 0, 'Copy');
            // DummyBitmap.SaveToStream(DummyStream);
            DummyJPEg.Assign(DummyBitmap);
            DummyJPEg.SaveToStream(DummyStream);
 
            if DummyStream.Size > 0 then
            begin
               for Index := 0 to ServerSocketJPEG.Socket.ActiveConnections - 1 do
               begin
                  if ServerSocketJPEG.Socket.Connections[Index].Connected then
                     ServerSocketJPEG.Socket.Connections[Index].SendBuf(DummyStream.Memory^, DummyStream.Size);
                     begin
                        lblRead.Caption := 'Envoyé ...';
                     end;
                     Application.ProcessMessages();
               end;
            end else
            begin
               lblRead.Caption := 'Stream Vide ...';
            end;
 
         finally
            DummyStream.Free(); // Voir l'aide de Delphi pour le TCustomWinSocket.SendStream
         end;
      finally
         DummyBitmap.Free();
      end;
   finally
      DummyJPEg.Free();
   end;
end;
 
procedure TFrmShowJPEG.ClientSocketJPEGRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
   DummyStream: TMemoryStream;
   DummyJPEg: TJPEGImage;
   Count, TotalCount: Integer;
   Buffer: Pointer;
begin
   ClientSocketJPEG.OnRead := nil;
   try
     lblRead.Caption := 'Réception ...'; lblRead.Refresh();
     try
        DummyStream := TMemoryStream.Create();
        try
           Count := 0;
           TotalCount := 0;
 
           repeat
             lblRead.Caption := 'Réception ... ' + IntToStr(Socket.ReceiveLength) + ' / ' + IntToStr(TotalCount) + '                 '; lblRead.Refresh();
             DummyStream.SetSize(TotalCount+Socket.ReceiveLength);
             Count := Socket.ReceiveBuf(Pointer(Integer(DummyStream.Memory)+TotalCount)^, Socket.ReceiveLength);
             Inc(TotalCount, Count);
 
             MemoLog.Lines.Add(lblRead.Caption);
             Application.ProcessMessages();
           until Count <= 0;
 
           DummyJPEg := TJPEGImage.Create();
           try
              DummyJPEg.LoadFromStream(DummyStream);
              ImageRead.Picture.Bitmap.Assign(DummyJPEg);
 
           finally
              DummyJPEg.Free();
           end;
        finally
           DummyStream.Free();
        end;
 
        lblRead.Caption := 'Terminé !';
     except
        lblRead.Caption := 'Except : ' + Exception(ExceptObject).Message;
     end;
  finally
     ClientSocketJPEG.OnRead := ClientSocketJPEGRead;
  end;
end;

[Sub0]

Salut!

Perso, je me servirait de la démo de Nono40 comme base de mon code. Il permet de transférer un fichier, et donc, n'importe quel type de donnée...

http://nono40.developpez.com/sources/source0015/

Tu peux aussi envisager d'utiliser les fichiers typés, les enregistrements, etc, afin de sauver tes objets / tes données dans un stream et réaliser son transfert...

http://www.developpez.net/forums/sho...=216030&page=2
http://delphi.developpez.com/faq/?pa...ringdanstsream

[astrotouf]

merci a tous.
vos methodes marchent toutes.

[Sub0]

le tag (bouton en bas de cette fenêtre)