Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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²Ù×÷×¢²á±íµÄÒ»°ã²½Öè

Delphi²Ù×÷×¢²á±í²½ÖèÈçÏ£º
-------------------------------------
1£©ÔÚUsesÖÐÌí¼ÓRegistryµ¥Ôª£»
2£©ÉùÃ÷TRegistry¶ÔÏó£»
3£©´´½¨TRegistry¶ÔÏó£»
4£©Ö¸¶¨¸ù¼ü£»
----------------try------------------
5£©´ò¿ªÐèÒª²Ù×÷µÄÖ÷¼ü£»
6£©¶Áд²Ù×÷£»
7£©±£´æ²¢¹Ø±ÕÖ÷¼ü£»
--------------finally----------------
......

delphiÖÐmoveº¯ÊýµÄÓ÷¨

ÎÒÃÇÄÜ¿´µ½ÒÔÏ´úÂë
var pSource,pDest:PChar;
     len: integer;
.......................//һЩ´úÂë
Move(pSource,pDest,len); //´íÎó
Move(pSource^,pDest^,len); //ÕýÈ·
¿´ÆðÀ´È·ÊµºÃÏñÊÇ´«Öµ£¬¶ø²»ÊÇ´«µØÖ·£¬µ«ÊǸ÷λ±ðÍüÁË£¬Õâ²»ÊÇC£¬C++£¬¶øÊÇDelphi
Object Pascal,ËùÒÔ£¬¾ø²»ÄÜ´Óº¯Êýµ ......

Delphi¿½±´Ä¿Â¼(º¬×ÓĿ¼)µÄ·½·¨


 
Delphi¿½±´Ä¿Â¼(º¬×ÓĿ¼)µÄ·½·¨
ҪʵÏÖĿ¼¼¶µÄ¿½±´£¬¿ÉÒÔÀûÓÃWindows APIº¯ÊýShFileOperation( )£¬Æäº¯ÊýÉùÃ÷ÈçÏ£º
WINSHELLAPI int WINAPI SHFileOperation(
    LPSHFILEOPSTRUCT lpFileOp
);
ʵÀý£º
н¨Ò»¸ö¹¤³Ì£¬Æä³ÌÐòʾÀýÈçÏ£º
unit Unit1;
interface
uses
Windows, Messag ......

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

¿ª·¢²½Ö裺
1¡¢´´½¨ActiveX Library¹¤³Ì¡£
2¡¢´´½¨COM Object¡£
3¡¢´´½¨Type Library£¬²¢´´½¨ÏàÓ¦½Ó¿Ú¡£
4¡¢´´½¨½Ó¿Ú¶ÔÓ¦µÄº¯ÊýºÍʵÏÖ¡£
¾ßÌåÈçÏ£º
3¡¢´´½¨Type Library£¬²¢´´½¨ÏàÓ¦½Ó¿Ú¡£
view|type library
ÕÒµ½ÒѾ­Éú³ÉµÄtype library,ÆäʵºÍTLBÎļþÊǶÔÓ¦µÄ¡£
ÎÒÃÇ¿ÉÒÔ¿´µ½ÉÏÒ»²½Éú³ÉµÄ¶ÔÏóÒ²º¬ÔÚÀïÃæ¡£
ÎÒ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ