delphi 如何实现采集一个网页
delphi 如何实现采集一个网页
求一个采集的例子
看了几个源码 其中几个地方不明白
豆丁网
function TForm1.GetStr(StrSource,StrBegin,StrEnd:string):string;
var
in_star,in_end:integer;
begin
in_star:=AnsiPos(strbegin,strsource)+length(strbegin);
in_end:=AnsiPos(strend,strsource);
result:=copy(strsource,in_sta,in_end-in_star);
end;
in_sta,in_end-in_star 都没定义 他是怎么用的
s:=copy(re,pos(' <td width="100" align="left">',re)+29,99999);
/// +29意思就是前规律的字符数（可以用我提供的软件查） 99999是规律中的截取数据字符。
s:=copy(s,1,pos(' </td>',s)-1);
s:=stringreplace(s,' ',' ',[rfReplaceAll]);
Label1.Caption:='综合排名:'+s; /// s 就是我们截取到的内容
cpoy
后面加的 2999999是什么意思
求 详解的delphi采集 代码
部分问题已解决 还有一个
s:=copy(re,pos(' <td width="100" align="left">',re)+29,99999);
copy的 函数 copy 长度怎么计算 在网页中
问题已解决 来人领分
如需要阅读该回复，请登录或注册CSDN!
相关问答：
我安装的是企业版。。。
我问下， CTRL+左键 能查看 windows.pas 吗？
就是 接口里的windows。
当然可以,CTRL+左键点击Interface部分的Windows就可以了
啥啥企业版？去安装目录看看lib文件夹下有没� ......
就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
delphi 异步线程怎么怎么实现？
请各位大佬帮忙！
最好有个实例！
多谢
你不同步就是异步了,还写啥
默认情况下，线程就是异步的…………*^_^*
估计楼主同步和异步概念都没弄清
真无语。。可 ......
接收到的文本内容是ucs2编码格式，请问怎样转换成中文
按我的理解，UCS-2是字符集，具体的编码有UTF-8，UTF-16 (LE/BE)等。
如果你用Delphi 2009及以上版本，可以看看TEncoding类。
btw. 你说的转换成中文是啥意� ......
请问怎么学习Delphi呀?
发现Delphi学貌似没那么容易呀,不像java,那么多书,视频,和培训之类的
delphi的资料就是少，而且还老
找本书看看就懂了。
Delphi的资料很多，只是现在……,你找找大富翁离线数据库� ......
