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 Ïêϸ½éÉÜ
Stream¶ÔÏó£¬ÓÖ³ÆÁ÷ʽ¶ÔÏó£¬ÊÇTStream¡¢THandleStream¡¢TFileStream¡¢TMemoryStream¡¢TResourceStreamºÍTBlobStreamµÈµÄͳ³Æ¡£ËüÃÇ·Ö±ð´ú±íÁËÔÚ¸÷ÖÖý½éÉÏ´æ´¢Êý¾ÝµÄÄÜÁ¦£¬ËüÃǽ«¸÷ÖÖÊý¾ÝÀàÐÍ(°üÀ¨¶ÔÏóºÍ²¿¼þ)
ÔÚÄÚ´æ¡¢Íâ´æºÍÊý¾Ý¿â×Ö¶ÎÖеĹÜÀí²Ù×÷³éÏóΪ¶ÔÏó·½·¨£¬²¢ÇÒ³ä·ÖÀûÓÃÁËÃæÏò¶Ô ......
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×Ô¼ºµÄ×é¼þ¿ª·¢Ïòµ¼À´½¨Á¢Ò»¸öеÄ×é¼þ¡£ÔÚÕâÀÎÒÒÔÀ©³äTEditΪÀý½øÐн²½â¡£
ÄÇôÊ×ÏÈ£¬Òª½éÉܵľÍÊÇ ......
Delphi ÖÐ FindWindow ºÍ FindWindowEx µÄÓï·¨ºÍÓ÷¨
FindWindow(
lpClassName, {´°¿ÚµÄÀàÃû}
lpWindowName: PChar {´°¿ÚµÄ±êÌâ}
): HWND; {·µ»Ø´°¿ÚµÄ¾ä±ú; ʧ°Ü·µ»Ø 0}
//FindWin ......
C# Delphi´¦Àí·ÖÎöQQÐÒé
¡¡´ó¼Ò˵µ½QQÐÒé¶¼¾õµÃºÜÉñÃØ£¬ÊÇÒòΪQQ²»ÏñMSN»òÕßICQÐÒé¶¼ÒѾ¹Ù·½¹«²¼ÁË£¬¶øQQµÄûÓй«²¼¡£Ñо¿ËüµÄÈËÒ²²»ÊÇÌØ±ðµÄ¶à£¬ËäÈ»ÒѾÓÐÁË»ùÓÚ QQÐÒéËùд³ÉµÄµÚÈý·½Èí¼þ foicq, qq plugins for gaim, LumaQQ£¬µ«ÊÇÓÉÓÚËûÃÇÊÇ»ùÓÚ¶þ½øÖÆStreamµÄÐÒé¹ýÓÚ¸´ÔÓ£¬´ó¼ÒÔĶÁ´úÂëÒ²ÓÐÒ ......