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!
相关问答：
delphi如何向Access数据表中自定义字段?然后显示到DBGrid中
怎么没人理我呀
分分忒少咧，一般人都懒得进来……*^_^*
SQL
creat table TableName(ID Counter Primary Key,FieldName varchar(20))
ADOQue ......
我写了个小程序，上面添加了一个shockwaveflash控件，然后在movie里写入swf文件的路径，然后执行没有问题。
当我把这个程序转移到另一台电脑执行时， shockwaveflash 控件显示空白。也就是没有加载那个swf文件。 ......
Embarcadero在8月26日正式发布了RAD Studio 2010(就是大家常用的Delphi 2010)，本人花了大概四个小时来安装和体验Delphi2010，现将体验结果向大家做个简单汇报。
一.优点:
1.IDE
1.1经� ......
总之，这个应该是个小BUG。
随便建个txt文档
第一行68个s加一个回车
第二行98个s加一个回车
第三行17个s加一个回车
总共183个s加三个换行，大小189字节。
接着用FileOpen和FileRead把文件 ......
接收到的文本内容是ucs2编码格式，请问怎样转换成中文
按我的理解，UCS-2是字符集，具体的编码有UTF-8，UTF-16 (LE/BE)等。
如果你用Delphi 2009及以上版本，可以看看TEncoding类。
btw. 你说的转换成中文是啥意� ......
