Socket et envoi d'image

salut les devloppeurs

je suis entraine de realiser une application client/serveur qui sert à envoyer des images de la part du client vers le serveur, et le stockés dan ce dernier dans une bdd.

mon pb est coment je peux envoyer une image avec TClientSocket et comment je peux la récupérrer avec TServerSocket?.

merci a l'avance.

j'étais persuadé d'avoir posté un truc vite fair sur ce forum, bon je le remet, un bout de code qui pourra t'inspirer

Code:

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

Code:

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

avec SendBuf et ReceiveBuf, jette un oeil à ce fil de discussion :
http://www.developpez.net/forums/sho...d.php?t=117622

Là aussi, ça peut t'aider :
http://developpez.net/forums/showthread.php?t=117342

là (:king: ) :
http://www.developpez.net/forums/sho...d.php?t=230550

Et surtout ceci :
http://www.developpez.net/forums/sho...d.php?t=152203

Ceci :
http://www.developpez.net/forums/sho...d.php?t=139071

Excuses moi de n'avoir pas réécris ce que j'ai déjà écrit dans ces fil de discussion.
En tout cas, bon courage ;)