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

DelphiͼÏñ´¦Àí ͼÏñ¸ß˹ģºý´¦Àí£¨¸Ä½ø°æ£©

     ÎÒÔÚÎÄÕ¡¶DelphiͼÏñ´¦Àí -- ͼÏñ¾í»ý¼°¸ß˹ģºý¡·ÖУ¬½éÉÜÁËÀûÓÃͨÓõÄͼÏñ¾í»ý¹ý³Ì¶ÔͼÏñ½øÐиß˹ģºý´¦Àí£¬Æä´¦ÀíЧ¹û»¹²»´í£¬´¦ÀíСÐÍͼÏñʱ¸Ð¾õÒ²»¹ÐУ¬µ«ÊÇ´¦Àí½Ï´óͼÏñʱµÄËٶȻ¹ÊÇÏÓÂý£¬ÔÚÎÒµÄP4 2.8G¡¢1GÄÚ´æµÄ»úÆ÷É϶ÔǧÍòÏñËØͼÏñ½øÐÐQ=3£¬R=5µÄ¸ß˹ģºý´¦Àí£¬²»°üÀ¨Í¼Ïñ×°ÔغÍÇ°ÆÚÊý¾Ýת»»£¬ºÄʱ´ï8600msÒÔÉÏ£¬Ëä¾­¼¸´ÎÐ޸ģ¬Æä´¦ÀíËÙ¶ÈʼÖյò»µ½Ã÷ÏÔÌá¸ß£¬Ö÷ÒªÔ­Òò»¹ÊDzÉÓÃͨÓþí»ý¹ý³Ì´¦ÀíµÄÎÊÌ⣺ÓÃR=5µÃµ½µÄ¾í»ýÄ£°åΪ11*11ÏñËØ£¬Ò»¸öÏñËØÓÐ4¸ö·ÖÁ¿£¨32λARGB£©£¬¶Ôÿ¸öÏóËرØÐë×÷11*11*4=484¸ö³Ë·¨¡¢484¸ö¼Ó·¨¼°4¸ö³ý·¨£¬×îºó»¹µÃ×÷4¸ö·ÖÁ¿ÊÇ·ñ³¬½çµÄÅжϴ¦Àí£¬Ïë²»Âý¶¼ÄÑÀ²£¡Èç¹û²»ÊDzÉÓÃBASM¶¨µãÊý´¦Àí´úÂ룬Æä´¦ÀíËٶȸüÊÇÄÑÒÔÏëÏó¡£
    ÎÒÔÚÍøÉ϶à´Î²éÕÒͼÏñ¸ß˹ģºýµÄÓÅ»¯Ëã·¨£¬²»ÉÙËã·¨ºÍ´¦Àí·½Ê½£¬°üÀ¨´úÂëÓÅ»¯»¹²»ÈçÎÒµÄÄǸö¸ß˹ģºý´¦Àí¹ý³Ì£¬Ê¹ÎÒºÜʧÍû¡£Ç°Ìì²éÕÒÆäËü×ÊÁÏʱ£¬ÔÚ¹úÍâij¸öÍøÕ¾ÉÏ·¢ÏÖ½éÉÜͼÏñ¸ß˹ģºý´¦Àí·½·¨Ê±ËƺõÓë³£¹æµÄËã·¨ÓÐËù²»Í¬£¬µ«¶¼Ã»ÓÐÏêϸµÄ×ÊÁÏ£¨ÒòΪ²»¶®ÍâÓºÜÉÙÉϹúÍâÍøÕ¾£¬µ«¿´Ð©¹«Ê½¡¢Î±´úÂ뻹ÊÇÐеģ©£¬ ¾­¹ý·´¸´×ÁÄ¥£¬¿ÉÒÔ½«Æä´¦ÀíÁ÷³Ì¹éÄÉÈçÏ£º
    1¡¢Óøø¶¨µÄÈ·¶¨QºÍ³¤¶Èsize£¬¼ÆËãÒ»¸ösize+1³¤µÄ¸ß˹·Ö²¼È¨ÊýÊý¾Ýweights£º
radius = size / 2
// ¼ÆËã³õʼÊý¾Ý
for (i = -radius; i <= radius; i ++)
{
x = i / Q;
weights[i+radius] = exp(-x * x / 2)
}
// ÇóºÍ
sum = 0
for (i = -radius; i <= radius; i ++)
{
sum += weights[i+radius]
}
// Êý¾Ý¹éÒ»£¬¼´¹éÒ»ºóµÄÊý¾ÝÖ®ºÍµÈÓÚ1
for (i = -radius; i <= radius; i ++)
{
weights[i+radius] /= sum
}

    2¡¢Ê¹ÓÃweights¶ÔԭͼÏñ×÷´¹Ö±µÄÄ£ºýÔËË㣬¼´ÒÔÏñËØ(x, y)ΪÖÐÐÄ£¬¶Ô(x, y - radius)ºÍ(x, y + radius)µÄÏñËصãÓëweights¶ÔÓ¦µÄÖµÏà³ËºóÇóºÍµÃµ½ÐµÄÏñËØ£¬²¢Ð´Èëµ½Ò»¸öÁÙʱµÄͼÏñÉÏÏàÓ¦µÄµãÉÏ£¨ÒòΪÊý¾Ý½øÐÐÁ˹éÒ»´¦Àí£¬³Ë»ýºÍ²»±ØÔÙ×÷³ý·¨ÔËË㣩£»
    3¡¢Ê¹ÓÃweights¶ÔÁÙʱͼÏñ×÷ˮƽµÄÄ£ºýÔËË㣬¼´ÒÔÏñËØ(x, y)ΪÖÐÐÄ£¬¶Ô(x - radius, y)ºÍ(x + radius, y)µÄÏñËصãÓëweights¶ÔÓ¦µÄÏà³ËºóÇóºÍµÃµ½ÐµÄÏñËØ£¬²¢Ð´È뵽Ŀ±êͼÏñÉÏÏàÓ¦µÄµãÉÏ¡£
    ´¦Àí¹ý³Ì½áÊø¡£
    ÓÉÓÚÉÏÃæµÄ´¦ÀíÁ÷³ÌÖ»ÊǶÔͼÏñÿ¸öÏóËØ×÷ÁËÒ»¸ö“Ê®&rd


Ïà¹ØÎĵµ£º

delphiÖÐIhtmldocument2½Ó¿ÚµÄʹÓÃ

MSHTMLÊÇ΢Èí¹«Ë¾µÄÒ»¸öCOM×é¼þ£¬¸Ã×é¼þ·â×°ÁËHTMLÓïÑÔÖеÄËùÓÐÔªËؼ°ÆäÊôÐÔ£¬Í¨¹ýÆäÌṩµÄ±ê×¼½Ó¿Ú£¬¿ÉÒÔ·ÃÎÊÖ¸¶¨ÍøÒ³µÄËùÓÐÔªËØ£®
¡¡¡¡MSHTML¶ÔÏóÄ£ÐÍÊÇÓÉһЩ¶ÔÏóºÍ¼¯ºÏ×é³ÉµÄ£®´¦ÓÚ¸ù²¿µÄÊÇHTML£¬ÃèÊöÁË´ò¿ªÒ³ÃæµÄ1¸ö´°¿Ú£¬°üÀ¨Ò»ÏµÁм¯ºÏºÍ¶ÔÏó¡£ÈçFrames¼¯ºÏ£¬History£¬Location£¬Navigator£¬Document£¬Vi—sum ......

Delphi UÅ̲åÈ벦³ö¼ì²â

Delphi UÅ̲åÈ벦³ö¼ì²â£º
1¡¢Ð½¨¹¤³Ì£»
2¡¢ÔÚform1ÉÏ·ÅÒ»¸öLabel£»
3¡¢¶¨ÒåÒ»¸ö˽Óйý³Ì
     procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;
ÍêÕû´úÂëÈçÏ£º
unit Unit1;
interface
uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics ......

delphi TWebBrowser×é¼þʹÓÃÏê½â

delphi TWebBrowser×é¼þʹÓÃÏê½â
      ¸Ã×é¼þÊÇÒ»¸öä¯ÀÀÆ÷×é¼þ£¬¿ÉÒÔÏÔʾһ¸öÖ¸¶¨µØÖ·µÄÍøÒ³¡¢ÉèÖÃÍøÒ³´ò¿ªÊ±µÄÖ÷Ò³ÒÔ¼°¶ÔÍøÒ³½øÐÐÏà¹ØµÄ²Ù×÷£¬Í¬Ê±Ò²¿ÉÒÔ¶ÔHTMLÎļþ½øÐмôÇС¢¸´ÖÆ¡¢Õ³Ìù¡¢É¾³ýµÈ²Ù×÷¡£¸Ã
      ×é¼þÔÚInternet×é¼þÒ³ÖС£
     ......

Delphi ÖÐ FindWindow ºÍ FindWindowEx µÄÓï·¨ºÍÓ÷¨

 Delphi ÖÐ FindWindow ºÍ FindWindowEx µÄÓï·¨ºÍÓ÷¨
FindWindow(
lpClassName,        {´°¿ÚµÄÀàÃû}
lpWindowName: PChar {´°¿ÚµÄ±êÌâ}
): HWND;              {·µ»Ø´°¿ÚµÄ¾ä±ú; ʧ°Ü·µ»Ø 0}
//FindWin ......

DelphiʼþµÄ¹ã²¥


    Ã÷Ìì¾ÍÊÇÎåÒ»½ÚÁË£¬ÐÁ¿àÁ˺ü¸¸öÔ£¬½è´Ë»ú»áÓ¦¸Ã¾¡Çé·ÅËÉÒ»·¬¡£¿ÉÊÇÏëµ½BlogºÃ¾ÃûÓÐдÎÄÕ£¬ËƺõȱЩʲôËƵġ£Õ⼸¸öÔÂÀ´ÔÚÏîÄ¿ÖÐÓÖÔö³¤ÁËÐí¶à¾­Ñ飬ѧµ½Ðí¶àʵ¼ÊÓ¦ÓõÄ֪ʶ¡£²»Èç°ÑһЩ±È½ÏÓÐÓõļǼÏÂÀ´£¬¹©ÅóÓÑÃDzο¼¿ÉºÃ¡£
ÎÒÏëµ½DelphiµÄʼþ£¬ÄÇ¿ÉÕæÊǸö·½±ãµÄ¶«Î÷£¬³õѧÕßÔÚ´°ÌåÉÏÀ­¼¸¸ö¿ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ