錯誤500使用Delphi Indy上傳文件失敗

Question

我正在嘗試將文件上傳到oboom.com我成功登錄但是當嘗試發布文件時我得到了該錯誤

HTTP / 1.1500內部服務器錯誤。

用這個respose文本

[500,"illegal post header","Content-Transfer-Encoding"]

procedure TForm1.Button1Click(Sender: TObject);
var
  S: tstringlist;
  html: string;
  clHttpRequest1: tclHttpRequest;
  SSLIOHandlerSocketOpenSSL: TIdSSLIOHandlerSocketOpenSSL;
  params: TIdMultiPartFormDataStream;
  HTTP, HTTP2: tidhttp;
begin
  params := TIdMultiPartFormDataStream.Create;
  S := tstringlist.Create;
  HTTP2 := tidhttp.Create(nil);
  try
    cookie := tidcookiemanager.Create(nil);
    SSLIOHandlerSocketOpenSSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
    HTTP2.IOHandler := SSLIOHandlerSocketOpenSSL;
    HTTP2.HandleRedirects := False;
    HTTP2.ConnectTimeout := 10000;
    HTTP2.ReadTimeout := 10000;
    HTTP2.CookieManager := cookie;
    HTTP2.AllowCookies := True;
    HTTP2.Request.UserAgent :=
      'Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/33.0.1750.154 Safari/537.36';
    HTTP2.Request.ContentType := 'application/x-www-form-urlencoded';
    HTTP2.Request.ContentEncoding := 'gzip, deflate';
    HTTP2.Request.Accept := '*/*';
    HTTP2.Request.Connection := 'Keep-Alive';
    S.Values['auth'] := 'email@gmail.com';
    S.Values['pass'] := 'password';
    S.Values['app_id'] := '5hwaJUcDicXprlV3gjaB';
    S.Values['app_session'] := '288196272';
    html := HTTP2.Post('https://www.oboom.com/1.0/login', S);
  finally
    HTTP2.Free;
    S.Free;
  end;
  token := ExtractBetween(html, 'session":"', '"');
  try
    HTTP := tidhttp.Create;
    HTTP.HandleRedirects := True;
    HTTP.Request.Connection := 'keep-alive';
    HTTP.AllowCookies := True;
    HTTP.CookieManager := cookie;
    HTTP.Request.Referer := 'http://upload.oboom.com';
    HTTP.Request.ContentType :=
      'multipart/form-data; boundary=----------GI3Ef1cH2GI3gL6ae0Ef1KM7Ef1gL6';
    HTTP.Request.Accept := '*/*';
    HTTP.Request.AcceptEncoding := 'gzip,deflate';
    HTTP.ConnectTimeout := 20000;
    HTTP.ReadTimeout := 20000;
    HTTP.Request.UserAgent :=
      'Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/33.0.1750.154 Safari/537.36';
    params.AddFile('file', 'C:\Users\M\Pictures\Martin.jpg', );
    HTTP.Post('http://upload.oboom.com/1.0/ul?token=' + token +
      '&parent=1&name_policy=rename', params);
  finally
    HTTP.Free;
    params.Free;
    cookie.Free;
  end;
  memo1.Text := html;
end;

我用Google搜索了幾個小時的解決方案，但沒有運氣：/

試過這種方式：

 Params.AddFile('file', 'C:\Users\M\Pictures\Martin.jpg','application/octet-stream');
 Params.AddFile('file', 'C:\Users\M\Pictures\Martin.jpg','multipart/form-data');

但同樣的錯誤

我已經嘗試過聰明的互聯網功能並成功上傳文件，但我想使用indy ..

我使用delphi X3

Answer 1

你需要擺脫這些線：

HTTP2.Request.ContentEncoding := 'gzip, deflate';

HTTP.Request.AcceptEncoding := 'gzip,deflate';

TIdHTTP根據是否已分配和啟用Compressor屬性來為您管理這些值。 並且，您沒有發送壓縮請求，因此無論如何都不應使用這些值。

此外，你需要擺脫這一行：

HTTP.Request.ContentType :=
  'multipart/form-data; boundary=----------GI3Ef1cH2GI3gL6ae0Ef1KM7Ef1gL6';

Post()為您管理該值，尤其是TIdMultipartFormDtaStream動態生成的boundary 。

更新使用Content-Transfer-Encoding的唯一其他位置是TIdMultipartFormDataStream的各個字段。 每個TIdFormDataField都有一個ContentTransfer屬性。 AddFile()將其初始化為'binary' ，但您也可以將其設置為空字符串以禁用標題：

params.AddFile(...).ContentTransfer := '';