么意思博客

uses ActiveX, ComObj, MSHTML; 根据连接文字点击连接- 一般情况下的连接 Procedure HTMLClinkByText(text:string;Wbr:TWebBrowser); var doc:IHTMLDocument2; len,I:integer; item:OleVariant; all:IHTMLElementCollection; begin doc:=Wbr.Document as IHTMLDocument2; all:=d ...

有时候jpg后缀图片其实是png格式的图片。这样我们就需要将真实的格式还原出来； procedure TForm1.Button6Click(Sender: TObject); var //声明变量 MyImage:TMemoryStream; //内存流对象 Buffer:Word; begin if strtoint(edit3.Text)<strtoint(edit4.Text) then //OpenDialog1是一个文件打开 ...

将memo中重复行的数据删除，只保留一行相同数据！ procedure RemoveDuplicates(const stringList : TStringList) ; var buffer: TStringList; cnt: Integer; begin stringList.Sort; buffer := TStringList.Create; try buffer.Sorted := True; buffer.Duplicates := dupIgnore; bu ...

提取所有连接到memo1中： procedure TForm1.Button1Click(Sender: TObject); var i :Integer; begin for i := 0 to WebBrowser1.OleObject.document.links.length - 1 do memo1.Lines.Add(WebBrowser1.OleObject.document.links.item(i).href); end; 提取网页标题： procedure TForm1.Button1Click(Send ...

用sleep来延迟执行，结果程序假死！~ 下面这段代码彻底解决假死的问题。 procedure TForm1.delay(msecs:integer); var Tick: DWord; Event: THandle; begin Event := CreateEvent(nil, False, False, nil); try Tick := GetTickCount + DWord(msecs); while (msecs > 0) and (MsgWaitForMu ...

一：先在uses添加 mshtml 并在事件中添加变量 uses mshtml var ms: TMemoryStream; Doc: IHtmlDocument2; 二：这样就可以显示完整的源码,并且是完全一样的源码 tag:=0; Web1.Navigate(memo3.Lines.Strings[strtoint(edit11.text)]); while(tag=0) do Application.ProcessMessages; Applicatio ...

默认在webbrowser打开新窗口 会自动弹出来。 如何让他始终在webbrowser打开呢？ 先在 Web1NewWindow2事件中加入： procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var PpDisp: IDispatch; var Cancel: WordBool); begin PpDisp := WebBrowser2.Application; end; 然后在Web2BeforeNavigate2事 ...

在uses 单元下面加入ComObj uses下面加入下面代码: const PYMUSICCOUNT = 405; PyMusicCode: array [1..PYMUSICCOUNT] of string[6] = { 汉字基本发音表 } ( 'a', 'ai', 'an', 'ang', 'ao', 'ba', 'bai', 'ban', 'bang', 'bao', 'bei', 'ben', 'beng', 'bi', 'bian', 'biao', 'bie', 'bin', 'bing', ...

获取当前鼠标坐标： procedure TForm1.Timer1Timer(Sender: TObject); var p:TPoint; begin GetCursorPos(p); label9.Caption:=inttostr(p.X ); label10.Caption:=inttostr(p.Y) ; end; 加上uses Clipbrd; 模拟点击并填表： procedure TForm1.denglu1Click(Sender: TObject); var x,y:integer; ...