Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 2010 µÄChar

½ñÌìÓÃdelphi 2010£¬×öÒ»¸ö¼òµ¥µÄÄÚ´æÓ³ÉäµÄ³ÌÐò£¬ÔÚdelphiÒÔǰ°æ±¾ÉÏÅܵĺúõijÌÐò£¬ÔÚ2010ÉÏ£¬¾ÓÈ»³öÏÖÁ˲»Í¬µÄЧ¹û£¬·¢ËͶ˷¢Ë͵Ä×Ö·û´®£¬½ÓÊÕ¶ËÖ»ÊÕµ½Ò»°ë£¬´ó¸Å³ÌÐòÈçÏ£º
·¢ËͶˣº
var
    str : String;
begin
  CopyMemory(@(PShare^.Data),str,Length(str));  //°ÑÊý¾Ý¿½±´µ½ ......

DELPHI²ÎÊý¼¸¸ö¸ÅÄîÉϵÄÇø±ð ÊÕ²Ø

DELPHI²ÎÊý¼¸¸ö¸ÅÄîÉϵÄÇø±ð ÊÕ²Ø
 ÒýÓòÎÊý£º
ÒýÓòÎÊýÓÃvar¹Ø¼ü×Ö±êʾ
procedure DoubleTheValue (var Value: Integer);
begin
  Value := Value * 2;
end;ÔÚÕâÖÖÇé¿öÏ£¬²ÎÊý¼È°ÑÒ»¸öÖµ´«µÝ¸ø¹ý³Ì£¬ÓÖ°ÑÐÂÖµ·µ»Ø¸øµ÷Óùý³ÌµÄ´úÂë¡£µ±ÄãÖ´ÐÐÍêÒÔÏ´úÂëʱ£º
var
  X: Integer;
begin
  X : ......

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

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

DelphiÖÐʵÏÖ¼ÓÔØINFÇý¶¯³ÌÐò£¡


°ïÖúÒ³ÔÚhttp://delphi.about.com/cs/adptips2003/a/bltip0203_2.htm
×Ô¼ºÔÚʵÏֵĹý³ÌÖеľßÌå¹ý³ÌÈçÏ£º
function InstallInf(const PathName: string; hParent: HWND): Boolean;
var
  instance: HINST;
begin
  instance := ShellExecute(hParent,
      PChar('open ......

delphiÖÐexit,abort,break,continue µÄÇø±ð

exit: Í˳öº¯ÊýÌå
abort: Óöµ½Òì³£,°²¾²´¦Àí,¾ÍÊDz»ÏÔʾ²»Ìáʾ
break: Í˳öµ±Ç°Ñ­»·Ìå,°üÀ¨for ,while, repeatµÈÑ­»·Ìå
continue: ½áÊøÑ­»·Äڵı¾´Î´¦Àí,¼ÌÐø´ÓÑ­»·ÌåµÄ¿ªÊ¼Î»ÖüÌÐøÖ´ÐÐ
Exit ÊÇÌø³öµ±Ç°´úÂë¿é£¬Ò²¾ÍÊǵ±Ç°º¯Êý£¬Ìø³öºóÊÇÒª¼ÌÐøÏòÏÂÖ´Ðеģ¨Èç¹ûÓкóÐø´úÂ룩¡£
Abort ÊÇ´Ó EAbort ¹ýÀ´µÄ£¬¿ÉÒÔ¼¤·¢ ex ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ