Enviar y recibir archivos binarios sockets

[Enan0]

Hola Maxinito, Te comento, esto es muy sencillo, Creo que en D2009 ya viene con los componentes Indy.

La teoria es la siguiente. (por lo menos asi lo Hago yo).

Primero Mando un mensaje desde el origen, con El nombre del archivo y el Tamaño.
en el Receptor tomo el nombre del archivo y el Tamaño.
Luego envio un Stream desde el Origen.
En el receptor, Recibo el Stream hasta que el tamaño sea el mismo que en el Cliente.


El codigo esta hecho para componentes Indy 10

saludos

Código Delphi [-]
procedure Cliente.SendFile(Sender: TObject);
var
  St:TFileStream;
begin
try
//SendFile es un FileListBox

  SendFile.InitialDir:=ExtractFilePath(ParamStr(0));
  SendFile.Execute;
  If SendFile.FileName<>'' then begin
    st:=TFileStream.Create(SendFile.FileName,fmopenread);
   // en esta linea envio el nombre del arhicvo y el tamaño. 
    Client.WriteLn('CMD#SNDFile#'+ExtractFileName(SendFile.FileName)+'#'+IntToStr(st.Size));
   // luego de enviar el mensaje, leo el Buffer para ver si respondio que podia recibir el archivo.
    if Client.ReadLn='RCVFile#Ready' then begin
      Try
// envio el Stream
        client.WriteStream(st,true,true,st.Size);
      except
      end;
    end else
      ShowMessage('Cant Send the File');
  end;
finally
  St.Free;
end;
end;

Código Delphi [-]

//las Variables RcvFile, FileName y Size son globales
procedure Server.ServerExecute(AThread: TIdPeerThread);
begin
if RcvFile then begin
  Try
    if st.Sizethen begin
      // Mientras que el tamaño del Stream sea menor que el Tamaño especificado sigue recibiendo como Stream
      AThread.Connection.ReadStream(st);
    end;
// Si el Tamaño de Stream es igual al que se habia informado al comienzo es que termino de Recibir y pone la clausula rcvFile en false
    if st.Size=size then begin
      RcvFile:=false;
      size:=0;
      st.free;
// Le dice al Cliente que el archivo fue ok.
      AThread.Connection.WriteLn('RESP#File received OK');
      FileName:='';
      exit;
    end;
  except
    AThread.Connection.WriteLn('RESP#File Not Received');
    RcvFile:=false;
    size:=0;
    st.free;
    if FileExists(FileName) then
      DeleteFile(FileName);
    FileName:='';
    exit;
  end;
end;
   If pos('SNDFile',s)<>0 then begin
        Delete(s,1,pos('#',s));
        Filename:=copy(s,1,pos('#',s)-1);
        delete(s,1,pos('#',s));
        size:=StrToInt(s);
        st:=TFileStream.Create(FileName,fmCreate);
        AThread.Connection.WriteLn('RCVFile#Ready');
        RcvFile:=true;
      end

Este Codigo envia esos mensajes y utiliza laClausula RcvFile ya que utilizo el mismo Socket para todo.

Otra opcion seria abrir una nueva comunicacion por un puerto distinto y se podria continuar recibiendo mensajes mientras se recibe el archivo, en el caso que se trate de un Chat.

saludos y espero que sea util.

[maxinitto]

voy a probarlo tiene buena pinta es facil y comprensible el codigo aunque me hubiese gustado mejor el codigo para usarlo con los componentes socket que trae por defecto delphi 2009 y no los indy pero bueno aun asi te doy mil gracias saludos.

edito: que componente tengo que añadir de la paleta indy 10 para que no me tire errores de objeto no declarado?

[Enan0]

Pero.. D2009 no trae los indy?.. yo habria jurado que si.

Bueno no cambia mucho, Siemplemente mandas un Stream.
si tengo un rato me fijo como seria.

[maxinitto]

pues claro que trae los indy , los indy 10 pero te pregunto que, que componente de esa paleta tengo que añadir al form jejejej

[Enan0]

Bueno yo utilize para ese ejemplo en uno. Un server IDTCPserver Que utiliza hilos, si no estas familiarizado con ellos podes usar un idSimpleServer.

y en otro proyecto un idTCPClient. este caso era porque usaba solo una conexion a un unico Server.

Las variantes te las dejo a vos.


Aclaracion:

el procedimiento Server.ServerExecute (...) es el OnExecute del componente idTCPServer.

espero que te quede claro y sino cualquier cosa decime.

ya que es lo mismo que enviar mensajes (TExto) solo que usamos el Procedimiento WriteStream() para enviar y el ReadStream() para recibir

saludos

[maxinitto]

podias explicarme donde he de poner el codigo del cliente xk es que me tira errores jejejejejej perdona por ser pesadin jejejejejeje

[Enan0]

Mira el codigo del cliente va en un Boton.. o una accion.. Simplemente eso.
si queres comparti tu codigo y que error te tira y asi puedo asistirte..

saludo