|
ho risolto semplicemente uplodando un file su un server
if openDialog1.Execute then
begin
IdFTP1.Host:= 'systemgvp.altervista.org';
IdFTP1.Username:='systemgvp';
IdFTP1.Password:='netgvp';
IdFTP1.Connect; //connessione
IdFTP1.Put(openDialog1.FileName); //file da trasferire
IdFTP1.Abort; //disconnessione
ShowMessage(pchar('File trasferito'));
end;
| 
