Comment on envoie un fichier d'un poste à un autre?

Question

Bonjour,
J'ai fait un programme de discution et j'aimerai envoyer un fichier (image, exe...) vers un autre poste. Comment faut-il faire?
J'utilise delphi 7 avec les clientsocket et serversocket.

Si ce n'est pas faisable avec les sockets, pouvez vous me dire quelle est la procédure a suivre.
Merci

@+
MAX

joetecher · Answer

Si sa peut t'aider voila un petit exemple :

Server :

 Socket.SendStream(TFileStream.Create(Filename, fmCreate or fmOpenread));

Client :

var
  iLen: Integer;
  Buffer: Pointer;
  FStream: TFileStream;
begin
     if not Assigned(FStream)then
      begin
       FStream := TFileStream.Create(Fichier.Nom, fmCreate);
       FStream.Position:=0;
      end;
     iLen := Socket.ReceiveLength;
     GetMem(Buffer, iLen);
     try
      Socket.ReceiveBuf(Buffer^, iLen);
      FStream.Write(Buffer^, iLen);
     finally
       FreeMem(Buffer);
     end;
end;

joe .......

Comment on envoie un fichier d'un poste à un autre?

1 réponse

Votre réponse

Discussions similaires