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


1¡¢ ·ÅÒ»ÏÂmemo¿Ø¼þ¡¢Ò»¸öbutton¡¢opendialog
ÔÚbuttonµÄclickʼþÖÐ
if opendialog1.Execute then
memo1.Lines.LoadfromFile(opendialog1.filename);  
2¡¢Àļòµ¥µÄʰ¡
var
   Mytxt : TStringList;
begin
   MyText :=
TStringList('ÄãµÄÎı¾Îļþ¼°Â·¾¶');
 
&nbs ......

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

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

ÔÚWIN32ÖеĴ®¿ÚͨѶ£¨Delphi£©

ÔÚWIN32ÖеĴ®¿ÚͨѶ£¨Delphi£©
ÓÉÔÚWIN32²Ù×÷ϵͳÖнûÖ¹Ó¦ÓóÌÐòÏóDOSÖÐÄÇÑùÖ±½Ó·ÃÎʼÆËã»úÓ²¼þ£¬Òò´Ë£¬ÎÞ·¨ÏóÒÔǰÄÇÑù²ÉÓÃÖж϶Áд´®¿Ú¡£µ«ÊÇÔÚWIN32ÖÐÎÒÃǿɷ¢²ÉÓÃÁ½ÖÖ·½·¨·ÃÎÊ´®¿Ú£º1¡¢Ê¹ÓÃVBÖеÄMSCOMM´®¿Ú¿Ø¼þ£»2¡¢²ÉÓÃAPIº¯Êý£¬±¾ÎÄÖ÷Òª½éÉܲÉÓÃAPIº¯ÊýʵÏÖ´®¿ÚͨѶ¡£
ÓÉÓÚWM_COMMNOTIFYÏûÏ¢Òѱ»È¡Ïû£¬¹Ê±¾ÎÄ×Ô¶ ......

DelphiÖ¸ÕëÀàÐÍdzÎö(¸½¼þ)

¸½¼þ×ÊÁÏ
*Ö¸ÕëµÄʹÓ㨴úÂ룩
ʾÀý£º¼òµ¥µÄÖ¸ÕëÓ¦ÓÃ
´úÂ룺
procedure TForm1.Button2Click(Sender: TObject);
var
    a: Integer;
    p: ^Integer;
begin
    with self.Memo1.Lines do
    begin
        ......

delphi DBGridÓ¦ÓôóÈ«

 ÔÚ Delphi ÓïÑÔµÄÊý¾Ý¿â±à³ÌÖУ¬DBGrid ÊÇÏÔʾÊý¾ÝµÄÖ÷ÒªÊÖ¶ÎÖ®Ò»¡£µ«ÊÇ DBGrid ȱʡµÄÍâ¹ÛδÃâÏԵõ¥µ÷ºÍȱ·¦´´Òâ¡£Æäʵ£¬ÎÒÃÇÍêÈ«¿ÉÒÔÔÚÎÒÃǵijÌÐòÖÐͨ¹ý±à³ÌÀ´´ïµ½ÃÀ»¯DBGrid Íâ¹ÛµÄÄ¿µÄ¡£Í¨¹ý±à³Ì£¬ÎÒÃÇ¿ÉÒԸıä DBGrid µÄ±íÍ·¡¢Íø¸ñ¡¢Íø¸ñÏßµÄǰ¾°É«ºÍ±³¾°É«£¬ÒÔ¼°Ïà¹ØµÄ×ÖÌåµÄ´óСºÍ·ç¸ñ¡£
    ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ