Enviar y recibir archivos binarios sockets

[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

[maxinitto]

es que mira el codigo conforme lo copio de aki me tira error, yo estoy modificando algunas cosas mira lo estoy dejando en un procedimiento

Código Delphi [-]
procedure EnviarArchivo(nombre : string);
var
  St:TFileStream;
begin
try

  If nombre <> '' then begin
    st:=TFileStream.Create(nombre ,fmopenread);
   // en esta linea envio el nombre del arhicvo y el tamaño.
    Form1.s3.Socket.WriteLn('CMD#SNDFile#'+ExtractFileName(nombre)+'#'+IntToStr(st.Size));
   // luego de enviar el mensaje, leo el Buffer para ver si respondio que podia recibir el archivo.
    if Form1.s3.Socket.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;

en esta linea no aparece ningun metodo ni procemiento que haga write stream, s3 es el nombre del componente IdTCPClient, ya que uso conexion inversa, luego entonces el codigo se usa al reves tu me entiendes... ejejej

Código Delphi [-]
client.WriteStream(st,true,true,st.Size);

[Enan0]

Tendrias que Reemplazar CLIENT por S3 que es tu componente de Sockets

[maxinitto]

eso es lo que hago pero me da error dice que el componente no cuenta con dicha propiedad o metodo

[Enan0]

Mira te recomiendo que busques en la lista de metodos y verifica cual envia un Stream. ya que yo no dispongo Delphi 2009 pero los metodos no varian mucho.

saludos