1 respuesta en este tema

[luis_chendo]

Hola amigos, espero la esten pasando bien, estoy desarrollando una aplicacion y necesito enviar un archivo por ftp, encontré como hacerlo con INDY, y buscando me tope con un código, que envia archivos a un servidor y muestra una progressbar para indicar el avance, lo adapte a mi programa para que lea un archivo de texto que guarda las configuraciones del ftp.
Mi problema es que me marca un error de ftpwork undeclared identifier.
Espero su ayuda y de antemano gracias.

delphi

procedure SubirArchivo( sArchivo: String );
var
  FTP: TIdFTP;
  F: File of byte;
  configINI:TiniFile;
  archivo: String;
  servidorftp: String;
  usuarioftp: String;
  passftp: String;
begin
 try
   configINI:=Tinifile.Create('C:\Transfersii\config.ini');
   archivo:=configINI.ReadString('Configuracion','Dependencia','');
   servidorftp:=configINI.ReadString('Configuracion','Servirdor','');
   usuarioftp:=configINI.ReadString('Configuracion','Usuario','');
   passftp:=configINI.ReadString('Configuracion','Password','');
  finally
    configINI.Free;
  end;
  FTP := TIdFTP.Create( nil );
  AssignFile( F, sArchivo );
  Reset( F );
  Barra.Max:= FileSize( F ) div 1024;
  CloseFile( F );
  FTP.OnWork:=FTPWork;
  FTP.Username := usuarioftp;
  FTP.Password := passftp;
  FTP.Host := servidorftp;
  FTP.Port:=21;
  try
    FTP.Connect;
  except
    raise Exception.Create( 'No se ha podido conectar con el servidor ' + FTP.Host );
  end;
  FTP.ChangeDir( '/misarchivos/copiaseguridad/' );
 FTP.Put(sArchivo, ExtractFileName(sArchivo), False );
 FTP.Disconnect;
 FTP.Free;
end;
 
 
procedure TForm1.FTPWork( Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer );
begin
  Form1.Barra.Position:= AWorkCount div 1024;
end;

[poliburro]

AL parecer ha referencia a un evento no declarado. Cuál es la fuente de tu código?