用Synapse上传文件

Question

我需要上传一个文件到网站rghost.net：

procedure TForm1.Button1Click(Sender: TObject);
var
  HTTP: THTTPSendEx;
  Data: TMultipartFormDataStream;
  sHTML: string; //Received HTML code from web
  upload_url, fireld_name: string;
begin
  upload_url:='http://kaon.rghost.ru/files';
  fireld_name:='file';
  if OpenDialog1.Execute then
  begin
    HTTP:=THTTPSEndEx.Create;
    HTTP.UserAgent:='Mozilla/5.0 (Windows; I; Windows NT 5.1; ru; rv:1.9.2.13) '+
                    'Gecko/20100101 Firefox/4.0';
    Data:=TMultipartFormDataStream.Create;
    try
      //Data.AddFile(fireld_name, OpenDialog1.FileName);
      Data.AddFile(fireld_name, OpenDialog1.Filename);
      Data.DataEnd;
      if HTTP.Post(upload_url,Data,sHTML) then
      begin
      end;
    finally
      FreeAndNil(HTTP);
      FreeAndNil(Data);
    end;
    Memo1.Text := sHTML;
    ShellExecute(Handle, 'open', 'page.html', nil, nil, SW_SHOWNORMAL);
  end;
end;

程序应该返回对文件的引用，但它返回：

500 -您的请求目前无法处理，因为服务器上有错误。

怎么啦？

Answer 1

错误之处就在于该消息的内容：服务器上的一个错误.

这可能意味着两件事之一。要么问题不在您的代码中，要么您无能为力，要么问题在您的代码中，而且网站正在返回错误的错误消息。不管是哪种方式，你都需要联系幕后的人，才能知道到底发生了什么。500级的错误是必须在其末端处理的事情，而不是你的错误。