Enviar y recibir archivos binarios sockets

[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

[maxinitto]

bueno pues nada aver si alguien me puede ayudar , que aun sigo con mi problema de no tener un codigo para enviar archivos y recibirlo

[beginner01]

saludos.

revisa este enlace a ver si es lo que nesesitas.

[maxinitto]

hola:

ese codigo lo he probado y no va tira error de socket o no se....

aki pongo una img del error:

http://imageshack.us/photo/my-images...inttulocd.jpg/