Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

delphiÖÐIhtmldocument2½Ó¿ÚµÄʹÓÃ

MSHTMLÊÇ΢Èí¹«Ë¾µÄÒ»¸öCOM×é¼þ£¬¸Ã×é¼þ·â×°ÁËHTMLÓïÑÔÖеÄËùÓÐÔªËؼ°ÆäÊôÐÔ£¬Í¨¹ýÆäÌṩµÄ±ê×¼½Ó¿Ú£¬¿ÉÒÔ·ÃÎÊÖ¸¶¨ÍøÒ³µÄËùÓÐÔªËØ£®
¡¡¡¡MSHTML¶ÔÏóÄ£ÐÍÊÇÓÉһЩ¶ÔÏóºÍ¼¯ºÏ×é³ÉµÄ£®´¦ÓÚ¸ù²¿µÄÊÇHTML£¬ÃèÊöÁË´ò¿ªÒ³ÃæµÄ1¸ö´°¿Ú£¬°üÀ¨Ò»ÏµÁм¯ºÏºÍ¶ÔÏó¡£ÈçFrames¼¯ºÏ£¬History£¬Location£¬Navigator£¬Document£¬Vi—sum£¬Event¶ÔÏóµÈ£®ÆäÖÐÃèÊö³ÊÏÖÔÚ¿Í»§´°¿Úʵ¼ÊÍøÒ³µÄÊÇDocument¶ÔÏó¡£ÓÉһϵÁеÄÊôÐÔ¡¢·½·¨¡¢¶ÔÏóºÍ¼¯ºÏ×é³É£®ÆäÖÐAll¼¯ºÏÖаüº¬ÍøÒ³ÖÐËùÓбê¼Ç(Tag)ÔªËØ£¬ÆäÖ÷ÒªµÄ·½·¨ºÍÊôÐÔÓУº
¡¡¡¡(1)Length(³¤¶È)£º¼´±ê¼Ç³öÏֵĸöÊý£¬¿ÉÒ԰ѱê¼ÇµÄ¼¯ºÏÀí½âΪ´Ó0¿ªÊ¼µÄһάÊý×飬Æä´ÎÐò°´ÕÕ±ê¼ÇÔÚÍøҳλÖÃÅÅÁУ»
¡¡¡¡(2)Tags(±ê¼Ç)£ºÓÃÓÚ¹ýÂ˳ö¸ø¶¨±ê¼ÇµÄ¼¯ºÏ£¬ÈçDoc£®Al1£®Tags(P)µÃµ½ËùÓзֶαê¼ÇP£»
¡¡¡¡(3)Item(ÏîÄ¿)£ºÓÃÓÚÑ¡Ôñ¼¯ºÏÖеÄij1¸öÔªËØ£¬Èçobject£®item(0)µÃµ½¼¯ºÏµÄµÚ1¸öÔªËØ£¬¶øobject£®item(i)µÃµ½µÚi+1¸öÔªËØ£®
¡¡¡¡´ËÍ⣬IHTMLElementÒ²ÊǸö³£Óõļ¯ºÏ¶ÔÏ󣬴ú±íÍøÒ³ÖÐÖ¸¶¨±ê¼ÇµÄ¼¯ºÏ£¬Í¨¹ýÕâ¸ö¼¯ºÏ¶ÔÏ󣬿ÉÒԵõ½ÍøÒ³ÉÏÌض¨±ê¼ÇµÄÄÚÈÝ£®IHTMLElementÓÐ4¸öÖ÷ÒªÊôÐÔ£º
¡¡¡¡(1)InnerText£º¿ªÊ¼±ê¼ÇºÍ½áÊø±ê¼ÇÖ®¼äµÄÎı¾£»
¡¡¡¡(2)InnerHTML£º¿ªÊ¼±ê¼ÇºÍ½áÊø±ê¼ÇÖ®¼äµÄÎı¾ºÍHTML£»
¡¡¡¡(3)OuterText£º¶ÔÏóµÄÎı¾£»
¡¡¡¡(4)OuterHTML£º¶ÔÏóµÄÎı¾ºÍHTML£®
×¢Ò⣺ʹÓÃÇ°¼ÓÈëµ¥Ôªmshtml
ÑÝʾ±íµ¥Ìá½»
procedure TForm1.Button1Click(Sender: TObject);
var
Doc:IHTMLDocument2;
input:OleVariant;
userinputelement,pwdinputelement:ihtmlinputelement;
begin
doc:=webbrowser1.document as ihtmldocument2;
userinputelement:=(doc.all.item('user'(Ò²¾ÍÊÇÍøÒ³ÖÐÓû§Ãû¿Ø¼þµÄÃû×Ö),0) as ihtmlinputelement);
userinputelement.value:=edit1.text;(Ò²¾ÍÊÇÄãÒªÏòÍøÒ³ÊäÈëµÄ¶«Î÷)
pwdinputelement:=(doc.all.item('password',0) as ihtmlinputelement);
pwdinputelement.value:=edit2.text;
input:=doc.all.item('submit',0);
input.click;
end;
µ±Ìá½»Êý¾Ý°´Å¥Ã»ÓÐNAMEÊôÐÔʱ£¬²ÉÓÃÈçÏ·½·¨£º
procedure TForm1.Button1Click(Sender: TObject);
var
Doc:IHTMLDocument2;
form:ithmlformelement;
userinputelement,pwdinputelement:ihtmlinputelement;
begin
doc:=webbrowser1.document as ihtmldocument2;
userinputelement:=(doc.all.item('user'(Ò²¾ÍÊÇÍøÒ³ÖÐÓû§Ãû¿Ø¼þµÄÃû×Ö),0) as ihtml


Ïà¹ØÎĵµ£º

DelphiʹÓÃiniÅäÖÃÎļþÁ¬½ÓMS SQLÊý¾Ý¿â

ºÜÔç×ö¹ýµÄÒ»¸ödelphiÏîÄ¿£¬°ÑÀïÃæÓõ½µÄ¼¼Êõ×ܽáһϣ¬Ö÷ÒªÊÇÕë¶ÔÏóÎÒÕâÑùµÄdelphiÐÂÊÖ£¬¼¼ÊõÉÏ×ö¸ö»ýÀÛ°É£¡
¼ÙÉèÎÒÃǵÄÊý¾Ý¿âÅäÖÃÎļþServerInfo.iniÄÚÈÝÈçÏ£º
[ServerInfo]  
ServerIP=192.168.1.5
SQLDBName=Data 
SQLUserID=sa  
SQLPwd=  
ÎÒÃǶ¨ÒåÒ»¸öÁ¬½ÓÊý¾Ý¿âµÄ¹ý ......

Delphi±éÀúPanel×é¼þÉϵÄËùÓпؼþ

procedure frmMain.CLS; //Ö÷´°Ìå×Ô¶¨ÒåʼþCLS
var i:integer;
begin
  for i:=0 to panel5.ControlCount -1 do
  begin
    if panel5.Controls[i] is TEdit then  //Edit×é¼þ
    begin
       ((panel5.Contro ......

DelphiÖ¸ÕëÀàÐÍdzÎö

²Î¿¼×ÊÁÏ
“dz̸Object PascalµÄÖ¸Õë”
“Delphi Ö¸ÕëÈëÃÅ”
 
»ù±¾ÖªÊ¶
Ö¸Õë
Ö¸ÕëÊÇÒ»¸öÌØÊâµÄ±äÁ¿£¬ËüÀïÃæ´æ´¢µÄÊýÖµ±»½âÊͳÉΪÄÚ´æÀïµÄÒ»¸öµØÖ·¡£  
×¢Ò⣺
£¨1£©¡¢Ö¸Õë¶ÔÓ¦×ÅÒ»¸öÊý¾ÝÔÚÄÚ´æÖеĵØÖ·£¬µÃµ½ÁËÖ¸Õë¾Í¿ÉÒÔ×ÔÓɵØÐ޸ĸÃÊý¾Ý¡£
£¨2£©¡¢Ò»¸öÖ¸Õë±äÁ¿½ö½öÊÇ´æ´¢Ò ......

Delphi bookmarkʹÓÃ

¹ØÓÚÊéÇ©(BookMark)²Ù×÷£»    
  ÊéÇ©²Ù×÷Ö÷ÒªÓÃÓÚÔÚ±íÖпìËٵض¨Î»¼Ç¼ָÕ룬ÔÚÓ¦ÓóÌÐòÖг£³£Òª±£´æ¼Ç¼ָÕëËùÔÚµÄλÖã¬ÔÚ½øÐÐÆäËû´¦ÀíÖ®ºó£¬Ï£ÍûÄÜ¿ìËٵطµ»Øµ½ÏÈÇ°Ö¸ÕëËùÔÚµÄλÖ㬴Ëʱ£¬Ê¹ÓÃÊéÇ©½«ÏÔµÃÌرðÓÐÓá£ÓйØÊéÇ©²Ù×÷£¬DelphiÌṩÁËÈý¸ö·½·¨£¬ËüÃÇÊÇ£º  
  ¡ñ&n ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ