怎样在timage中显示资源中的jpg图片呢??

Question

function JPGToBMP(FName: String): TBitmap;
var JPGDec: TJPEGImage;
begin
  Result := TBitmap.Create; JPGDec := TJPEGImage.Create;
  JPGDec.LoadFromFile(FName); Result.Assign(JPGDec);
{$IFDEF FASTER} // wenn's schneller gehen soll... (Hack)
  Result.Canvas.Draw(0,-50,Result);
  Result.Height := Result.Height - 200;
  Form1.PositionStep := 2;
{$ENDIF}
  JPGDec.Free;
end;

Answer 1

use jpeg;
function   button1.onclike(sender:tobject);
var aj:TJpegimage;
begin 
  aj:=TJpegimage.create ;
  aj.loadfromfile('jpegfilename');
  Image1.canvas .draw(0,0,aj);
end;
别忘了"aj.free".

Answer 2

从资源中？LoadFromResource？在程序员大本营2000配套光盘＃1上有例程，不过好像有一个小问题，需要的话我可以给你正确代码......

Answer 3

也给我来一个怎么样[email protected]

Answer 4

直接Load我总是不能通过，为什么？：
var
  res:tresourcestream;
begin
  res:=TResourceStream.Create(hinstance,'jpg','RC_DATA');
  image1.Picture.Graphic.LoadFromStream(res);
  res.Free;
end;
不过有一个变通的方法：就是把他保存为一个文件，然后Image Load这个文件即可。

Answer 5

是的,luckychange,我需要那分代码,如果不大的话,把它贴出来吧,好让大家都知道,
我的邮箱:[email protected]