L
Li zhaoyang
Unregistered / Unconfirmed
GUEST, unregistred user!
我在开发程序时,想使用Jpeg图片代替Bmp图,如何使用,请各位大侠赐教.
C
cytown
Unregistered / Unconfirmed
GUEST, unregistred user!
呵呵, 首先要uses jpeg;
然后要增加变量tjpegimage和tbitmap, 然后用tbitmap.picuture.assign(jpegimage1)
来把jpeg转换成bitmap, 就可以正常显示了.
不过注意, 如果jpeg没有大量应用的话, 还是用bitmap吧, 因为uses jpeg就要增加
程序尺寸2xK呢, 得不偿失
然后要增加变量tjpegimage和tbitmap, 然后用tbitmap.picuture.assign(jpegimage1)
来把jpeg转换成bitmap, 就可以正常显示了.
不过注意, 如果jpeg没有大量应用的话, 还是用bitmap吧, 因为uses jpeg就要增加
程序尺寸2xK呢, 得不偿失
L
Li zhaoyang
Unregistered / Unconfirmed
GUEST, unregistred user!
To:crtown
能不能写得详细些?
能不能写得详细些?
S
Schiesser
Unregistered / Unconfirmed
GUEST, unregistred user!
直接用TImage不行吗？
L
Liu JZX
Unregistered / Unconfirmed
GUEST, unregistred user!
var
Jpeg1: TJpegImage;
Stream: TMemoryStream;
begin
bitmap := Tbitmap.Create (self);
try
bitmap.loadformfile('lll.bmp');
Jpeg1 := TJpegImage.Create;
try
Jpeg1.CompressionQuality := 50;
Jpeg1.Assign(bitmap);
Stream := TMemoryStream.Create;
try
Jpeg1.SaveToStream (Stream);
Stream.Position := 0;
Response.ContentStream := Stream;
Response.ContentType := 'image/jpeg';
Response.SendResponse;
finally
Stream.Free;
end;
finally
Jpeg1.Free;
end;
finally
Image.Free;
end;
end;
Jpeg1: TJpegImage;
Stream: TMemoryStream;
begin
bitmap := Tbitmap.Create (self);
try
bitmap.loadformfile('lll.bmp');
Jpeg1 := TJpegImage.Create;
try
Jpeg1.CompressionQuality := 50;
Jpeg1.Assign(bitmap);
Stream := TMemoryStream.Create;
try
Jpeg1.SaveToStream (Stream);
Stream.Position := 0;
Response.ContentStream := Stream;
Response.ContentType := 'image/jpeg';
Response.SendResponse;
finally
Stream.Free;
end;
finally
Jpeg1.Free;
end;
finally
Image.Free;
end;
end;
C
cAkk
Unregistered / Unconfirmed
GUEST, unregistred user!
Schiesser说的对,你不是要在splash中使用吗? 直接用TImage就可以了.
L
Li zhaoyang
Unregistered / Unconfirmed
GUEST, unregistred user!
我使用Timage不显示,请详细说明.
L
Liu JZX
Unregistered / Unconfirmed
GUEST, unregistred user!
使用下面的方法
var
Jpeg1: TJpegImage;
begin
Jpeg1 := TJpegImage.Create;
Jpeg1.CompressionQuality := 50;
jpeg1.LoadFromFile('d:/graphci/jpg/3v801.jpg');
image1.Picture.Graphic:=jpeg1;
end;
var
Jpeg1: TJpegImage;
begin
Jpeg1 := TJpegImage.Create;
Jpeg1.CompressionQuality := 50;
jpeg1.LoadFromFile('d:/graphci/jpg/3v801.jpg');
image1.Picture.Graphic:=jpeg1;
end;
L
Liu JZX
Unregistered / Unconfirmed
GUEST, unregistred user!
忘了写
uses jpeg
uses jpeg
C
cAkk
Unregistered / Unconfirmed
GUEST, unregistred user!
怎么使用的?
C
cytown
Unregistered / Unconfirmed
GUEST, unregistred user!
呵呵, 如果是background使用的话, 当然不能用timage了. 而且程序更大了:-(
L
Li zhaoyang
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。
