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

DelphiͼÏñ´¦ÀíÖÐScanLineµÄʹÓÃ

Ò»°ãÎÒÃÇÔÚDelphiÖнøÐÐͼÏñ´¦Àíʱ²ÉÓÃPixelsÏñËØµã¸³ÖµµÄ·½·¨£¬Delphi´úÂëÈçÏ£º
var
x,y:Integer;
cColor:TColor;
begin
  for y:=0 to Image1.Height-1 do
    for x:=0 to Image1.Width-1 do
      cColor:=Image1.Canvas.Pixels[i,j];
end;
µ«ÊÇÕâÖÖ·½·¨Óиöȱµã£¬´¦ÀíËٶȺÜÂý£¬Ð¡Í¼Ïñ»¹¿ÉÒÔ£¬¶ÔÓÚ´óµãµÄͼÏñÀ´Ëµ¾ÍÌ«ÂýÁË¡£
DelphiÌṩÁËÒ»ÖÖɨÃèÏßScanLine·½·¨ÊǶÔͼÏñµÄÒ»ÐнøÐÐɨÃ裬»ñÈ¡±¾ÐÐÖи÷ÏñËØµÄÄÚ´æµØÖ·¡£ÖÚËùÖÜÖª£¬ÄÚ´æ²Ù×÷¿Ï¶¨»á±È³£¹æµÄÏñËØµã¸³ÖµËÙ¶È¿ìºÜ¶à£¬ËùÒÔ½«´ó´óÌá¸ßͼÏñµÄ´¦ÀíËÙ¶È¡£
Delphi´úÂëÈçÏ£º
var
P:array[0..100] of PByteArray;//ÏñËØÊý×é       
y:Integer;
begin
  for y:=0 to Bmp.Height-1 do
  begin
    P[y]:=Bmp.ScanLine[y];//½«Í¼Æ¬ËùÓÐÏñËØÖµ´æÈëP
  end;
end;
ÕâÑù¾Í½«Ò»¸öͼÏñµÄËùÓÐÏñËØ¶¼´æÈëÁËPÕâ¸öÊý×é
ÔÚSysUtilsµ¥ÔªÖпÉÒÔ¿´³öPByteArrayʵ¼ÊÉÏÊÇÒ»¸öByteÀàÐ͵ÄÊý×é
ËùÒÔÎÒÃÇÉùÃ÷µÄP:array[0..100] of PByteArray;ʵ¼ÊÉÏ¿ÉÒÔ¿´³ÉÊÇÒ»¸ö¶þάÊý×é
PÊý×é¾ÍÊÇÒ»¸öͼÏñÏñËØµÄ»º³åÇø£¬ËüµÄһάÊÇͼÏñY×ø±ê£¬¶þάÊÇͼÏñµÄX×ø±ê¡£
ÕâÑù£¬Èç¹ûÎÒÃÇÒª¶ÔͼÏñµÄij¸öÏñËØ¸³Öµ£¬ÀýÈ罫µÚÒ»ÐС¢µÚ¶þÁеÄÏñËØ¸³ÖµÎª°×É«£¬¿ÉÓÃÏÂÃæµÄDelphi´úÂë
var
P:array[0..100] of PByteArray;//ÏñËØÊý×é
x,y:Integer;
begin
  for y:=0 to Bmp.Height-1 do
  begin
    P[y]:=Bmp.ScanLine[y];//½«Í¼Æ¬ËùÓÐÏñËØÖµ´æÈëP
  end;
  y:=0;//µÚÒ»ÐÐ
  x:=1;//µÚ¶þÁÐ
  P[y][x*3]:=255;//ÏñËØµÄµÚÒ»×Ö½Ú
  P[y][x*3+1]:=255;//ÏñËØµÄµÚ¶þ×Ö½Ú
  P[y][x*3+2]:=255;//ÏñËØµÄµÚÈý×Ö½Ú
end;
ÉÏÃæµÄ´úÂëÖУ¬ÎÒÃÇʹÓõÄͼÏñÊÇ24λɫµÄ(TPixelFormat:=pf24bit)£¬Ò²¾ÍÊÇÒ»ÕÅÕæ²ÊÉ«µÄͼƬ£¬pf24bitµÄͼÏñÖУ¬Ã¿¸öÏñËØÔÚÄÚ´æÖÐÕ¼ÓÃÈý¸ö×Ö½Ú£¬·Ö±ð±íʾRGBÖµµÄ·ÖÁ¿£¬ËùÒÔÎÒÃÇ¿ÉÒÔ¶ÔÈý¸ö×Ö½ÚÖ±½Ó¸³Öµ
ÔÚÆäËüÀàÐ͵ÄͼÏñÖоͲ»Ò»¶¨ÄÜÕâÑù¸³ÖµÁË
TPixelFormat:=pf1bitµÄͼÏñ(µ¥É«Í¼)ÖÐÿÏñËØÓÃ1λÀ´±íʾ£¬ËùÒÔҪʹÓÃλ²Ù×÷À´¸øÏñËØ¸³Öµ
TPixelFormat:=pf4bitµÄͼÏñÖÐÿÏñËØÓÃ4λÀ´±íʾ£¬Ò²ÒªÊ¹ÓÃλ²Ù×÷À´¸øÏñËØ¸³Öµ
TPixelFormat:=pf8bitµÄͼÏñÖÐÿÏñËØÓÃ8λÀ´±íʾ£¬¿ÉÒÔʹÓÃByteÀàÐ͵ÄÖµ¸øÏñËØ¸³Öµ£¬²»¹ýÕâÀàͼÏñ±È½


Ïà¹ØÎĵµ£º

Delphi IDhttp »ñÈ¡Cookie

»ñÈ¡post£¬»òÕßget·µ»ØµÄcookie£¬³ýÁ˹ýÂË·µ»ØµÄ×Ö·û´®Ö®Í⣬×î¼òµ¥µÄ·½·¨ÊÇʹÓÃidhttpµÄCookieManagerÊôÐÔ
±ÈÈç»ñµÃIDhttp·µ»ØµÄÈ«²¿Cookie
if idhttp1.CookieManager.CookieCollection.Count > 0 then
for i := 0 to idhttp1.CookieManager.CookieCollection.Count - 1 do
temp := temp + idhttp1.Cooki ......

DelphiÖж¯Ì¬Á´½Ó¿â(DLL)µÄ½¨Á¢ºÍʹÓÃ

¶¯Ì¬Á´½Ó¿âÊÇÒ»¸öÄܹ»±»Ó¦ÓóÌÐòºÍÆäËüµÄDLLµ÷ÓõĹý³ÌºÍº¯ÊýµÄ¼¯ºÏÌå,ËüÀïÃæ°üº¬µÄÊǹ«¹²´úÂë»ò×ÊÔ´¡£ÓÉÓÚDLL´úÂëʹÓÃÁËÄÚ´æ¹²Ïí¼¼Êõ,ÔÚijЩµØ·½windowsÒ²¸øÁËDLLһЩ¸ü¸ßµÄȨÏÞ,Òò¶øDLLÖпÉÒÔʵÏÖһЩһ°ã³ÌÐòËù²»ÄÜʵÏֵŦÄÜ,ÈçʵÏÖwindowsµÄHOOK¡¢ISAPIµÈ¡£Í¬Ê±,DLL»¹Îª²»Í¬ÓïÑÔ¼ä´úÂë¹²ÏíÌṩÁËÒ»Ìõ·½±ãµÄ;¾¶¡£Òò¶øD ......

ÓÃdelphiÖÆ×÷OCX¿âÎļþ£¨Ò»£©

¿ª·¢²½Ö裺
1¡¢´´½¨ActiveX Library¹¤³Ì¡£
2¡¢´´½¨COM Object¡£
3¡¢´´½¨Type Library£¬²¢´´½¨ÏàÓ¦½Ó¿Ú¡£
4¡¢´´½¨½Ó¿Ú¶ÔÓ¦µÄº¯ÊýºÍʵÏÖ¡£
¾ßÌåÈçÏ£º
1¡¢´´½¨ActiveX Library¹¤³Ì¡£
new|other|activeX|activeX library
Delphi»á×Ô¶¯Éú³É¿ò¼Ü´úÂ룬ֱ½Ó±àÒëµÄ»°¾Í¿ÉÒԵõ½Ò»¸ödllÎļþÁË£»
Èç¹ûÏë±àÒë³öÀ´µÄÊÇocxÎÄ ......

Delphi µÄÔËËã·ûÁбí


·ÖÀà
ÔËËã·û
²Ù×÷
²Ù×÷Êý
½á¹ûÀàÐÍ
·¶Àý
ËãÊõÔËËã·û
+
¼Ó
ÕûÊý£¬ÊµÊý
ÕûÊý£¬ÊµÊý
X + Y
-
¼õ
ÕûÊý£¬ÊµÊý
ÕûÊý£¬ÊµÊý
Result - 1
*
³Ë
ÕûÊý£¬ÊµÊý
ÕûÊý£¬ÊµÊý
P * InterestRate
/
ʵÊý³ý
ÕûÊý£¬ÊµÊý
ʵÊý
X / 2
div
ÕûÊý³ý
ÕûÊý
ÕûÊý
Total div UnitSize
mod
ȡģ
ÕûÊý
ÕûÊý
Y mod 6 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ