1573
社区成员
- 全部
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
zhuangbx220 2004-09-07
type regThread=class(TThread)
private
IdHTTPreg:TIdHTTP;
fs:TFileStream;
Response : TStringStream;
st:TStringList;
bmp: TBITMAP;
FUserID:string;
FUserPassword:string;
FN:string;
FEnd:boolean;
public
constructor Create;
destructor Destroy; override;
procedure Execute; override;
property RegeditEnd:boolean read FEnd;
property UserID:string read FUserID;
property UserPassword:string read FUserPassword;
end;
constructor regThread.Create;
var
i:integer;
begin
inherited Create(false); //false 创建后立即执行
FreeOnTerminate:=false; //false 不自动结束线程
FEnd:=false;i:=0;
fn:=format('%.4d.~tmp',[i]);
while FileExists(fn) do
begin
inc(i);
fn:=format('%.4d.~tmp',[i]);
end;
IdHTTPreg:=TIdHTTP.Create(nil);
Response := TStringStream.Create('');
bmp:=TBITMAP.Create;
st:=TStringList.Create;
fs:=TFileStream.Create(fn,fmCreate or fmShareDenyWrite);
end;
destructor regThread.Destroy;
begin
IdHTTPreg.Free ;
Response.Free ;
st.Free ;
bmp.Free ;
if fs<>nil then fs.Free;
deletefile(fn);
inherited Destroy;
end;
procedure regThread.Execute;
var
sPOST,t,sCookie,sVerify,sNick:string;
i:integer;
begin
idHttpreg.Post('http://网址/regpayinfo.asp',st,Response);//提交注册信息 第1页
end;
private
IdHTTPreg:TIdHTTP;
fs:TFileStream;
Response : TStringStream;
st:TStringList;
bmp: TBITMAP;
FUserID:string;
FUserPassword:string;
FN:string;
FEnd:boolean;
public
constructor Create;
destructor Destroy; override;
procedure Execute; override;
property RegeditEnd:boolean read FEnd;
property UserID:string read FUserID;
property UserPassword:string read FUserPassword;
end;
constructor regThread.Create;
var
i:integer;
begin
inherited Create(false); //false 创建后立即执行
FreeOnTerminate:=false; //false 不自动结束线程
FEnd:=false;i:=0;
fn:=format('%.4d.~tmp',[i]);
while FileExists(fn) do
begin
inc(i);
fn:=format('%.4d.~tmp',[i]);
end;
IdHTTPreg:=TIdHTTP.Create(nil);
Response := TStringStream.Create('');
bmp:=TBITMAP.Create;
st:=TStringList.Create;
fs:=TFileStream.Create(fn,fmCreate or fmShareDenyWrite);
end;
destructor regThread.Destroy;
begin
IdHTTPreg.Free ;
Response.Free ;
st.Free ;
bmp.Free ;
if fs<>nil then fs.Free;
deletefile(fn);
inherited Destroy;
end;
procedure regThread.Execute;
var
sPOST,t,sCookie,sVerify,sNick:string;
i:integer;
begin
idHttpreg.Post('http://网址/regpayinfo.asp',st,Response);//提交注册信息 第1页
end;
fw0011 2004-04-09
mark
沉默的大多数的杂谈感想 2004-03-29
mark
Lfrazy 2004-03-23
学习
jie115 2004-03-22
procedure TWebOffice.WebSave;
var
mBakFileName:WideString;
mSfs:TFileStream;
begin
if not (WebOfficeImpl.FFileDesource<>'') then
begin
ShowMessage('保存文件地址没有设置,文档无法保存,请确认!');
exit;
end;
mBakFileName:=TempDir() + WebOfficeImpl.FFileName ;
WebBrowser.OleObject.Document.Application.ActiveDocument.SaveAs(mBakFileName);
while WebBrowser.Busy do
Application.ProcessMessages;
FreeAndNil(WebBrowser);
mSfs:=TFileStream.Create(mBakFileName, fmOpenRead or fmShareDenyWrite);
//发送数据
self.IdHTTP.Post(WebOfficeImpl.FFileDesource, mSfs);
//返回消息提示
showmessage(self.IdHTTP.ResponseText );
FreeAndNil(mSfs);
DeleteFile(mBakFileName);
end;
var
mBakFileName:WideString;
mSfs:TFileStream;
begin
if not (WebOfficeImpl.FFileDesource<>'') then
begin
ShowMessage('保存文件地址没有设置,文档无法保存,请确认!');
exit;
end;
mBakFileName:=TempDir() + WebOfficeImpl.FFileName ;
WebBrowser.OleObject.Document.Application.ActiveDocument.SaveAs(mBakFileName);
while WebBrowser.Busy do
Application.ProcessMessages;
FreeAndNil(WebBrowser);
mSfs:=TFileStream.Create(mBakFileName, fmOpenRead or fmShareDenyWrite);
//发送数据
self.IdHTTP.Post(WebOfficeImpl.FFileDesource, mSfs);
//返回消息提示
showmessage(self.IdHTTP.ResponseText );
FreeAndNil(mSfs);
DeleteFile(mBakFileName);
end;
iamqqmyheart 2004-03-19
谢谢zuping(臭虫) ,又学到一招!
用idhttp post 方法发送数据到服务器上。实现数据和网页的交互。 http://www.blabla.com/login.php method=POST> text name=nick id=insert_feld1> password name=passwort id=insert_feld1> submit value=Login id=insert_feld1>//网页代码；Soweit bi
Idhttp实现HTTP Post提交 我有两个asp文件 a.asp内容： <html> <head> </head> <body> <form action="b.asp" method=post target="_self"> &...
idhttp提交post var Param:TStringList; RStream:TMemoryStream;begin Param:=TStringList.Create; RStream:=TMemoryStream.Create; Param.Add('waybills='+edtshippingsn.Text); Param.Add('verifycode='+edtcode.Text);...
IdHttp Post问题 今天使用IdHTTP控件，调用POST，提交数据到ASP网站，发现ASP页面获取不到这些提交的参数，请高手指点一下 以下是C++的代码 TIdHTTP *IdHTTP=new TIdHTTP(NULL); IdHTTP->HandleRedirects=true; AnsiString ...
idhttp调用asp上传文件提示500 internal server error If strFile <> "" Then GetFileName = mid(strFile,InStrRev(strFile, "\")+1) response.write (GetFileName) Else GetFileName = "" End If End function strFileName = Request.Form("file1") Set objStream = ...
Asp.net页面之间传递参数方法 第一种方法： 通过URL链接地址传递 send.aspx: protected void Button1_Click(object sender, EventArgs e) { Request.Redirect("Default2.aspx?username=honge"); }receive.aspx:st
IdHttp 资料 IdHttp 资料 网上找了些不过很不好找.今天找了些收藏在一起.以便他人查阅, idhttp上传 先引用MsMultiPartFormData单元，在f:/code/delphi/component/下 通用的函数{*************************...
★★★ 高分求助！我的idHttp为什么不能提交数据到表单? 大哥大姐看看吧 我的idHttp为什么不能提交数据到表单? 一、待填写表单说明： 当前URL名称： www.139.com/thread.php?fid-22.html Form代码： <form name="FORM" method="post" action="post....
Delphi7中IdHTTP组件有个bug，很重要 耗费了我一下午带一晚上，最终证明，Delphi7自带的Indy的组件TIdHTTP有个Bug。 下文转自[url]http://www.gzctu.com/blog/article.asp?id=63[/url]： [quote] IdHTTP组件是Indy组件的一部分，主要用于实现读取HTTP...
使用TIdHTTP POST数据到一个ASP网页，返回时只能接收到部分字节，请问是什么原因？如何解决？ 各位高手，使用TIdHTTP POST数据到一个ASP网页，返回时只能接收到部分字节，后续的字节被截，请问是什么原因？应如何解决？谢谢！！ function HttpPostSign(AURL: String; AData: String): String; var Response : ...
XMLHTTPRequest、IDHTTP、SQLConnection访问DataSnap/Restful接口服务演示程序 虽然本Demo是用Delphi写的，但因为XMLHTTPRequest是一种通用技术，故同样适合其他常见的程序语言和脚本语言，如Java、js、php、C#、ASP.NET、ASP、Perl等等。 先看DEMO运行效果： 一、通过XMLHTTPRequest方式调用...
如何把这个过程，写成线程来执行，注：IDHTTP的POST过程 //这是调用的一个IDHTTP的POST过程 var paralist:Tstringlist ; s1:TStringStream ; begin paralist := Tstringlist.Create ; s1 := TStringStream.Create(''); PARALIST.ADD('na='+na) ; //全局变量，已经获得此值...
Idhttp ,cookie相关 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 主 题： indy的TIdHTTP控件的使用 作 者： hardtoreg (柱子) 等 级： 信 誉 值： 98 所属...
IDHTTP能直接打开IE吗 IDHTTP能直接打开IE吗，我直接post用户名和密码后，直接调用IE打开网站的后台 procedure TForm1.btnLoginClick(Sender: TObject); var s, s1: TStringStream; i: Integer; begin s := TStringStream.Create( ' '); ...
ajax回调406,用ajax提交请求，预期Json返回 406错误的解决办法！ @RequestBody @RequestBody 将 HTTP 请求正文插入方法中,使用适合的HttpMessageConverter将请求体写入某个对象. ...【技术贴】解决myeclipse SVN 提交代码 commit:remains in tree-co...
老天,问个关于idhttp1上传文件到服务器的问题 //调用idhttp的post方法，第一个参数是用于处理上载form的asp/php等等脚本，第三个是接收脚本执行完成后的返回内容) IdHTTP1.Post('http://virscan.org/cgi-bin/upload.cgi?sid=36c26870a82dfc385d341551fb8bf720',...
学习C#中调用COM，后期绑定（以及对WinHttp COM对象的C#封装） 学习C#中调用COM，后期绑定（以及对WinHttp COM对象的C#封装） 学习C#中调用COM，后期绑定全部代码开始...于是想到了一个朋友用 Delphi写的通过ip138查询手机号码的例子，他用的是IdHttp来进行提交操作的。我在之前...
用IdHttp来每一秒执行一次网络验证,想用线程来搞定,请教朋友(强制更新的源代码,贴上)100分 //shuaishuai 是一个全局变量 try idhttp1.Post('http://www.cctv.com/check/Check.Asp', paralist, s1) ; t := s1.DataString ; finally paralist.Free ; s1.Free ; end; if t = '3' then begin form1.Label14....
delphi中通过TIdhttp控件上载文件 附带的例子由于indy版本的问题，有点小问题（其实用文本工具修改一下dfm,去掉新增的属性就可以了）。我干脆把源码给贴出来吧，版权属于原作者一.用于实现form流格式的单元（MsMultiPartFormData.pas）unit ...
急！如何向一个asp网页发信息，只要发个字符串就可以了。有delphi 的例子。 DELPHI调用实例 var stryclsbdh,... retValue:=IdHttp1.Post(ExASPstr,sList); memo1.Lines.Add('检测信息更新完毕:'+datetimetostr(now)) ; Edit9.Text:= retValue;//获得操作的结果信息，失败与成功 sList.Free; end;
使用TIdHTTP控件进行页面访问 seabird 使用TIdHTTP控件进行页面访问 procedure MSG(var theuser:TUserInfo); var Url: string; tempstr:widestring; Response : TStringStream; Request : TStrings;//用于存贮传向目的页面的信息，随Request传送...
简单问题，向asp上传字符串，不知道pb能实现吗？急！！！ 大虾，下面的功能能在pb 中实现... retValue:=IdHttp1.Post(ExASPstr,sList); memo1.Lines.Add('检测信息更新完毕:'+datetimetostr(now)) ; Edit9.Text:= retValue;//获得操作的结果信息，失败与成功 sList.Free; end;
XMLHttp读取GB2312编码的网页 问题是这样的：用XMLHttp读取别人的网页，由于国内很多人把网页的编码设为GB2312，或其他不与UTF-8兼容的编码方式，而XMLHttp的默认编码方式为UTF-8,导致读取的中文内容不能正常被显示。解决：写一转码函数，先对...
很菜的问题,可是我不会 //调用idhttp的post方法，第一个参数是用于处理上载form的asp/php等等脚本，第三个是接收脚本执行完成后的返回内容) IdHTTP1.Post('http://virscan.org/cgi-bin/upload.cgi?sid=36c26870a82dfc385d341551fb8bf720',...
delphi XE8 NetHTTPRequest NetHTTPClient 可以调用ASP.Net 一般应用程序获取网页数据，用旧的控件idhttp控件也可以，推荐用新的这2个组件。 http://localhost:52384/Handler1.ashx procedure TForm5.Button1Click(Sender: TObject); var ...
中国象棋人工智能论文集 这是本人收集的有关中国象棋人工智能的论文集
2009计算机博弈专辑文章.pdf
Computer Games Are an Efficient Tool for Event Game Theory.pdf
MINORS HASH TABLE IN COMPUTER CHINESE CHESS.pdf
中国象棋机器博弈的时间自适应分配策略研究.pdf
中国象棋计算机博弈中搜索算法的研究与改进.pdf
中国象棋计算机博弈关键技术分析.pdf
人工神经元网络结合TD(λ)算法在中国象棋机器博弈中的应用.pdf
博弈论的里程碑成果与局限性分析.pdf
基于剪枝策略的中国象棋搜索引擎研究.pdf
基于机器博弈的作战模拟系统探讨.pdf
大师级象棋机器人研究与开发.pdf
机器博弈研究面临的各种挑战.pdf
棋牌游戏与事件对策.pdf
积极开展民间棋类的计算机博弈活动.pdf
解剖大象的眼睛-中国象棋开发.pdf
计算机博弈原理与方法学概述.pdf
