如何使用Synapse將文件上載到服務器

我試圖使用庫THTTPSendEx上載文件。如何使用Synapse將文件上載到服務器

我的代碼：

procedure TForm1.Button1Click(Sender: TObject); 
var 
HTTP:THTTPSendEx; 
Data:TMultipartFormDataStream; 
sHTML:string; //Recived HTML code from web 
begin 
if OpenDialog1.Execute then 
begin 
HTTP:=THTTPSEndEx.Create; 
Data:=TMultipartFormDataStream.Create; 
try 
    Data.AddFile('myFile', OpenDialog1.FileName); 
    Data.DataEnd; 
    if HTTP.Post('http://kaon.rghost.ru/files',Data,sHTML) then 
    begin 
    //Connection established 
    //Check HTTP response 
    if HTTP.IsSuccessfull then //HTTP returns "200 OK" code. 
    begin 
    ShowMessage('File successfully posted to the server.'); 
    end; 
    end else 
    begin 
    ShowMessage('Can not establish a connection to the server...'+#13+'Network is not avaliable or server socket does not exist.'); 
    end; 
finally 
    FreeAndNil(HTTP); 
    FreeAndNil(Data); 
end; 
end; 
end;

但是不打印。提示什麼問題？

我的翻譯不好對不起，我用谷歌翻譯器

UPDATE：爲PHP

工作例如：

$ url = 'http://kaon.rghost.ru/files'; 
$ FILENAME = 'add.png'; 

$ files = array ('file' => '@'. $ FILENAME); 
   
$ useragent = 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv: 1.9.0.3) Gecko/2008092417 Firefox/3.0.3'; 

   $ ch = curl_init ($ url); 
   curl_setopt ($ ch, CURLOPT_HTTPHEADER, array ("Content-type: multipart/form-data")); 
   curl_setopt ($ ch, CURLOPT_HEADER, 1); 
   curl_setopt ($ ch, CURLOPT_RETURNTRANSFER, 1); 
   curl_setopt ($ ch, CURLOPT_USERAGENT, $ useragent); 
   curl_setopt ($ ch, CURLOPT_POSTFIELDS, $ files); 
   $ response = curl_exec ($ ch); 

   echo $ response;

來源

2014-07-21 Muhammad

你有沒有嘗試單步調試器中的代碼？當你做什麼時會發生什麼？ –

不，我沒有試過。代碼取自： http://stackoverflow.com/questions/11471513/how-to-send-a-file-and-other-post-data-with-synapse – Muhammad

如果你不能被打擾爲了努力解決你自己的問題，我們爲什麼要這樣做？此外，您發佈的PHP代碼完全是多餘的，與Delphi問題無關。 –

對於文件發佈，任何Web站點需要使用Cookie和/或爲文件發送參數和/或有效的輸入字段名稱。這至少需要將文件發佈到服務器。

你只是複製示例，粘貼你的網址和加載文件流。不，這不起作用。

我沒有看到任何rghost.ru文件發佈在您的代碼所需的東西。

來源

2014-07-21 14:29:20 AlexLL

不，這裏不需要cookies，我的php腳本上傳文件沒有問題：請看看我上面發佈的代碼kotryj – Muhammad

我再說一遍：你沒有在編碼之前瀏覽網站。帶文件的輸入字段命名爲「選擇」 – AlexLL

我研究了它，並編寫了一個運行upload php的腳本。只需發送兩個值：文件（字段的名稱 - 「文件」）和標記（字段名稱 - 「authenticity_token」）。第二個參數是可選的，沒有它，上傳成功。 – Muhammad

如何使用Synapse將文件上載到服務器

回答

相關問題