Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 TStream Ïêϸ½éÉÜ

Delphi TStream Ïêϸ½éÉÜ
Stream¶ÔÏó£¬ÓÖ³ÆÁ÷ʽ¶ÔÏó£¬ÊÇTStream¡¢THandleStream¡¢TFileStream¡¢TMemoryStream¡¢TResourceStreamºÍTBlobStreamµÈµÄͳ³Æ¡£ËüÃÇ·Ö±ð´ú±íÁËÔÚ¸÷ÖÖý½éÉÏ´æ´¢Êý¾ÝµÄÄÜÁ¦£¬ËüÃǽ«¸÷ÖÖÊý¾ÝÀàÐÍ(°üÀ¨¶ÔÏóºÍ²¿¼þ) 
ÔÚÄÚ´æ¡¢Íâ´æºÍÊý¾Ý¿â×Ö¶ÎÖеĹÜÀí²Ù×÷³éÏóΪ¶ÔÏó·½·¨£¬²¢ÇÒ³ä·ÖÀûÓÃÁËÃæÏò¶Ô ......

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×é¼þ¿ª·¢½Ì³ÌÖ¸ÄÏ£¨2£©¼òµ¥À©³äTEdit


ÉÏһƪ£¬½éÉÜÁË×é¼þ¿ª·¢µÄÒ»°ã¸ÅÊö£¬ÒÔ¼°×é¼þÀà²ã´Î½á¹¹µÄ¸÷¸öÀàµÄ´óÖÂÐÅÏ¢£¡ÏÖÔھͿªÊ¼Í¨¹ýʵÀý½øÐÐÀ´¼òµ¥µÄ½²ÊöÒ»ÏÂÒ»°ã×é¼þµÄ¿ª·¢¹ý³Ì£¡ÎÒÕâÀïÏȲÉÓÃ×î
»ù±¾µÄ·½Ê½À´´´½¨Ò»¸ö×é¼þ£¡Ò²¾ÍÊÇʹÓÃDelphi×Ô¼ºµÄ×é¼þ¿ª·¢Ïòµ¼À´½¨Á¢Ò»¸öеÄ×é¼þ¡£ÔÚÕâÀÎÒÒÔÀ©³äTEditΪÀý½øÐн²½â¡£
   ÄÇôÊ×ÏÈ£¬Òª½éÉܵľÍÊÇ ......

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

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

C# Delphi´¦Àí·ÖÎöQQЭÒé


C# Delphi´¦Àí·ÖÎöQQЭÒé
 
 
¡¡´ó¼Ò˵µ½QQЭÒé¶¼¾õµÃºÜÉñÃØ£¬ÊÇÒòΪQQ²»ÏñMSN»òÕßICQЭÒé¶¼ÒѾ­¹Ù·½¹«²¼ÁË£¬¶øQQµÄûÓй«²¼¡£Ñо¿ËüµÄÈËÒ²²»ÊÇÌØ±ðµÄ¶à£¬ËäÈ»ÒѾ­ÓÐÁË»ùÓÚ QQЭÒéËùд³ÉµÄµÚÈý·½Èí¼þ foicq, qq plugins for gaim, LumaQQ£¬µ«ÊÇÓÉÓÚËûÃÇÊÇ»ùÓÚ¶þ½øÖÆStreamµÄЭÒé¹ýÓÚ¸´ÔÓ£¬´ó¼ÒÔĶÁ´úÂëÒ²ÓÐÒ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ