Jpg2Bmp函数

原创 2004年07月14日 11:40:00

procedure Jpg2Bmp(const source,dest:string);
var
  MyJpeg: TJpegImage;
  bmp: Tbitmap;
begin
bmp:=tbitmap.Create;
MyJpeg:= TJpegImage.Create;
try
  myjpeg.LoadFromFile(source);
  bmp.Assign(myjpeg);
  bmp.SaveToFile(dest);
finally
  bmp.free;
  myjpeg.Free;
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  BitMap:TBitmap;
  MyJpeg: TJpegImage;
  TempStream : TMemoryStream;
begin
  TempStream :=TMemoryStream.Create;
  TempStream.LoadFromFile('f:/eiffel.jpg');
  MyJpeg :=TJpegImage.Create;
  BitMap :=TBitmap.Create;
  MyJpeg.LoadFromStream(TempStream);
  Bitmap.Assign(MyJpeg);
  Image1.Picture.Bitmap.Assign(Bitmap);
  TempStream.Destroy;
  MyJpeg.Free;
  Bitmap.Free;
end;
 

bmp图片和jpg图片之间的相互转换(OpenCV)

无所事事,就写了很简单且无聊的程序,就是bmp图片和jpg图片的相互转换,下面是程序: jpg图片转换为bmp图片: 下载地址:http://sites.google.com/site/pengs...
  • a771948524
  • a771948524
  • 2013年08月19日 14:35
  • 2407

做项目可能用到的函数函数函数函数函数函数函数函数函数函数函数函数函数

函数  preg_match,number_format,function_exists,str_repeat,array_pop,array_unique,array_merge,preg_repl...
  • shawn_jc
  • shawn_jc
  • 2011年09月02日 10:43
  • 353

strlen函数,strcat函数,strcpy函数,strncpy函数,strcmp函数

strlen函数,strcat函数,strcpy函数,strncpy函数,strcmp函数 strcpy函数: char *strcpy(char *Dest , const ch...
  • liushuiwen101423
  • liushuiwen101423
  • 2014年09月25日 11:12
  • 327

setuid()函数,setgid()函数,getpriority()函数,setpriority()函数,nice()函数

1.setuid()函数,setgid() 函数, 头文件:#include   #include 函数原型:int setuid(uid_t uid); int setgid(gid_t  ...
  • whoamiyang
  • whoamiyang
  • 2016年03月14日 10:01
  • 470

python的一些函数

numpy函数 1)linspace创建等差数组 它最常用的有三个参数,第一个参数表示起始点,第二个参数表示终止点,第三个参数表示数列的个数,如 a=linspace(1,10,10) print a...
  • zhuhengv
  • zhuhengv
  • 2016年05月07日 19:54
  • 1118

R函数全纪录

函数全纪录 base包: names(): 这个函数可以返回一个向量,显示的是用做参数的类型里所有可以用"$"访问的变量名。 length(x): 返回x的长...
  • yhb315279058
  • yhb315279058
  • 2015年10月26日 21:46
  • 2225

Windows的GDI相关函数的说明

字体相关的函数 AddFontResource 在Windows系统中添加一种字体资源   CreateFont 用指定的属性创建一种逻辑字体   CreateFontIndirect 用指...
  • gaojinshan
  • gaojinshan
  • 2012年12月10日 10:55
  • 4035

在函数内定义“局部函数”

在函数里也能定义函数?呵呵,这当然是不能的,但函数对象却是可以的。如果用旧的方法去定义一个函数对象,那就还要自己先编写一个函数类,这样还不够方便。        但C++11发布后,在函数内简便地定...
  • kof2001kop
  • kof2001kop
  • 2012年04月04日 11:43
  • 5045

matlab 中一些常见的函数1

Matlab标准内置数组 Zeros(m,n) 生成一个m * n的0数组 Ones(m,n)生成一个m * n的1数组 True (m,n)生成一个m * n的逻辑1数组 False (m*n) 生...
  • u013146742
  • u013146742
  • 2016年10月21日 22:52
  • 2066

VBA第4课 IF条件函数的使用

Sub IF条件判断() If Sheet1.Range("a1") >= 90 Then Sheet1.Range("b1") = "优秀" ElseIf Sheet...
  • u013511642
  • u013511642
  • 2015年04月29日 23:31
  • 1039
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Jpg2Bmp函数
举报原因:
原因补充:

(最多只允许输入30个字)