delphi idhttp.post网页服务器,delphi 的 Idhttp 如何向网站提交文件？（使用PUT方法）...

满意答案

elenalips

2013.08.27

采纳率：56%    等级：12

已帮助：9911人

以下是用Idhttp模拟用POST方法提交的示例：

function PostMethod(URL, Data: String; max: Integer): String;

var

PostData, RespData: TStringStream;

begin

RespData := TStringStream.Create('');

PostData := TStringStream.Create(Data);

try

try

if http = nil then Exit;

Http.Post(URL, PostData, RespData);

Result := RespData.DataString;

http.Request.Referer := URL;

except

Dec(Max);

if Max = 0 then

begin

Result := '';

Exit;

end;

Result := PostMethod(URL, Data, Max);

end;

finally

http.Disconnect;

FreeAndNil(RespData);

FreeAndNil(PostData);

end;

end;

01分享举报