方法一:例出ftp server 全部文件
方法二:
try
IdHTTP1.Get(aURL, tStream);
finally
tStream.Free;
end;
result := true;
except
on E: Exception do begin
if (Pos('Operation aborted', E.Message) >= 0) and AbortTransfer then begin
E.Message := '任务被拥护中断';
end;
if (Pos('404', E.Message) > 0) then begin
E.Message := '404:Ftp server没有该file!';
end;
showmessage('404:Ftp server没有该file!º' + E.Message);
end;
end;