想用INDY的 IDHTTP组件实现对网页多线程POST,无奈IDTCPSERVER有多线程DEMO,找不到idhttp的DEMO,自己尝试多天未果,不知哪位朋友可以支招,最好详细一点,在多线程方面,我没有任何经验.如果有完整DEMO,将另开贴加100分.
解决方案 »
- ACCESS数据表 select 多表查询问题
- Delphi中使代码简洁的 5 条忠告
- 点击dxDBTreeView的一个节点后,如果获得ID值?
- 把用户名和密码保存到Microsoft Access中应该如何加密密码!
- 数值转换问题??
- 临时表的读取,高手快进啊!!!!
- 初级问题?????
- mdi子窗体如何控制主窗体的控件?
- ★★乱散100分啦!★★喜欢用yahoo通(yahoo messanger)的朋友近来报道啊!不管是初学者还是大虾都来吧!!
- 数组问题请问在edit2中为什么是乱码,或者是'haijun#0',或者是其他??????????????
- 请问如何获取SQL和Oracle数据库文件的位置和大小
- 怎么把一张图片缩小?并且防止锯齿?
function Tfrm_Main.UpFileEx(FileName : string): string; /// 上传函数
var
MutPartForm: TIdMultiPartFormDataStream;
URL1, URL2 , RealName, FilePath : String;
stringlist : TStringlISt;
begin
// filename := 'E:\test.xls';
URL1 := 'http://asdfsdf.com/user/users_login1.jsp?username=test&password=123'; //登录
URL2 := 'http://asdfsdf.com/upload/uploads.jsp'; //上传
MutPartForm := TIdMultiPartFormDataStream.Create;
try
IdHTTP1.Get(URL1); //登录进入上传页面 MutPartForm.AddFormField('userName','test'); //
MutPartForm.AddFormField('uploadFile',' ');
MutPartForm.AddFormField('submit','submit'); //submit1 提交按钮
MutPartForm.AddFile('uploadfile',filename,'');
Result := IdHTTP1.Post(URL2,MutPartForm);
finally
MutPartForm.Free;
end;
end;