[delphi×é¼þ] WebbrowserµÄʹÓÃ
delphiÖÐWebbrowserµÄʹÓÃ
1.»ñµÃÍøÒ³ÖбäÁ¿Öµ
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;
Ïà¹ØÎĵµ£º
×î½üÐèÒª°²×°µÚÈý·½×é¼þ£¬ÔÚÍøÂçÉÏÕÒµ½Ò»Ð©×ÊÁÏת¹ýÀ´¿´¿´
ÓÉÓÚ×é¼þÌṩµÄ·½Ê½²»Í¬£¬ËùÒÔ°²×°µÄ·½·¨Ò²ÊDz»Ò»ÑùµÄ£¬ÏÂÃæ¾ÍÄ¿Ç°³£¼ûµÄ¸÷ÖÖÐÎʽµÄ×é¼þµÄ°²×°·½·¨½éÉÜһϡ£
1 Ö»ÓÐÒ»¸öDCUÎļþµÄ×é¼þ¡£DCUÎļþÊDZàÒëºÃµÄµ¥ÔªÎļþ£¬ÕâÑùµÄ×é¼þÊÇ×÷Õß²»Ïë°ÑÔ´Â빫² ......
Ò»¡¢ÀàÓë¶ÔÏó
1¡¢ Àà(Class)ÊÇÓû§¶¨ÒåµÄÊý¾ÝÀàÐÍ
2¡¢ ¶ÔÏó£¨Object£©ÊÇÀà(Class)µÄÒ»¸öʵÀý£¬»òÓÉÀඨÒåÊý¾ÝÀàÐ͵ÄÒ»¸ö±äÁ¿;
3¡¢ ÀàÓÐÒ»ÖÖ״̬£¨ÄÚ²¿Êý¾Ý£©£¬²Ù×÷£¨ÐÐΪ»ò·½·¨£©£¬ÊôÐÔ;
4¡¢ ¶ÔÏóÊÇÒ»¸öʵÌ壬³ÌÐòÔËÐÐʱ»áΪÆäÄÚ²¿±íÏÖ·ÖÅäһЩÄÚ´æ;
5¡¢ ÀàÓë¶ÔÏóÖ®¼äµÄ¹ØϵºÍ±äÁ¿ÓëÀàÐ ......
Delphi¼üÅÌ°´¼üαÂë
Ó÷¨£ºif key = chr(VK_RETURN) then...
³£ÊýÃû³Æ Ê®Áù½øÖÆÖµ Ê®½øÖÆÖµ ¶ÔÓ¦°´¼ü
VK_LBUTTON 01 1 Êó±êµÄ×ó¼ü
VK_RBUTTON 02 2 Êó±êµÄÓÒ¼ü
VK-CANCEL 03 3 Contol-break Ö´ÐÐ
VK_MBUTTON 04 4 Êó±êµÄÖмü£¨Èý°´¼üÊó±ê)
VK_BACK 08 8 Backspace¼ü
VK_TAB 09 9 Tab¼ü
VK_CLEAR 0C 12 Clear¼ü
VK ......
Ò»Ö±ÏëÈÃDelphi×öΪRIA£¬¶øÒµÎñ²ãʹÓÃJava£¡½ñÌìûÊÂ×ö£¬¼òµ¥ÊµÏÖÁËһϣ¡
Ä¿Ç°ÓÐ2ÖÖ·½°¸£º
WebService
IndyHttpµ÷ÓÃServlet
ÒÔÏÂÊÇÓÃIndyHttpÀ´µ÷ÓÃServlet
Ò»¡¢ÏÈдһ¸öhelloworldµÄServlet
1.±àдuiÒÔ¼°service
//¹¤¾ß°ü
package com.cdrs.jutils;
import java.io.IOException;
import java.util.Date;
impor ......