Enviar y recibir archivos binarios sockets

[maxinitto]

Hola:

Despues de buscar , buscar y rebuscar no he tenido valor a encontrarme con un codigo que funcione, he probado muchos de muchas pags incluyendo esta pag y nada no tengo valor a enviar y recibir archivos con los componentes sockets que trae delphi 2009 por defecto, y bueno el caso es que yo quiero enviar desde el servidor al cliente un archivo .dat y bueno aver si alguien me puede proporcionar algun codigo que funcione por que es que ya me rindo me he tirado aqui dias y dias buscando hasta en pags rusas y nada xd bueno el fin de esto es que estoy haciendo una aplicacion client/server y tengo un filemanager entonces yo al extraer todos los archivos y carpetas de un directorio uso una funcion que extrae el icono que tiene cada archivo o carpeta y ese icono lo almaceno en un TImageList en el server entonces guardo los recursos del imagelist en un archivo .dat para enviar al cliente y cargarlo en otro imagelist y cargar cada icono a su respectivo directorio o archivo en el cliente y eso jejee....

PD: Solo encontre para la verdad un codigo pero solo envia .txt y de peso limitado...

Gracias de antemano.

[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