关于用delphi编程实现从WEB网页提取数据的问题(100分)

  • 主题发起人 heraldboy
  • 开始时间
也发给我一份吧!我的E-Mail地址:Hospitality110@msn.com
我发现要你这个得很多,不妨上传到Delphibox让大家共享,发完后告诉我们好么?
我们会感激你的。
 
这个问题其实很简单,你可以在delphi里构造一个TAspObject,然后将form提交后的工作
交给它负责就可以了!
 
如果那位朋友对web表单提交的问题感兴趣!
我可以根据他的要求做几个小例子
一起和大家研究!
我是用websnap,界面可是一流的!
因为我要暂分提问,拜托大家了!
 
如果能访问完网站再删除这个网站的COOKIE就好了
没有COOKIE有点不方便,但....有了...不太安全
 
j_shen2000 兄
我急需你那个投票器的代码,我正在写一个类似的东西,想看你的代码借鉴一下
iamed@etang.com
感谢万分
 
我也要
谢谢,
cxz0231@sina.com
 
我也要
jl1999@163.net
 
freeskying_sy:
你好,能把你的Demo发一份给我学习一下吗?谢谢!
plq163001@163.com

HuangSkar:
你好,能把你的关于TAspObject的Demo发一份学习一下吗?谢谢!
plq163001@163.com
 
请高手发一贴吧,让我们学习一下,谢了
 
给我一份,分数不是问题,
floren0830@163.com
 
???一些高手为什么吊我们胃口???
 
是啊!不知道是真的还是假的"高手"
 
失误,我理解错了
 
我也想要 我给200分
zhang5490@sohu.com
QQ 23735348
 
不知道现在还能不能得到那个源码?
谁有的话,能给我一份吗?
wzca@sina.com
先谢谢了
 
我做的离线浏览器就是分析网页上的数据实现的
其实很简单,大家好好想一想,不要动不动就要源代码
 
我用的是 Delphi 7 和 Indy 的 TidHttp 控件
对于有Session的主页进行 Post时,会出现过期等字样
下面是程序,求高手指点
//----------------------------------------------------
procedure TMainForm.btnRunClick(Sender: TObject);
var
Source: TStrings;
Response: TMemoryStream;
S, Cookie: String;
i: integer;
begin
Response := TMemoryStream.Create;
Source := TStringList.Create;

S := Http.Get(Page1);
Memo1.Text := S;
// 从返回的页面中找出cookie, 并增加到http.Request中
for i := 0 to Http.Response.RawHeaders.Count -1 do
if UpperCase(LeftStr(Http.Response.RawHeaders, 10)) = 'SET-COOKIE' then
begin
Cookie := Trim(Copy(Http.Response.RawHeaders, 12, MaxInt));
Cookie := Copy(Cookie, 1, Pos(';', Cookie) - 1);
Http.Request.RawHeaders.Add('Cookie:'+ Cookie);
end;
// 再去下一页, 先准备数据
Source.Clear;
Source.Add('USERnumber=' + UserName + '&pwd=' + PassWord + '&UserType=0'
+ '&imageField2.x=19&imageField2.y=8');

Memo1.Text := Http.Post(Page2, Source);

Source.Free;
Response.Free;
//----------------------------------------------------
 
我也想要~~`谢谢~~~

flying_919@eyou.com

 
请问高手
怎么在一个form上显示一个web页面?
 

Similar threads

回复
0
查看
812
不得闲
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
顶部