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
相关文档：
在主界面的implementation {$R *.dfm} 下放入以下代码：
procedure PatchInt3;
var
NOP: Byte;
NTDLL: THandle;
BytesWritten: DWORD;
Address: Pointer;
begin
if Win32Platform <> VER_PLATFORM_WIN32_NT then
Exit;
NTDLL := GetModuleHandle('NTDLL.DLL');
if NT ......
一、引子：
现在的Windows应用程序几乎都使用图标、图片、光标、声音等，我们称它们为资源（Resource）。最简单的使用资源的办法是把这些资源的源文件打入软件包，以方便程序需要的时候调用。资源是程序的一部分，程序要正常运行就离不了资源文件。但是它是不可执行代码。
为了更好地管理资源，Delphi中提供了一种.RES类� ......
在DELPHI为编程者提供了一个灵活的绘图场所,即本文所述的
CANVAS类,在DELPHI中的很多控件都具有此属性,使编程者可以
在这些的控件的表面随心所欲的绘图,这对完善用户界面或者制
作一些屏幕特技都有着非凡的作用,下面举例说明几种特殊屏幕 &n ......
获得网卡的MAC地址在很多地方都有很大的用处,下面的函数以XX-XX-XX-XX-XX-XX 的格式返回远程或本地机器的MAC地址。
Function to return the MAC address of a remote or local machine in the format XX-XX-XX-XX-XX-XX
返回的MAC地址是一个能用在多个方面的唯一标识。使用方法：
ShowMessage(GetMacAddress( ......
@符号返回一个变量的地址
例：
var
f:string;
p:^string; //声明一个字符串类型的指针
begin
f ='demo'; ......
