Hola a tod@s:
Pue eso mismo. Mis aplicaciones tienen un ftp que les permite subir y bajar documentos a una web. Todo funciona correctamente. Suben y bajan datos sin problema alguno.
Ahora he colocado un Progressbar para mostrar la transferencia de los datos, pero aqui es donde me ha surgido el problema.
Cómo indico cuánto le falta para subir? (por ejemplo en kb). ¿Cómo hago para que el progressbar se actualice según se suben estos datos?
Indico aqui el código que utilizo actualmente.
Código Delphi
[-]
procedure TfrmFTP.Button2Click(Sender: TObject);
begin
progressbar1.Position:=0;
ftp1.Host:='ftp.misitio.com';
ftp1.Username:='usuario';
ftp1.Password:='password';
ftp1.Port:=21;
ftp1.Connect();
progressbar1.Position:=20;
if checkbox1.Checked then
ftp1.Put('base1.mdb','base1.mdb',false);
progressbar1.Position:=40;
if checkbox2.Checked then
ftp1.Put('base2.mdb','base2.mdb',false);
progressbar1.Position:=60;
if checkbox3.Checked then
ftp1.Put('base3.mdb','base3.mdb',false);
progressbar1.Position:=80;
if checkbox4.Checked then
ftp1.Put('base4.mdb','base4.mdb',false);
progressbar1.Position:=100;
ftp1.Disconnect;
timer1.Enabled:=true;
end;
procedure TfrmFTP.Timer1Timer(Sender: TObject);
begin
timer1.Enabled:=false;
frmFTP.close;
end;