DelphiÖÐWebBrowser¿Ø¼þµÄbug¼°½â¾ö·½°¸
¡¡¡¡DelphiÓïÑÔ£¬ÎÞÂÛÊÇ´Ó¿ª·¢ËÙ¶È¡¢»¹ÊÇÔËÐÐËÙ¶È¡¢»¹ÊDZàÒëËÙ¶È¡¢»¹ÊDZàÒëÖ®ºóµÄÖ´ÐÐÎļþÌå»ý£¬¶¼ÊÇÊýÒ»Êý¶þµÄ¡£Òò´Ë±»×÷Ϊ¹²ÏíÈí¼þ¡¢¿ª·¢²úÆ·¡¢ÖÆ×÷“ÂÌÉ«Èí¼þ”µÄÊ×Ñ¡¡£µ«ÊÇ£¬ÓÉÓÚÖî¶àÔÒò£¬DelphiÖУ¬ÓÐһЩ¿Ø¼þ£¬´æÔÚһЩbug¡£²»ÂÛ¹ã´ó¼¼ÊõÈËÔ±ÈçºÎ·´Ó¦£¬Delphi¹Ù·½¾ÍÊÇ“ÊÓ¶ø²»¼û”¡£ÓÐÎÊÌ⣬È˼ÒËäÈ»²»¸ø½â¾ö£¬µ«ÊÇ£¬×ܲ»Äܲ»ÓÃÕâÖÖÓïÑÔ°É£¬±Ï¾¹Óŵ㻹ÊÇ´óÓÚȱµãµÄ¡£»¹ÊÇ“×Ô¼º¶¯ÊÖ£¬·áÒÂ×ãʳ”°É¡£
¡¡¡¡×î½ü±ÊÕßÔÚ¿ª·¢·º¶«Ðͬ¹ÜÀíϵͳ¿Í»§¶ËµÄʱºò£¬Ê¹ÓÃÁËDelphiÖеÄWebBrowser¿Ø¼þ£¬ÏàÐÅÕâ¸ö¿Ø¼þ£¬ÊÇʹÓÃ×î¹ã·ºµÄ¿Ø¼þÖ®Ò»£¬¼¸ºõËùÓÐÓëInternetÏà¹ØµÄ²úÆ·£¬¶¼Àë²»¿ªÕâ¸ö¿Ø¼þ¡£µ«ÊÇÕâDelphiÖеÄWebBrowser¿Ø¼þ£¬ÔÚʹÓùý³ÌÖУ¬·¢ÏÖÈý¸öBug¡£
¡¡¡¡1¡¢Èç¹û´ò¿ªµÄÒ³ÃæÖУ¬ÓÐͨ¹ýjavascript¹Ø±ÕÒ³ÃæµÄ£¬Ö»»á°Ñ¿Ø¼þ¹Ø±Õ£¬°üº¬¿Ø¼þµÄ´°¿ÚÈÔÈ»´æÔÚ£¬²¢ÇÒÊÖ¹¤¹Ø±Õ´°¿Úʱ£¬³öÏÖÎÊÌ⣻
¡¡¡¡2¡¢´ò¿ªµÄÒ³Ãæ£¬Í¨¹ýÊó±êÑ¡¶¨µÄÄÚÈÝ£¬²»Äܸ´ÖÆ£¬ÎÞÂÛÊÇͨ¹ýÓÒ¼ü²Ëµ¥¸´ÖÆ£¬»¹ÊÇͨ¹ýCtrl+C¿ì½Ý¼ü¸´ÖÆ£¬¶¼²»¿ÉÒÔ£»
¡¡¡¡3¡¢´ò¿ªÓÐWebBrowser¿Ø¼þµÄ´°¿Ú£¬¹Ø±Õ´°¿ÚÖ®ºó£¬ÄÚ´æµÃ²»µ½ÊÍ·Å£¨´ËBugÔÚÆäËûÓïÑÔÖÐÒ²´æÔÚ£©¡£
¡¡¡¡ÒÔÉÏÈý¸öÎÊÌ⣬ÊDZØÐë½â¾öµÄ¡£Í¨¹ý²éÕÒ×ÊÁϼ°×Ô¼ºµÄÊÔÑ飬ÖÕÓÚÕÒµ½Á˽â¾ö°ì·¨£¬½«½â¾ö·½°¸×ܽáÈçÏ£º
ÎÊÌâ1½â¾ö·½°¸£º
ÏÈÉùÃ÷ÏûÏ¢´¦Àíº¯Êý£º
procedure ApplicationMessage(var Msg: TMsg; var Handled: Boolean);
ÔÚform createʱ
Application.OnMessage := ApplicationMessage;
º¯ÊýÄÚÈÝÈçÏ£º
procedure tfrmhtmlbrowser.ApplicationMessage(var Msg: TMsg; var Handled: Boolean);
var
wb: tembeddedwb;
begin
WB := GetVisibleWebBrowser; //È¡µ±Ç°webbrowser¿Ø¼þ
if (Msg.message = WM_CLOSE) and (Msg.hwnd = Wb.Handle) then
begin
Self.Close ();//¹Ø±Õwebbrowserºó£¬°ÑÏàÓ¦µÄ´°¿Ú¹Ø±Õ
end
Ïà¹ØÎĵµ£º
´ËÎÄÊǸù¾Ý°éË®ÀÏ´óµÄʵÀý×öµÄСÐ޸ģ¡
ÒÔÏÂÊǸöÈ˼û½â£¬ÈçÓдíÎóÇëÖ¸Õý:)
ÒªÏë¿ç½ø³Ì·ÃÎÊDBGRID£¬Ã²ËÆÖ»ÄÜÓÃHOOK£¬Ð´Ò»¸öDLLÏë°ì·¨×¢È뵽Ŀ±ê½ø³Ì¡£×¢Èë³É¹¦ºó£¬Ê¹DLLÓëÄ¿±ê½ø³ÌÔÚͬһ½ø³Ì¿Õ¼äÖÐ(ÆäÄÚÓÐһЩϸ½ÚÎÊÌ⣬Çë²Î¼û´úÂë)£¬Õâʱ¿ÉÒÔ·ÃÎÊÄ¿±ê½ø³ÌµÄVCL×é¼þ¡£²¢°ÑVCL×é¼þµÄÊý¾Ýͨ¹ ......
delphiÖйú¼Ê»¯µÄ¼¸ÖÖ·½°¸¼°±È½Ï(ת)
Ëæ×ÅÈ«Çò»¯³Ì¶È¼ÓÉÈí¼þÔ½À´Ô½ÏñÆÑ¹«Ó¢£¬µ½´¦Æ®É¢¡¢Ôú¸ù¡£ÕâÆäÖÐÒª½â¾öµÄÊDz»Í¬ÓïÑÔµÄÏÔʾÎÊÌâ¡£ÎÒÃǵ±È»Ï£ÍûÒ»Ì׳ÌÐò£¬¿ÉÒÔ²»Ð޸ĴúÂë¾Í¿ÉÒÔÖ§³Ö²»Í¬µÄÓïÑÔ£¬²»ÒªÈ¥Î¬»¤ºÜ¶àµÄ°æ±¾¡£
Ê×ÏÈҪ̸µ½µÄÒ»¸öÎÊÌâÊÇÂÒÂëÎÊÌ⣬ÒòΪdelphi
wi ......
ºÃ¾ÃûдBLOGÁË£¬ËÍÉÏÒ»·ÝÔ´´µÄDELPHI°æMP3ÇиsplitMp3ΪÇиÊý£¬Ö§³Ö°´Ê±¼äÇиîºÍ°´´óСÇиÍû´ó¼ÒÖ§³Ö¡£
²Î¿¼VCµÄ×ÊÁϱàдµÄMP3ÇиîDELPHI°æµ¥Ôª.
unit UnitMp3DataUtil;
{
MP3 Cut Unit.
@author Jim Wu
2009-08
}
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, ......
°ÑÒÔǰ×ö¹ýµÄÏîÄ¿×ܽáһϣ¡²Î¼Ó¹¤×÷ÒÔÀ´Ò»¹²ÓÃÈýÖÖ²»Í¬ÓïÑÔʵÏÖÁË»ñµÃÎļþ¼Ð¼°Æä×ÓÎļþÐÅÏ¢¡£ÎªÁË·½±ãÒÔºóʹÓÃ×ܽáÒ»ÏÂ
airʵÏÖ£º
private function getfile(filelist:File):Array{
var list:Array = filelist.getDirectoryListing();
var count:uint=list.length;
......
ÔÚDelphiÖÐ,Inifilesµ¥ÔªÖÐÓÐÒ»¸öTStringHashµÄÀ࣬²»¹ýËüµÄValue½öÖ§³ÖInteger(ÆäʵҲ²»ÊÇÎÊÌ⣬ÓÐÆäËüÀàÐÍ¿ÉÒÔ½«±äÁ¿±äΪPointer)£¬ÓÐµã²»Êæ·þ£¬½ñÌìûÊÂ×ö¾Í°ÑËüÌæ»»ÎªvariantÁË£¬ÆäÖÐKeyµÄÃû³Æ´óСдÎ޹أ¬¾ÍÊÇΪÁ˼ӿ쿪·¢ËÙ¶È£¡
ʹÓÃHashtable,²éÕÒºÍɾ³ý¸´ÔӶȶ¼Êdz£Êý¼¶±ðµÄ!
type
PPHashItem = ^PHashItem;
......