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
Ïà¹ØÎĵµ£º
MSHTMLÊÇ΢Èí¹«Ë¾µÄÒ»¸öCOM×é¼þ£¬¸Ã×é¼þ·â×°ÁËHTMLÓïÑÔÖеÄËùÓÐÔªËØ¼°ÆäÊôÐÔ£¬Í¨¹ýÆäÌṩµÄ±ê×¼½Ó¿Ú£¬¿ÉÒÔ·ÃÎÊÖ¸¶¨ÍøÒ³µÄËùÓÐÔªËØ£®
¡¡¡¡MSHTML¶ÔÏóÄ£ÐÍÊÇÓÉһЩ¶ÔÏóºÍ¼¯ºÏ×é³ÉµÄ£®´¦ÓÚ¸ù²¿µÄÊÇHTML£¬ÃèÊöÁË´ò¿ªÒ³ÃæµÄ1¸ö´°¿Ú£¬°üÀ¨Ò»ÏµÁм¯ºÏºÍ¶ÔÏó¡£ÈçFrames¼¯ºÏ£¬History£¬Location£¬Navigator£¬Document£¬Vi—sum ......
Îҵİ취£¬Ôö¼ÓÒ»¸ötimer ÉèÖüä¸ô100ms£¬Í¨¹ýtimerµÄʹÄÜ·ñ£¬¿ØÖƱ¨¾¯ÉùÒô¿ª¹Ø
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Windows.Beep(1200+i_f,10+i_f);
if i_f<2000 then
begin
inc(i_f);
end
end;
== ......
µÚÒ»ÖÖ£ºÐèÒªÒýÓÃWindowsµ¥Ôª
ShowMessage(IntToStr(GetSystemMetrics(SM_CYSCREEN)-GetSystemMetrics(SM_CYFULLSCREEN)-GetSystemMetrics(SM_CYCAPTION)));
µÚ¶þÖÖ£ºÐèÒªÒýÓÃWindowsµ¥Ôª
function GetSystemTaskBarHeight:Integer;
var
R:TRect;
begin
SystemParametersInfo(SPI_GETWORKAREA,0,@R,0);
Resul ......
C# Delphi´¦Àí·ÖÎöQQÐÒé
¡¡´ó¼Ò˵µ½QQÐÒé¶¼¾õµÃºÜÉñÃØ£¬ÊÇÒòΪQQ²»ÏñMSN»òÕßICQÐÒé¶¼ÒѾ¹Ù·½¹«²¼ÁË£¬¶øQQµÄûÓй«²¼¡£Ñо¿ËüµÄÈËÒ²²»ÊÇÌØ±ðµÄ¶à£¬ËäÈ»ÒѾÓÐÁË»ùÓÚ QQÐÒéËùд³ÉµÄµÚÈý·½Èí¼þ foicq, qq plugins for gaim, LumaQQ£¬µ«ÊÇÓÉÓÚËûÃÇÊÇ»ùÓÚ¶þ½øÖÆStreamµÄÐÒé¹ýÓÚ¸´ÔÓ£¬´ó¼ÒÔĶÁ´úÂëÒ²ÓÐÒ ......