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;
Ïà¹ØÎĵµ£º
1¡¢±£Ö¤Äã´«µÝµÄ²ÎÊýÒªÕýÈ·£ºC++ÖеÄchar *¶ÔÓ¦PASCALÖеÄpchar¡£
2£ºC++Öе¼³öµÄº¯ÊýµÄ²ÎÊýµ÷Ó÷½Ê½ÒªºÍÄãDELPHIÖеĵ¼ÈëµÄº¯Êý²ÎÊýµ÷Ó÷½Ê½ÒªÒ»ÖÂ!
ÀýÈ磺 C++µÄ²ÎÊýµ÷Ó÷½Ê½ ¶ÔÓ¦µÄDELPHIµÄ²ÎÊýµ÷Ó÷½Ê½
_declspec ......
1¡¢¿ØÖÆPOS»úµÄ¿Í»§ÏÔʾÆÁ
procedure TFrmMain.ShowMoney(Money_Port: String;Money_String:String);
//Moneey_Port ¹ËÏÔ½Ó¿ÚCom1 or Com2 Money_String ¹ËÏÔÏÔʾµÄÄÚÈÝ
var
PrnFile ......
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±à¼Æ÷£¬Ñ¡Ôñ²Ëµ¥ÖеÄFile|New|Other...£¬ÔÚNew ItemÖÐÑ¡ÔñService ApplicationÏDelphi±ã×Ô¶¯ÎªÄ㽨Á¢Ò»¸ö»ùÓÚTServiceApplicationµÄй¤³Ì£¬TserviceApplicationÊÇÒ»¸ö·â×°NT·þÎñ³ÌÐòµÄÀ࣬Ëü°üº¬Ò»¸öTService1¶ÔÏóÒÔ¼°·þÎñ³ÌÐòµÄװж¡¢×¢²á¡¢È¡Ïû· ......