各位大侠:
我想在软件里发送数据给我的网站如用户名和密码,然后跟据返回的信息来判断用户是否正确
我现在用idhttp控件,但发觉速度太慢了。如果我发送注册信息或是请求10000条数据下载到我的本地
是不是会死机呀,内存耗尽呀。
代码如下:
var
GetURL :String;
PostURL :String;
GetHtml :String;
sParams :String;
TmpStr :string;
aParams :TStrings;
aStream :TStringStream;
begin
IdHTTP1 := TIdHTTP.Create(nil);
aParams := TStringList.Create;
aStream := TStringStream.Create('');
GetURL := 'http://192.168.0.1/mynew.asp'; {登录页面网址}
PostURL := 'http://192.168.0.1/mynew.asp?password='+edit2.Text; {提交网址}
sParams := 'name='+edit2.Text ; {提交参数}
sParams :=sParams+ 'username='+edit1.Text ; {提交参数}
sParams :=sParams+ 'QQ='+edit3.Text ; {提交参数}
sParams :=sParams+ 'Emails='+edit4.Text; {提交参数} try
aParams.Clear;
aParams.Add(sParams);
GetHtml := IdHTTP1.Get(GetURL); {取登录页面}
IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
IdHTTP1.Post(PostURL, aParams, aStream); {提交}
memo1.Lines.Add(aStream.DataString);
except end;有没有别的办法能快速从我的网站上下载10000条数据呢。。在线等待
我想在软件里发送数据给我的网站如用户名和密码,然后跟据返回的信息来判断用户是否正确
我现在用idhttp控件,但发觉速度太慢了。如果我发送注册信息或是请求10000条数据下载到我的本地
是不是会死机呀,内存耗尽呀。
代码如下:
var
GetURL :String;
PostURL :String;
GetHtml :String;
sParams :String;
TmpStr :string;
aParams :TStrings;
aStream :TStringStream;
begin
IdHTTP1 := TIdHTTP.Create(nil);
aParams := TStringList.Create;
aStream := TStringStream.Create('');
GetURL := 'http://192.168.0.1/mynew.asp'; {登录页面网址}
PostURL := 'http://192.168.0.1/mynew.asp?password='+edit2.Text; {提交网址}
sParams := 'name='+edit2.Text ; {提交参数}
sParams :=sParams+ 'username='+edit1.Text ; {提交参数}
sParams :=sParams+ 'QQ='+edit3.Text ; {提交参数}
sParams :=sParams+ 'Emails='+edit4.Text; {提交参数} try
aParams.Clear;
aParams.Add(sParams);
GetHtml := IdHTTP1.Get(GetURL); {取登录页面}
IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
IdHTTP1.Post(PostURL, aParams, aStream); {提交}
memo1.Lines.Add(aStream.DataString);
except end;有没有别的办法能快速从我的网站上下载10000条数据呢。。在线等待
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货