Http Post with indy

我在我的web服務器上有一個簡單的php腳本，我需要使用HTTP POST上傳文件，這是我在Delphi中做的。Http Post with indy

這是我與Indy的代碼，但aparantely它不會工作，我無法弄清楚我做得不好。我如何查看我在服務器上發送的內容是否有這樣的工具？

procedure TForm1.btn1Click(Sender: TObject); 
var 
    fname : string; 
    MS,dump : TMemoryStream; 
    http : TIdHTTP; 

const 
    CRLF = #13#10; 
begin 
    if PromptForFileName(fname,'','','','',false) then 
    begin 
    MS := TMemoryStream.Create(); 
    MS.LoadFromFile(fname); 
    dump := TMemoryStream.Create(); 
    http := TIdHTTP.Create(); 
    http.Request.ContentType:='multipart/form-data;boundary =-----------------------------7cf87224d2020a'; 
    fname := CRLF + '-----------------------------7cf87224d2020a' + CRLF + 'Content-Disposition: form-data; name=\"uploadedfile\";filename=\"test.png"' + CRLF; 
    dump.Write(fname[1],Length(fname)); 
    dump.Write(MS.Memory^,MS.Size); 
    fname := CRLF + '-----------------------------7cf87224d2020a--' + CRLF; 
    dump.Write(fname[1],Length(fname)); 
    ShowMessage(IntToStr(dump.Size)); 
    MS.Clear; 
    try 
    http.Request.Method := 'POST'; 
    http.Post('http://posttestserver.com/post.php',dump,MS); 
    ShowMessage(PAnsiChar(MS.Memory)); 
    ShowMessage(IntToStr(http.ResponseCode)); 
    except 
    ShowMessage('Could not bind socket'); 
    end; 
    end; 
end;

來源

2012-05-26 opc0de

「它不起作用」是調試某些時最不可用的短語。什麼不行？它做錯了什麼？ –

@MasonWheeler如果我知道答案可能我沒有問這個問題。它不上傳到web服務器，這是我的猜測，即郵件標題格式不正確，但我不知道我做錯了什麼。 – opc0de

爲什麼是MS.Clear;在http.Post（URL，MS）之前調用？ – ComputerSaysNo

印有TIdMultipartFormDataStream用於此目的：

procedure TForm1.SendPostData; 
var 
    Stream: TStringStream; 
    Params: TIdMultipartFormDataStream; 
begin 
    Stream := TStringStream.Create(''); 
    try 
    Params := TIdMultipartFormDataStream.Create; 
    try 
    Params.AddFile('File1', 'C:\test.txt','application/octet-stream'); 
    try 
    HTTP.Post('http://posttestserver.com/post.php', Params, Stream); 
    except 
    on E: Exception do 
     ShowMessage('Error encountered during POST: ' + E.Message); 
    end; 
    ShowMessage(Stream.DataString); 
    finally 
    Params.Free; 
    end; 
    finally 
    Stream.Free; 
    end; 
end;

來源

2012-05-26 11:26:05 whosrdaddy

它的工作原理，但我想知道我在代碼中做錯了什麼...... – opc0de

使用wireshark並比較代碼和Indy生成的頭文件？ – whosrdaddy

當然'TIdMultipartFormDataStream'顯然是上傳一個我一直在尋找的文件組件，我怎麼會錯過它？ :) –

調用從印一個PHP可能會失敗，因爲用戶代理的，那麼你會得到403錯誤。

嘗試這種方式，固定對我來說：

var Answer: string; 
begin 
    GetHTML:= TIdHTTP.create(Nil); 
    try 
    GetHTML.Request.UserAgent:= 'Mozilla/3.0'; 
    Answer:= GetHTML.Get('http://www.testserver.com/test.php?id=1'); 
    finally 
    GetHTML.Free; 
    end; 
end;

來源

2012-07-31 12:00:15

你失去了2個字符 ' - '。最好這樣做：

來源

2017-01-27 13:03:59

Http Post with indy

回答

相關問題