시냅스를 사용하여 서버에 파일을 업로드하는 방법

Question

THTTPSendEx 라이브러리를 사용하여 파일을 업로드하려고합니다.

내 코드 :

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; 

하지만 아무것도 인쇄합니다. 어떤 문제가 발생했는지 알려주시겠습니까? PHP를위한

근무 예 : 내가 나쁜 번역 미안 해요

, 나는 구글 Translater에게

UPDATE 사용

$ 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; 

Answer 1

파일 게시가, 어떤 웹 사이트가 필요 쿠키와/또는 게시물 매개 변수 및/또는 파일의 유효한 입력 필드 이름. 파일을 서버에 게시하는 데 필요한 최소값입니다.

예제를 복사하여 URL을 붙여넣고 파일을로드하십시오. 아니,이 작동하지 않았다.

코드에 파일을 게시하는 데 rghost.ru에서 필요하지 않은 것이 없습니다.