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

回答

相关问题