IdHttp.Get获取文件
if FileExists('.\Images\' + FilePath + '\' + FileName) then tStream := TFileStream.Create('.\Images\' + FilePath + '\' + FileName,fmOpenWrite) else tStream := TFileStream.Create('.\Images\' + FilePath + '\' + FileName,fmCreate); try IdHttp.Get(URL + FileName,tStream); tStream.Free except tStream.Free ; DeleteFile('.\Images\' + FilePath + '\' + FileName) ; end;