delphiÖÐWebbrowserÎÊÌâÊÕ¼¯
delphiÖÐWebbrowserÎÊÌâÊÕ¼¯
»ñµÃÍøÒ³ÖбäÁ¿Öµ htmÖÐ<script> var currID=123</script> ³ÌÐòÖпÉÒÔÕâôµ÷Óà id := Form1.WebBrowser1.OleObject.Document.script.currID ÖµµÃ˵Ã÷µÄÊÇ,±äÁ¿¿ÉÒÔÊÇjavascript¶¨ÒåµÄ,Ò²¿ÉÒÔÊÇvbscript¶¨ÒåµÄ,Èç¹ûWebbrowser1ÖÐÕÒ²»µ½¸Ã±äÁ¿,µ÷Óûᴥ·¢Ò»¸öÒ쳣ʼþ,¼´±äÁ¿currID²»´æÔÚ
2.Ö´ÐÐÍøÒ³Öеĺ¯Êý tmp := 'currID = getNextID(currID)'+#13#10;
Form1.WebBrowser1.OleObject.Document.parentWindow.execScript(tmp,'JavaScript'); µ÷Óú¯ÊýµÄ·½·¨¾ÍÊÇexecScript½Ó¿Ú,ͬÑù,Èç¹ûº¯Êý²»´æÔÚ,»òÕßÔËÐдíÎóÒ²»á´¥·¢½Å±¾´íÎóÒì³£
3.ÉèÖÃÍøÒ³±³¾° ±³¾°Í¼Æ¬ WebBrowser1.OleObject.Document.body.background := 'http://seelearn.com/bg.gif' ±³¾°ÑÕÉ« WebBrowser1.OleObject.Document.body.bgcolor := '#eeeeee'
4.µ÷ÓÃÍøÒ³ÖÐÒÑÖª¶ÔÏó src := WebBrowser1.OleObject.Document.getElementByID('img1').src ¸Ã·½·¨Æäʵ¾ÍÊÇjavascriptÖÐµÄ getElementByID
5.»ñÈ¡Ò³ÃæÖÐËùÓеÄframe ʹÓÃDHTML¡£
frames:=wb.OleObject.document.frames;
for i:=0 to frames.length do
memo1.lines.Add(frames[i].document.body.innerHTML);6.BorderStyle=bsNoneºóWebbrowser»á±»ÖØÐ³õʼ»¯ ÕâÊÇÒ»¸öÈÃÈ˺ÜÒâÍâµÄÒ»¸öÎÊÌâ,DelphiÔÚ´°¿Ú¿Ø¼þµÄ¿ØÖÆ·½Ãæ×öµÃ·Ç³£ºÃ,ºÜÉÙ³öÏÖÕâÖÖBUG ¸ù¾Ý·ÖÎö,³öÏÖÕâ¸öÏÖÏóÓкܶàÇé¿ö ¸Ä±äFormStyleÒ²»á³öÏÖ ; Èç¹û webbrowser.parent ÓÉpanel1 ¸Äµ½panel2.Ò²»áµ¼ÖÂwebbrowserÖØÐÂ
³õʼ»¯¡£
7.Ö±½ÓÏòWebbrowserÖÐдÈëhtml´úÂë,²»ÐèÒªNavigateµ½Êµ¼Ê´æÔÚµÄÎļþ var
StrStream:TStringStream;
SetNoteStr: string; begin &
Ïà¹ØÎĵµ£º
ÒýÓÃ×Ô£ºhttp://develop.csai.cn/delphi/NO000001.htm
×Ô¶¯Íê³É¼ò½é
¡¡¡¡´ó¼ÒÒ»¶¨¶¼·Ç³£ÊìϤIEä¯ÀÀÆ÷µÄµØÖ·ÊäÈë±à¼¿ò£¬ËüÌṩÁË×Ô¶¯Íê³ÉµÄ¹¦ÄÜ¡£×Ô¶¯Íê³É£¨Auto Complete£©¹¦Äܼò»¯Á˱༿òµÄÊäÈ빦ÄÜ£¬Ëü¿ÉÒÔ¸ù¾ÝÒѾÊäÈëµÄ²¿·Ö×Ö·û´®½øÐÐÔ¤²âºÍÆ¥Å䡣ͼ2.7µÄÀý×Ó£¬ÑÝʾÁË×Ô¶¯Íê³É¿ÉÒÔÒÀ¾ÝÊäÈëµÄ“pro”£¬¸ø³ ......
procedure TForm1.Button1Click(Sender: TObject);
Var
Num: Integer;
Begin
Try
Num:=StrToInt(Edit1.Text);
Edit2.Text:=IntToStr(Num*Num);
Except
On EConvertError Do ShowMessage(Edit1.Text+'ÎÞ·¨×ª³ÉÕûÊý!');
......
Uses Tlhelp32;
//ÓÃListboxÏÔʾ·½·¨
procedure TForm1.Button1Click(Sender: TObject);
var
lppe:TProcessEntry32;
found:boolean;
Hand:THandle;
begin
Hand:=CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
lppe.dwSize := Sizeof(lppe); //³õʼ»¯
found:=Process32First(Hand,lppe);
......
ǰÑÔ
¾¡ÈýÄêÀ´£¬±¾ÈËÂ½ÐøÐ´ÁËÁùÊ®¶àƪBOLOÎÄÕ£¬ÆäÖоø´ó²¿·ÖÊÇÓйØÍ¼Ïñ´¦ÀíµÄ£¬Òò´Ë£¬ÓÐÈËÏ·³ÆÎÒΪͼÏñ´¦Àíר¼Ò£¨»òGDI+ר¼Ò£©£¬´ËÏ·³Æµ±È»ÊǶÔÎÒµÄÔÞÑµ«ÎÒ×Ô¼ºÈ´¾õµÃÂÔº¬Ò»Ë¿Ë¿±áÒ壬¼´³ýÁËͼÏñ´¦Àí£¬±ðµÄ·½Ã棨ÈçÍøÂç¡¢Êý¾Ý¿âµÈ£©¶¼²»Õ¦µÄ£¬ÊÂʵҲȷʵÈç´Ë¡£
ÎÒÊÇÒ»Ãû»ú¹Ø¹¤ ......
·½·¨Ò»£º
¿Ø¼þÀà½Ð×ö TABC,ÎļþÃû½Ð abc.pas ÄÇôн¨Á¢Ò»¸öÎļþ½Ð
abc.rc
ÀïÃæÄÚÈÝÊÇ
TABC Bitmap icon.bmp
icon.bmp ¾ÍÊÇͼƬÎļþÃû£¬²»Òª³¬¹ý256É«£¬24x24
È»ºóÔÚÃüÁîÐÐÏÂÖ´ÐÐ brcc32 abc.rc¾Í»áÉú³É abc.res
¸ÄÃûΪ abc.dcr
´ò¿ªÄã¿Ø¼þµÄ dpkÎļþ£¬ ¼ÓÉÏ {$R ABC.DCR}
ÖØÐ±àÒë¾Í¿ÉÒÔÁË¡£
±ã½Ý·½ ......