1

我有一个程序充当 Web 服务器和用户之间的接口，允许用户将文件上传到 Web 服务器。当用户单击“上传”时，它会从列表视图中获取信息并将其发送到网站，第一个 http.Post 用于实际文件，第二个用于我存储的有关它的元数据。

当我注释掉第一个 Post 语句时，它工作正常并且实际上发布了数据，但是当它们都在那里时，它似乎没有得到第二个的任何参数。当我在 Web 浏览器中使用 Param 中的值运行脚本时，它也可以工作。

UFile 是包含文件元数据的记录。

  IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create;
  http := TIdHTTP.Create(nil);
  http.IOHandler := IOHandler;
  Param := TStringList.Create;
  DataParams := TIdMultiPartFormDataStream.Create;
  Stream := TStringStream.Create('');
  DebugStream := TStringStream.Create('');

  Param.Add('serial='+UFile.Serial);
  Param.Add('filename='+UFile.Name);
  Param.Add('filepath='+'\'+UFile.Serial+'\'+IntToStr(UFile.PatchID));
  Param.Add('patchid='+IntToStr(UFile.PatchID));
  Param.Add('patchnotes='+UFile.PatchNotes);
  Param.Add('earliestversion='+UFile.EarliestVersion);
  Param.Add('latestversion='+UFile.LatestVersion);
  Param.Add('date='+DateToStr(UFile.Date));
  Param.Add('execaftersend='+BoolToStr(UFile.ExecAfterSend));

  DataParams.AddFile('file', UFile.FilePath, 'application/octet-stream');

  try
    http.Post('http://example.com/postFile.php', DataParams, Stream);
    ShowMessage(Stream.DataString);
    http.Post('http://example.com/uploadFiles.php', Param, DebugStream);
    ShowMessage(DebugStream.DataString);
    for J := 0 to Pred(Param.Count) do
      DebugStrings := DebugStrings + '&' + Param.Strings[J];
    ShowMessage(DebugStrings);
  except
    on E: EIdHTTPProtocolException do
    begin
      ShowMessage('Error code:' + IntToStr(E.ErrorCode));
    end
  end;
4

1 回答 1

0

虽然这并不能真正解决做两个帖子的问题，但它确实允许您上传包含其他数据的文件，这就是我开始做两个帖子的原因。

使用 TIdMultiPartFormDataStream 并添加您的文件 AddFile，并使用 AddFormField 添加任何其他数据。

例子：

  DataParams.AddFile('file', UFile.FilePath, 'application/octet-stream');
  DataParams.AddFormField('serial', UFile.Serial);
  DataParams.AddFormField('filename', UFile.Name);
于 2013-06-24T14:15:41.283 回答