Enviar archivos Indy 10

[maurici0]

En efecto, viendo la pagina que me dices, esta lo que necesito, solo que la instrucción TIdStreamVCL no la tengo, nose si cambie en alguna versión o algo asi, he revisado mi libreria y si tengo el archivo TIdStreamVCL.dcu, y he buscado cual es la que sustituye a esa y no encuentro nada, espero alguien me pueda ayudar, gracias!

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
var
 LWrapper : TIdStreamVCL;
 LStreamSize : int64;
begin
 IdTCPClient1.Connect;
 try
   LWrapper := TIdStreamVCL.Create(TFileStream.Create('c:\test.txt',fmOpenRead), True);
   try
      {Récupérer la taille du flux original}
      LStreamSize := LWrapper.VCLStream.Size;
      {Envoyer la taille}
      IdTCPClient1.IOHandler.Write(LStreamSize);
      {Envoyer le flux}
      IdTCPClient1.IOHandler.Write(LWrapper, 0);
   finally
      FreeAndNil(LWrapper);
   end;
 finally
   IdTCPClient1.Disconnect;
 end;
end;

[[ElKurgan]]

¿Tienes bien instaladas las Indy 10?

Porque yo encuentro su definición en la Unit "IdStreamVCL.pas"

Un saludo

[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.