使用indy http方式上传文件

最新推荐文章于 2020-09-17 17:13:19 发布

jasonao

最新推荐文章于 2020-09-17 17:13:19 发布

阅读量1.4k

点赞数

文章标签： exception integer

本文链接：https://blog.csdn.net/jasonao/article/details/1844684

版权

这段代码展示了如何使用 Indy 的 TIdHTTP 组件通过 HTTP 协议上传文件。它创建了一个 TIdMultiPartFormDataStream 对象来添加文件，然后调用 Post 方法将文件发送到指定 URL。如果在上传过程中发生异常，错误信息会被记录下来。

摘要由CSDN通过智能技术生成

procedure TMainForm.Upload;
var
MutPartForm: TIdMultiPartFormDataStream;
i: Integer;
FileItem: TFileItem;
IdHTTP: TIdHTTP;
sl: TStringList;
begin
sl := TStringList.Create;
for i := 0 to FFiles.Count - 1 do
begin
    MutPartForm := TIdMultiPartFormDataStream.Create;
    IdHTTP := TIdHTTP.Create(nil);
    try
      try
        IdHTTP.HandleRedirects := True;
        FileItem := TFileItem(FFiles[i]);
        MutPartForm.AddFile('userfile', FileItem.FilePath, 'text/plain');
        IdHTTP.Post(FPostURL, MutPartForm);
        sl.Add('上传文件成功:' + FileItem.FilePath);
      except
      on E: Exception do
        begin
          sl.Add('上传文件失败:' + FileItem.FilePath + ' Message:' + E.Message);
        end;
      end;
    finally
      MutPartForm.Free;
      IdHTTP.Free;
    end;
end;
sl.SaveToFile(ExtractFilePath(Application.ExeName) + 'Post.log');
sl.Free;
end;