注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

simonzhang个人观点

http://www.simonzhang.net 镜像地址

 
 
 

日志

 
 

delphi简单代码收集  

2010-03-25 10:23:22|  分类: delphi技术备忘录 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

【收集人:张子萌 】

1. Form1中调用Form2窗口

Form2.ShowModal;  //显示form2窗口

 Form2.close;   //关闭窗口

 2.  获取title,可查看UTF-8编码

procedure TForm2.Button1Click(Sender: TObject); //获取title
var
   webboby:string;
   r:TRegExpr;
   s1:string;
   charseti:integer;
   gethttp:Tidhttp;
begin
  gethttp:=Tidhttp.Create(self);
  webboby:=gethttp.Get(Edit1.Text);
  charseti:=pos('charset=',webboby);
  if (copy(webboby,charseti+8,3)='utf') or (copy(webboby,charseti+8,3)='UTF') then
  webboby:=UTF8Decode(webboby);
  s1:='';
  r:= TRegExpr.Create;
  try // ensure memory clean-up
     r.Expression := '<title>[^\a]*</title>';
     if r.Exec(webboby) then
      REPEAT
       s1 :=r.Match [0];
       Edit2.Text:=s1;
      UNTIL not
       r.ExecNext;
    finally
    r.Free;
   end;
end;

  评论这张
 
阅读(789)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017