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

DelphiÓÃWebBrowser±à³Ì ×Ô¶¯µÇ¼²Ù×÷

DelphiÓÃWebBrowser±à³Ì-×Ô¶¯µÇ¼²Ù×÷
2009Äê08ÔÂ18ÈÕ ÐÇÆÚ¶þ 00:39
ÀûÓÃDelphiµÄOlevariantÀàÐÍ
--------------------------------------------------------------------------------
µ¥¸öframesµÄÊäÈë
var
o : Olevariant;
begin
o := WebBrowser.OleObject.document.all.item('LoginUserID',0);    //ÕÒµ½µÇ¼Óû§ÃûµÄÊäÈë¿ò
o.value := 'TEST';
o := WebBrowser.oleobject.document.all.item('LoginPassword',0); //ÕÒµ½µÇ¼ÃÜÂëµÄÊäÈë¿ò
o.value := 'TEST'
WebBrowser.oleobject.document.Forms.Item(0, 0).submit;           //µÚÒ»¸ö±íµ¥Ìá½»
{
o :=WebBrowser.oleobject.document.all.item('Login',0);           //»òÕßÓÃÖ¸¶¨±íµ¥Ãû³ÆÌá½»
o.Click;   //µã»÷²Ù×÷£¬¶ÔÆäËü¶ÔÏóÒ²¿ÉͬÑù²Ù×÷
}
end;
¶à¸öframesµÄÊäÈ룬FrameIndexΪFrameµÄÐòºÅ
var
o : Olevariant;
begin
//ÕÒµ½µÇ¼Óû§ÃûµÄÊäÈë¿ò
o := WebBrowser.oleobject.document.documentelement.document.frames.item(FrameIndex).document.all.item('LoginUserID',0);
o.value := 'TEST';
//ÕÒµ½µÇ¼ÃÜÂëµÄÊäÈë¿ò
o := WebBrowser.oleobject.document.documentelement.document.frames.item(FramIndex).document.all.item('LoginPassword',0);
o.value := 'TEST'
//µÚÒ»¸ö±íµ¥Ìá½»
WebBrowser.oleobject.document.documentelement.document.frames.item(FramIndex).document.Forms.Item(0, 0).submit;
{
//»òÕßÓÃÖ¸¶¨±íµ¥Ãû³ÆÌá½»
o :=WebBrowser.oleobject.document.documentelement.document.frames.item(FramIndex)..document.all.item('Login',0);
o.Click;    //µã»÷²Ù×÷£¬¶ÔÆäËü¶ÔÏóÒ²¿ÉͬÑù²Ù×÷
}
end;


Ïà¹ØÎĵµ£º

delphiµ÷ÓÃVC++6µÄDLL

1¡¢±£Ö¤Äã´«µÝµÄ²ÎÊýÒªÕýÈ·£ºC++ÖеÄchar *¶ÔÓ¦PASCALÖеÄpchar¡£
2£ºC++Öе¼³öµÄº¯ÊýµÄ²ÎÊýµ÷Ó÷½Ê½ÒªºÍÄãDELPHIÖеĵ¼ÈëµÄº¯Êý²ÎÊýµ÷Ó÷½Ê½ÒªÒ»ÖÂ!
 ÀýÈ磺    C++µÄ²ÎÊýµ÷Ó÷½Ê½           ¶ÔÓ¦µÄDELPHIµÄ²ÎÊýµ÷Ó÷½Ê½
           _declspec ......

DelphiÏÂPOS»ú¿ØÖÆÇ®Ïä,¿ÍÏÔ,´òÓ¡»ú,СƱ´òÓ¡

1¡¢¿ØÖÆPOS»úµÄ¿Í»§ÏÔʾÆÁ
procedure TFrmMain.ShowMoney(Money_Port:   String;Money_String:String);
//Moneey_Port     ¹ËÏÔ½Ó¿ÚCom1   or   Com2     Money_String     ¹ËÏÔÏÔʾµÄÄÚÈÝ
var
    PrnFile ......

delphi ¶Ô×Ö·û´®½øÐе¹ÐòµÄ×î¿ìËã·¨

var
   L,i:integer;
   Ustr,str:string;
   p:char;
begin
  str:='123456789ABCDEFG'
  L:=length(str);
  for i:=1 to l do begin
      p:=str[i];
      str[i]:=str[l-(i-1)];
     ......

Delphi±àдϵͳ·þÎñÒ»£ºÈçºÎ±àдһ¸öϵͳ·þÎñ

Delphi±àдϵͳ·þÎñÒ»£ºÈçºÎ±àдһ¸öϵͳ·þÎñ ÊÕ²Ø
 ´ò¿ªDelphi±à¼­Æ÷£¬Ñ¡Ôñ²Ëµ¥ÖеÄFile|New|Other...£¬ÔÚNew ItemÖÐÑ¡ÔñService ApplicationÏDelphi±ã×Ô¶¯ÎªÄ㽨Á¢Ò»¸ö»ùÓÚTServiceApplicationµÄй¤³Ì£¬TserviceApplicationÊÇÒ»¸ö·â×°NT·þÎñ³ÌÐòµÄÀ࣬Ëü°üº¬Ò»¸öTService1¶ÔÏóÒÔ¼°·þÎñ³ÌÐòµÄװж¡¢×¢²á¡¢È¡Ïû· ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ