var
Param: TStringList;
RStream: TStringStream;
begin
Param := TStringList.Create;
RStream := TStringStream.Create(''); idhttp.AllowCookies := True; //mmo1.Text := Utf8ToAnsi(idhttp.Get('http://www2.vst.com.hk/services/'));
Param.Add(AnsiToUtf8('loginID=ididid'));
Param.Add(AnsiToUtf8('txtPW=*******'));
idhttp.Post('http://www2.vst.com.hk/services/checking.php', Param, RStream);
mmo1.Text := Utf8ToAnsi(RStream.DataString);
Param.Free;
RStream.Free;
end;之后,Mmo1中得到:
<html>
<head> <script type="text/javascript">
<!--
function delayer(){
window.location = "index.php"
}
//-->
</script>
</head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<style type="text/css">
<!--
body {
background-color: #CCCCCC;
}
.style1 {font-family: Arial, Helvetica, sans-serif}-->
</style><body onLoad="setTimeout('delayer()', 3000)"> </body>
</html>
------------------------
这个好像不对哦,请高手看过来~
Param: TStringList;
RStream: TStringStream;
begin
Param := TStringList.Create;
RStream := TStringStream.Create(''); idhttp.AllowCookies := True; //mmo1.Text := Utf8ToAnsi(idhttp.Get('http://www2.vst.com.hk/services/'));
Param.Add(AnsiToUtf8('loginID=ididid'));
Param.Add(AnsiToUtf8('txtPW=*******'));
idhttp.Post('http://www2.vst.com.hk/services/checking.php', Param, RStream);
mmo1.Text := Utf8ToAnsi(RStream.DataString);
Param.Free;
RStream.Free;
end;之后,Mmo1中得到:
<html>
<head> <script type="text/javascript">
<!--
function delayer(){
window.location = "index.php"
}
//-->
</script>
</head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<style type="text/css">
<!--
body {
background-color: #CCCCCC;
}
.style1 {font-family: Arial, Helvetica, sans-serif}-->
</style><body onLoad="setTimeout('delayer()', 3000)"> </body>
</html>
------------------------
这个好像不对哦,请高手看过来~
解决方案 »
- 怎样让矩形shape在IMAGE1区域内随鼠标移动,并鼠标双击,截取矩形shape内的图象到image2
- 如何获得局域网内的sql2000数据库名称
- 两个listbox,如何从listbox2中删除与listbox1相同的项?
- 如何实现MDI应用程序.高分送
- 新来的,问问信誉分是怎么样才会变化的?
- 在ADO实现的分布式系统中如何实现数据的刷新
- 怎么把一张bmp图片加到资源文件里它的色调都变了?
- dx快来看看delphi如何将系统时间转换成UTC时间
- delphi1.0的程序运行出错。。。?
- 在win2k中,如何禁用 左边ctrl+space 激活输入法,但保持右边ctrl+space激活?
- createoleobject('excel.application')报错, eolesyserror 不支持此接口
- 关于DICOM图像传输,请指点一下!
window.location = "index.php"
}
setTimeout('delayer()', 3000)
你把这两条看明白了就知道咋回事了,页面3秒后跳转了
这个自然知道啊,但是在IE中输入帐号密码后不是Index页啊,
或者说,我想知道怎么在下面的Idhttp的Get或者Post带上前面
的登陆网站的Cookies,否则是无法正常获取网站信息的!