Enviar archivos Indy 10

[maurici0]

Pues tengo el delphi 2009 lite... no le he tocado absolutamente nada, de hecho baje el indy10 de la pagina y al compilar los

IndySystemX0.dpk (in Lib\System) <- Me sale 3 errores (seleccione el 120)
IndyCoreX0.dpk (in Lib\Core) -> me sale 1 error
IndyProtocolsX0.dpk (in Lib\Protocols) -> ya ni lo intente.

[maurici0]

Bueno al final lo hice de otra manera pero se pudo:

Cliente:

Código Delphi [-]
procedure TForm4.Button1Click(Sender: TObject);
var
   FStream: TFileStream;

begin
  //Creamos conexion
  IdTCPClient1.Host:='127.0.0.1'; //Prueba local
  IdTCPClient1.Port:=1050;
  IdTCPClient1.Connect;
  IdTCPClient1.Socket.WriteLn(mensaje.text); //Tomo un mensaje escrito

  FStream := TFileStream.Create('C:\cliente.jpg', fmOpenRead); //Busco el archivo que quiero pasar
  try
    IdTCPClient1.IOHandler.Write(Fstream,0,true); //Mando archivo
  finally
    IdTCPClient1.Disconnect;
  end;
  FreeAndNil(FStream);

  IdTCPClient1.Disconnect;

end;

Servidor:

Código Delphi [-]
procedure TForm5.IdTCPServer1Execute(AContext: TIdContext);
var
sMensaje: String;
  s, sCommand, sAction : string;
    fStream : TFileStream;

begin
  //Traigo y  muestro mensaje
  sMensaje := AContext.Connection.Socket.ReadLn;
  Mensaje.Lines.Add( 'De: ' + AContext.Binding.PeerIP );
  Mensaje.Lines.Add( 'Mensaje: ' + sMensaje );
  //Guardo archivo enviado
  FStream := TFileStream.Create('C:\prueba\servidor.jpg', fmCreate);
  try
    AContext.connection.IOHandler.ReadStream(fstream);
  finally
    AContext.connection.Disconnect;
  end;
  FreeAndNil(FStream);

end;

Espero que a alguien le sirva , gracias a ElKurgan por su tiempo.