怎样在delphi程序中模拟网页提交?(50分)

  • 主题发起人 主题发起人 datawind
  • 开始时间 开始时间
D

datawind

Unregistered / Unconfirmed
GUEST, unregistred user!
服务器上有一CGI程序,可以用网页
<html>
<body>
<form METHOD="POST" ENCTYPE="multipart/form-data" ACTION="http://sail-server/bin/FileUpload.exe"><input TYPE="file" NAME="blob" size="20" > <input TYPE="submit" NAME="Enter"></form>
</body>
</html>
来实现文件上传,请问如何在delphi程序中如何提交数据来上传文件?
 
:( 都没人知道吗?
 
用webbrowser的navigate2:
procedure TForm1.Button1Click(Sender: TObject);
var
url, Flags, TargetFrame, Postdata, Headers: Olevariant;
begin
Url := 'https://lc1.law5.hotmail.passport.com/cgi-bin/dologin';
TargetFrame:=0;
Flags:=NavNoHistory;
headers := StringtoVarArray('Content-Type:application/x-www-form-urlencoded'#13#10);
Postdata := StringToVarArray(Encode('login=<MyUsername>&passwd=<MyPassword>'));
webbrowser1.Navigate2(URL, Flags, TargetFrame, PostData, Headers);
end;
 
分析Request.content
 
明白HTTP协议吗?
INDY里有HTTPCLIENT;
 
我用IDHTTP已经解决问题了
 
多人接受答案了。
 
datawind你好,我是一个新手,我现在遇到了与你一样的问题,想请教一下你是怎么用Idhttp解决的?多谢!
我的E-mail:smarts2003@163.com
 
后退
顶部