(1)在delphi内怎么用inet来自动post数据给页面啊!
(2)怎么对应下面的包信息,来填写inet控件里的第三个和第四个参数????我参照网上很多vb资料写的,
var
url , FormData , SendHeader : String;begin
url := 'http://63.221.80.120/app/member/m_message/m_message_r.php';
FormData := 'gid%3D'+gid1+'%26uid%3D'+uid1+'%26long%3D'+long1+'%26type%3D'+type1;
SendHeader := 'Content-Type: application/x-www-form-urlencoded';inet1.Execute(url,'post',FormData,SendHeader);
inet1.Cancel;
end;结果一点反应都没有,而且,用抓包工具看,根本没有POST的动作!是不是FormData或者SendHeader的出错啊,那为大哥帮忙看看页面抓包信息如下:
POST /app/member/m_message/m_message_r.php HTTP/1.1
Accept: */*
Referer: http://221.135.6.89/app/member/m_message/m_message_r.php?gid=129&uid=ac15de88&type=H&num=0089&long=C
Accept-Language: zh-cn
Content-Type: application/x-www-form-urlencoded
UA-CPU: x86
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; QQDownload 1.7; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; .NET CLR 1.1.4322; CIBA; .NET CLR 2.0.50727; .NET CLR 3.0.04506.30)
Host: 221.135.6.89
Content-Length: 268
Connection: Keep-Alive
Cache-Control: no-cachegid=129&uid=ac15de88&long=C&type=3----------------------------------------------------------------------
(2)怎么对应下面的包信息,来填写inet控件里的第三个和第四个参数????我参照网上很多vb资料写的,
var
url , FormData , SendHeader : String;begin
url := 'http://63.221.80.120/app/member/m_message/m_message_r.php';
FormData := 'gid%3D'+gid1+'%26uid%3D'+uid1+'%26long%3D'+long1+'%26type%3D'+type1;
SendHeader := 'Content-Type: application/x-www-form-urlencoded';inet1.Execute(url,'post',FormData,SendHeader);
inet1.Cancel;
end;结果一点反应都没有,而且,用抓包工具看,根本没有POST的动作!是不是FormData或者SendHeader的出错啊,那为大哥帮忙看看页面抓包信息如下:
POST /app/member/m_message/m_message_r.php HTTP/1.1
Accept: */*
Referer: http://221.135.6.89/app/member/m_message/m_message_r.php?gid=129&uid=ac15de88&type=H&num=0089&long=C
Accept-Language: zh-cn
Content-Type: application/x-www-form-urlencoded
UA-CPU: x86
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; QQDownload 1.7; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; .NET CLR 1.1.4322; CIBA; .NET CLR 2.0.50727; .NET CLR 3.0.04506.30)
Host: 221.135.6.89
Content-Length: 268
Connection: Keep-Alive
Cache-Control: no-cachegid=129&uid=ac15de88&long=C&type=3----------------------------------------------------------------------
解决方案 »
- 请教:如何指dbgrid的某一列得到焦点(setfocus)?
- 一次性导入五百万的记录到Oracle,提示"temporary Table resource limit",大家能帮我想想办法吗 ?
- 在D6中,如果在TActionManager制作的菜单中动态增加新的菜单项。。。在线等待。。。
- 如何用application.messagebos()显示一个字符型变量的值?
- PDF转换问题
- 一个读Ini文件的问题!不算很难!
- 怎样把视频数据保存起来?
- 各位大哥:opendialog 这样用为什么不行?谢谢!
- 编写应用程序,用什么语言好,我是菜手!
- 在市场上看到有Delphi6.0 1CD的,打开光盘一看,发现里面的安装文件好像是一个压缩包,只有100多M,这是正式的企业版的吗?如果只是一般的使用,有必要从5。0升到6。0吗?
- 我想将鼠标放在控件的四个角或者四条边上,然后可以拖动鼠标使它变大、缩小,该怎样做呢?謝謝!(100)
- 如何利用Delphi访问远程SQLServer数据库?
url := 'http://221.135.6.89/app/member/m_message/m_message_r.php';