Enviar y recibir archivos binarios sockets

[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

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