delphi ʵÏÖ Í¼Æ¬ÀàÐÍת»» jpg
ÏÂÃæÈý¸ödelphiº¯ÊýʵÏÖÁËbmpÀàÐÍͼƬºÍjpg(jpeg)ÀàÐÍͼƬµÄת»»ºÍ¸Ä±äλͼͼƬµÄ´óС¡£
jpgת»»Îªbmp:
{********************************************
×÷Õß/ÈÕÆÚ
ÃèÊö£º ʵÏÖjpg(jpeg)ͼƬÏòbmpͼƬµÄת»»
²ÎÊý½éÉÜ
FileName:Ҫת»»µÄjpg(jpeg)ͼƬµÄÃû³Æ£¨°üÀ¨Â·¾¶£©
SaveFileName:ת»»ºóµÄbmpͼƬµÄ´æ´¢Î»Öá£
ĬÈÏΪ¿Õ£¬Ï൱ÓÚÐÞ¸ÄÔ´ÎļþÀàÐÍ
********************************************}
Procedure pic_jpgtobmp(Const FileName: String;SaveFileName:String='');
Var
Bitmap: TBitmap;
JPeg: TJPegImage;
Begin
Bitmap := Nil;
JPeg := Nil;
Try
JPeg := TJPegImage.Create;
JPeg.LoadfromFile(FileName);
Bitmap := TBitmap.Create;
Bitmap.Assign(JPeg);
IF Trim(SaveFileName)='' Then
Bitmap.SaveToFile(ChangeFileExt(FileName, '.bmp'))
Else
Bitmap.SaveToFile(SaveFileName);
Finally
FreeAndNil(Bitmap);
FreeAndNil(JPeg);
End;
End;
{********************************************
×÷Õß/ÈÕÆÚ dqc 2007.12.30
ÃèÊö£º ʵÏÖbmpͼƬÏòjpg(jpeg)ͼƬµÄת»»
²ÎÊý½éÉÜ
FileName:Ҫת»»µÄbmpͼƬµÄÃû³Æ£¨°üÀ¨Â·¾¶£©
SaveFileName:ת»»ºóµÄjpg(jpeg)ͼƬµÄ´æ´¢Î»Öá£
ĬÈÏΪ¿Õ£¬Ï൱ÓÚÐÞ¸ÄÔ´ÎļþÀàÐÍ
********************************************}
Procedure pic_bmptojpg(Const FileName: String;SaveFileName:String='');
Var
Bitmap: TBitmap;
JPeg: TJPegImage;
Begin
Bitmap := Nil;
JPeg := Nil;
Try
Bitmap := TBitmap.Create;
Bitmap.LoadfromFile(FileName);
JPeg := TJPegImage.Create;
JPeg.Assign(Bitmap);
IF Trim(SaveFileName)='' Then
JPeg.SaveToFile(ChangeFileExt(FileName, '.jpg'))
Else
JPeg.SaveToFil
Ïà¹ØÎĵµ£º
Ò»¡¢ÔÚDelphi7ÖÐÁ¬½ÓMS SQL Server 2000µÄ·½·¨¡£
¸Õ¿ªÊ¼Ê±½çÃæÈçÏ£ºÌí¼Ó4¸ö¿Ø¼þ¡£
ÉèÖÿؼþÊôÐÔ¹ý³Ì£º
1¡¢ADOConnection1ÉèÖÃ
1£©Ë«»÷ADOConnection1£¬½øÐÐÉèÖÃÁ¬½Ó×Ö·û´®£¨×÷ÓÃÊÇ£ºÑ¡È¡Á¬½ÓÇý¶¯·½Ê½ºÍÁ¬½ÓµÄÊý¾Ý¿âÉèÖã©¡£¹ý³ÌÈçÏÂͼËùʾ£º
2¡¢ADOQuery1ÉèÖãº
1£©ADOQuery1.connectionÊôÐÔΪADOConnection1; ......
Ò»¡¢Òý×Ó£º
ÏÖÔÚµÄWindowsÓ¦ÓóÌÐò¼¸ºõ¶¼Ê¹ÓÃͼ±ê¡¢Í¼Æ¬¡¢¹â±ê¡¢ÉùÒôµÈ£¬ÎÒÃdzÆËüÃÇΪ×ÊÔ´£¨Resource£©¡£×î¼òµ¥µÄʹÓÃ×ÊÔ´µÄ°ì·¨ÊÇ°ÑÕâЩ×ÊÔ´µÄÔ´Îļþ´òÈëÈí¼þ°ü£¬ÒÔ·½±ã³ÌÐòÐèÒªµÄʱºòµ÷Óá£×ÊÔ´ÊdzÌÐòµÄÒ»²¿·Ö£¬³ÌÐòÒªÕý³£ÔËÐоÍÀë²»ÁË×ÊÔ´Îļþ¡£µ«ÊÇËüÊDz»¿ÉÖ´ÐдúÂë¡£
ΪÁ˸üºÃµØ¹ÜÀí×ÊÔ´£¬DelphiÖÐÌṩÁËÒ»ÖÖ.RESÀàÐ ......
@·ûºÅ·µ»ØÒ»¸ö±äÁ¿µÄµØÖ·
Àý£º
var
f:string;
p:^string; //ÉùÃ÷Ò»¸ö×Ö·û´®ÀàÐ͵ÄÖ¸Õë
begin
f ='demo'; ......
¸ñʽ£º²Ù×÷Êý Shl/Shr Òƶ¯Î»Êý
˵Ã÷£º²Ù×÷ÊýÓë·µ»ØÖµ¶¼ÊÇÕûÊý
Àý×Ó£º16(10) = 10000(2)
16(10) Shr 1 = 10000(2) Shr 1 = 1000(2) = 8(10)
16(10) Shr 2 = 10000(2) Shr 2 = 100(2) = 4(10)
˵Ã÷£ºÒ»¸öÕûÊý(I)°´Î»×óÒÆһ룬Ï൱ÓÚ°ÑËü³ËÒÔ2£¬¼´ I * 2
&n ......
ÔÀ´ÊÇÒªÔÚFormCreateÖмÓÈëÒÔÏ´úÂë:
procedure TTntForm1.TntFormCreate(Sender: TObject);
begin
//Õâ¾äºÜ¹Ø¼ü.¶ÔÓÚƽ̨µÄÖ§³Ö.
if Win32Platform = VER_PLATFORM_WIN32_NT then
Font.Name := 'MS Shell Dlg 2'
else
Font.Name := 'MS Shell Dlg';
......