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

delphiÖÐWebbrowserÎÊÌâÊÕ¼¯

 delphiÖÐWebbrowserÎÊÌâÊÕ¼¯
»ñµÃÍøÒ³ÖбäÁ¿Öµ     htmÖÐ<script> var currID=123</script>     ³ÌÐòÖпÉÒÔÕâôµ÷Óà id := Form1.WebBrowser1.OleObject.Document.script.currID     ÖµµÃ˵Ã÷µÄÊÇ,±äÁ¿¿ÉÒÔÊÇjavascript¶¨ÒåµÄ,Ò²¿ÉÒÔÊÇvbscript¶¨ÒåµÄ,Èç¹ûWebbrowser1ÖÐÕÒ²»µ½¸Ã±äÁ¿,µ÷Óûᴥ·¢Ò»¸öÒ쳣ʼþ,¼´±äÁ¿currID²»´æÔÚ
2.Ö´ÐÐÍøÒ³Öеĺ¯Êý     tmp := 'currID = getNextID(currID)'+#13#10;
     Form1.WebBrowser1.OleObject.Document.parentWindow.execScript(tmp,'JavaScript');    µ÷Óú¯ÊýµÄ·½·¨¾ÍÊÇexecScript½Ó¿Ú,ͬÑù,Èç¹ûº¯Êý²»´æÔÚ,»òÕßÔËÐдíÎóÒ²»á´¥·¢½Å±¾´íÎóÒì³£
3.ÉèÖÃÍøÒ³±³¾°     ±³¾°Í¼Æ¬ WebBrowser1.OleObject.Document.body.background    := 'http://seelearn.com/bg.gif'       ±³¾°ÑÕÉ« WebBrowser1.OleObject.Document.body.bgcolor    := '#eeeeee'
4.µ÷ÓÃÍøÒ³ÖÐÒÑÖª¶ÔÏó     src := WebBrowser1.OleObject.Document.getElementByID('img1').src     ¸Ã·½·¨Æäʵ¾ÍÊÇjavascriptÖÐµÄ getElementByID  
5.»ñÈ¡Ò³ÃæÖÐËùÓеÄframe     ʹÓÃDHTML¡£
     frames:=wb.OleObject.document.frames;
     for i:=0 to frames.length do
     memo1.lines.Add(frames[i].document.body.innerHTML);6.BorderStyle=bsNoneºóWebbrowser»á±»ÖØгõʼ»¯     ÕâÊÇÒ»¸öÈÃÈ˺ÜÒâÍâµÄÒ»¸öÎÊÌâ,DelphiÔÚ´°¿Ú¿Ø¼þµÄ¿ØÖÆ·½Ãæ×öµÃ·Ç³£ºÃ,ºÜÉÙ³öÏÖÕâÖÖBUG     ¸ù¾Ý·ÖÎö,³öÏÖÕâ¸öÏÖÏóÓкܶàÇé¿ö ¸Ä±äFormStyleÒ²»á³öÏÖ ; Èç¹û    webbrowser.parent    ÓÉpanel1    ¸Äµ½panel2.Ò²»áµ¼ÖÂwebbrowserÖØР 
   ³õʼ»¯¡£
7.Ö±½ÓÏòWebbrowserÖÐдÈëhtml´úÂë,²»ÐèÒªNavigateµ½Êµ¼Ê´æÔÚµÄÎļþ     var
    StrStream:TStringStream;
    SetNoteStr: string;     begin &


Ïà¹ØÎĵµ£º

Delphi Óë C/C++ Êý¾ÝÀàÐͶÔÕÕ±í

Delphi Óë C/C++ Êý¾ÝÀàÐͶÔÕÕ±í
DelphiÊý¾ÝÀàÐÍC/C++
ShorInt
8λÓзûºÅÕûÊý
char
Byte
8λÎÞ·ûºÅÕûÊý
BYTE,unsigned short
SmallInt
16λÓзûºÅÕûÊý
short
Word
16λÎÞ·ûºÅÕûÊý
unsigned short
Integer,LongInt
32λÓзûºÅÕûÊý
int,long
Cardinal,LongWord/DWORD
32λÎÞ·ûºÅÕûÊý
unsigned long
Int6 ......

Ò»¸ödelphi³ÌÐòÔ±µÄ¿ª·¢Ï°¹ß

                                                   ......

Delphi ActiveX FormµÄʹÓÃʵÀý

 Delphi ActiveX FormµÄʹÓÃʵÀý
By knityster
1. ActiveX¿Ø¼þ¼ò½é
ActiveX¿Ø¼þÒ²¾ÍÊÇÒ»°ãËù˵µÄOCX¿Ø¼þ£¬ËüÊÇActiveX¼¼ÊõµÄÒ»²¿·Ö¡£
ActiveX¿Ø¼þ¿ÉÒÔ±»¼¯³Éµ½ºÜ¶àÖ§³ÖActiveXµÄÓ¦Óõ±ÖÐÈ¥£¬»òÕßÖ±½ÓÓÃÀ´À©Õ¹Ó¦ÓõŦÄÜ£¬ÕâЩ֧³ÖActiveXµÄÓ¦ÓðüÀ¨C++ Builder¡¢Delphi¡¢Visual dBASE¡¢ Visual Basic¡¢Visual C++¡ ......

DelphiÖлæÖÆÔ²½Ç¾ØÐεĴ°Ìå

ÖÆ×÷Ô²½Ç¾ØÐεĴ°Ì壺
01.procedure TPortForm.FormCreate(Sender: Tobject);
02.var hr :thandle;
03.begin
04.hr:=createroundrectrgn(0,0,width,height,20,20);
05.setwindowrgn(handle,hr,true);
06.end;
Èç¹û²»Òª´°ÌåÍâ¿ò£¬ÔòʹÓãº
01.procedure TPortForm.FormCreate(Sender: Tobject);
02.var hr :thandl ......

delphi֮ģÄâµã»÷ÍøÒ³Öеİ´Å¥

unit Unit1;   
  
interface  
  
uses  
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   
   Dialogs, StdCtrls, OleCtrls, SHDocVw;   
  
t ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ