Ciao a tutti,
ho la necessità di effettuare l'upload di un file su uno spazio FTP, e
fin qui nessun problema; per non bloccare la finestra del mio
programma durante l'upload ho gestito il trasferimento all'interno di
un thread. L'upload funziona perfettamente ma vorrei gestire anche la
possibilità di bloccare il trasferimento e per fare questo ho inserito
il comando Abort del componente; qui nascono i problemi perchè una
volta eseguito l'Abort, mi appare giustamente l'errore della chiusura
del socket ma subito dopo mi appare l'errore "Nothing to Abort". Il
problema è che mi impedisce nuovi upload, se effettuo un altro
trasferimento si attiva correttamente il thread ma non invia niente.
Qualche indicazione o suggerimento per risolvere la cosa? Dove
sbaglio?
Grazie mille

procedure TMyThreadUpload.Execute;
begin
while NOT Terminated do
begin
try
UploadForm.IdFTP1.Put(UploadForm.FileListBox1.FileName,
CharFile, false);
MyThreadUpload.Suspend;
except on
E : Exception do
begin
Application.MessageBox(PChar('General error
encountered.'),PChar('Upload Function Message'), MB_OK);
end;
end;
end;
end;

procedure TUploadForm.Image2Click(Sender: TObject); //PROCEDURA CHE
GESTISCE L'ABORT
begin
MyThreadUpload.Suspend;
IdFTP1.Abort;
MyThreadUpload.Resume;
end;