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²Ù×÷INIÎļþ²½ÖèÈçÏ£º
-------------------------------------
1£©ÔÚUsesÖÐÌí¼ÓiniFileµ¥Ôª£»
2£©ÉùÃ÷TiniFile¶ÔÏó£»
3£©´´½¨TiniFile¶ÔÏó£»
----------------try------------------
4£©INIÎļþ¶Áд²Ù×÷£»
--------------finally----------------
5£©ÊÍ·ÅTiniFile¶ÔÏó£»
---------------end--------------- ......
¶¯Ì¬Á´½Ó¿âÊÇÒ»¸öÄܹ»±»Ó¦ÓóÌÐòºÍÆäËüµÄDLLµ÷ÓõĹý³ÌºÍº¯ÊýµÄ¼¯ºÏÌå,ËüÀïÃæ°üº¬µÄÊǹ«¹²´úÂë»ò×ÊÔ´¡£ÓÉÓÚDLL´úÂëʹÓÃÁËÄÚ´æ¹²Ïí¼¼Êõ,ÔÚijЩµØ·½windowsÒ²¸øÁËDLLһЩ¸ü¸ßµÄȨÏÞ,Òò¶øDLLÖпÉÒÔʵÏÖһЩһ°ã³ÌÐòËù²»ÄÜʵÏֵŦÄÜ,ÈçʵÏÖwindowsµÄHOOK¡¢ISAPIµÈ¡£Í¬Ê±,DLL»¹Îª²»Í¬ÓïÑÔ¼ä´úÂë¹²ÏíÌṩÁËÒ»Ìõ·½±ãµÄ;¾¶¡£Òò¶øD ......
×¢£º ʹÓôíÎ󣬻òÕßÔڸüӵĵط½Ã»Óмӣ¬¿ÉÄÜ»á³öÏÖ"privileged instruction"´íÎ󣬻òÕßµØÖ··ÃÎÊ´íÎó¡£
³£¼ûµÄµ÷ÓùßÀýÓÐregister, pascal, cdecl, stdcall, safecall¡£º¯ÊýµÄµ÷ÓùÜÀí¾ö¶¨Á˲ÎÊýÈçºÎ´«µÝ¸ø×Ó¹ý³Ì£¬²¢´Ó¶ÑÕ»ÖÐÍ˳ö£¬ÒÔ¼°¼Ä´æÆ÷ÔÚ²ÎÊý´«µÝÖеÄʹÓ㬴íÎóºÍÒì³£µÄ´¦Àí¡£DelphiÖÐĬÈϵĵ ......
Ò»ÌáÆð»ùÓÚWeb Services¼¼ÊõµÄÓ¦ÓóÌÐò¿ª·¢£¬Ò»°ãÈËÊ×ÏÈÏëµ½µÄ¿ª·¢¹¤¾ßÊÇVs.net£¬Æäʵ×÷Ϊ¿ìËÙÓ¦ÓóÌÐò¿ª·¢¹¤¾ß(RAD)µÄÀÏ´ó£¬Delphi´Ó6.0¾Í¿ªÊ¼Ö§³ÖWeb ServicesµÄ¿ª·¢ºÍÓ¦ÓÃÁË£¬±¾ÎÄͨ¹ýʹÓÃDelphi 7.0µ÷ÓÃÐÂÀË·¢ËͶÌÐŵÄWeb Service½øÐжÌÐÅÓ¦ÓóÌÐò¿ª·¢ÕâһʵÀýÏêϸµÄ½éÉÜÔÚDelphiÖÐÈçºÎ¿ª·¢»ùÓÚWeb ServicesµÄÓ¦ÓÃϵͳ¡ ......
ÉèÓÐÒÔÏÂÈý¸ö±äÁ¿£º
var
s:string;
p:pchar;
a:array[1..20] of char;
ÄÇôÈýÕßÖ®¼äµÄת»»ÈçÏ£º
1¡¢×Ö·û´®µ½PChar
p:=PChar(s);
2¡¢PCharµ½×Ö·û´®
s:=p;
3¡¢PCharµ½×Ö·ûÊý×é
StrCopy(@a,p);
4¡¢×Ö·ûÊý×éµ½PChar
......