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

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


Ïà¹ØÎĵµ£º

Delphi¿ç½ø³Ì·ÃÎÊDBGRID

´ËÎÄÊǸù¾Ý°éË®ÀÏ´óµÄʵÀý×öµÄСÐ޸ģ¡
ÒÔÏÂÊǸöÈ˼û½â£¬ÈçÓдíÎóÇëÖ¸Õý:)
      ÒªÏë¿ç½ø³Ì·ÃÎÊDBGRID£¬Ã²ËÆÖ»ÄÜÓÃHOOK£¬Ð´Ò»¸öDLLÏë°ì·¨×¢È뵽Ŀ±ê½ø³Ì¡£×¢Èë³É¹¦ºó£¬Ê¹DLLÓëÄ¿±ê½ø³ÌÔÚͬһ½ø³Ì¿Õ¼äÖÐ(ÆäÄÚÓÐһЩϸ½ÚÎÊÌ⣬Çë²Î¼û´úÂë)£¬Õâʱ¿ÉÒÔ·ÃÎÊÄ¿±ê½ø³ÌµÄVCL×é¼þ¡£²¢°ÑVCL×é¼þµÄÊý¾Ýͨ¹ ......

delphiÖйú¼Ê»¯µÄ¼¸ÖÖ·½°¸¼°±È½Ï(ת)

delphiÖйú¼Ê»¯µÄ¼¸ÖÖ·½°¸¼°±È½Ï(ת)
Ëæ×ÅÈ«Çò»¯³Ì¶È¼ÓÉÈí¼þÔ½À´Ô½ÏñÆÑ¹«Ó¢£¬µ½´¦Æ®É¢¡¢Ôú¸ù¡£ÕâÆäÖÐÒª½â¾öµÄÊDz»Í¬ÓïÑÔµÄÏÔʾÎÊÌâ¡£ÎÒÃǵ±È»Ï£ÍûÒ»Ì׳ÌÐò£¬¿ÉÒÔ²»Ð޸ĴúÂë¾Í¿ÉÒÔÖ§³Ö²»Í¬µÄÓïÑÔ£¬²»ÒªÈ¥Î¬»¤ºÜ¶àµÄ°æ±¾¡£
        Ê×ÏÈҪ̸µ½µÄÒ»¸öÎÊÌâÊÇÂÒÂëÎÊÌ⣬ÒòΪdelphi
wi ......

delphi°æMP3Çиî

ºÃ¾Ãûд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£¬java£¬DelphiµÝ¹é»ñµÃÎļþ¼Ð¼°Æä×ÓÎļþÐÅÏ¢

°ÑÒÔǰ×ö¹ýµÄÏîÄ¿×ܽáһϣ¡²Î¼Ó¹¤×÷ÒÔÀ´Ò»¹²ÓÃÈýÖÖ²»Í¬ÓïÑÔʵÏÖÁË»ñµÃÎļþ¼Ð¼°Æä×ÓÎļþÐÅÏ¢¡£ÎªÁË·½±ãÒÔºóʹÓÃ×ܽáÒ»ÏÂ
airʵÏÖ£º 
private function getfile(filelist:File):Array{  
  var list:Array = filelist.getDirectoryListing();
  var count:uint=list.length;
  ......

DelphiÖеÄTHashTable

ÔÚDelphiÖÐ,Inifilesµ¥ÔªÖÐÓÐÒ»¸öTStringHashµÄÀ࣬²»¹ýËüµÄValue½öÖ§³ÖInteger(ÆäʵҲ²»ÊÇÎÊÌ⣬ÓÐÆäËüÀàÐÍ¿ÉÒÔ½«±äÁ¿±äΪPointer)£¬ÓÐµã²»Êæ·þ£¬½ñÌìûÊÂ×ö¾Í°ÑËüÌæ»»ÎªvariantÁË£¬ÆäÖÐKeyµÄÃû³Æ´óСдÎ޹أ¬¾ÍÊÇΪÁ˼ӿ쿪·¢ËÙ¶È£¡
ʹÓÃHashtable,²éÕÒºÍɾ³ý¸´ÔӶȶ¼Êdz£Êý¼¶±ðµÄ!
type
PPHashItem = ^PHashItem;
......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ