如何使DBIMAGE接受JPG的格式？(100分)

Z

Zhan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-15

• #1

当把JPG格式的图形存到数据库后，用DBImage的构件显示时，
JPG格式的图形不会显示出来，且会报错误信息：
Bitmap is not Valid.
请指教。

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-15

• #2

不懂数据库 uses JEPG; 可以么？

 

V

Victortim

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-15

• #3

参考一下这个控件 http://vcl.vclxx.com/DELPHI/D32FREE/XZIPFLD.ZIP
改一下就可以用于JPEG文档，这方法只能改了后就只能支持JPEG，但如果作一些大修改
也能支持多种图象格式。

 

C

Crab

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-15

• #4

dbimage 不支持 Jpeg格式，可以在 TDataSet 中的几个事件中写代码，把 jpg 字段的内容
读出来，再转成 bmp 格式，然后放进一个 TImage 对象里就行了。
编一个JPG的控件不难，你愿意，可以自己做一个。

 

B

birdlay

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-15

• #5

我提了个一样的问题。不过想听听两边的答案。

 

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-15

• #6

>>

 

A

Another_eYes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-24

• #7

继续.

 

G

gerry yang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-24

• #8

image可以支持jpg
dbimage没试过!

 

J

Jedei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-24

• #9

可以用Timage来实现
use JPEG;
..
..
procedure TForm1.Query1AfterScroll(Sender : TDataSet);
var
Jpeg1:TJPEGIMAGE;
ImgStream:TStringStream;
begin
ImgStream:=TStringStream.Create(Query1.FieldByName('YourImage').Value);
Jpeg1:=TJpegImage.Create;
Jpeg1.LoadFromStream(ImgStream);
Image1.Picture.Graphic.Assign(Jpeg1);
Jpeg1.Free;
ImgStream.Free;
end;

 

侠

侠客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-27

• #10

dbimage确实不支持jpeg;
可以uses JPEG;
var jp:Tjpegimage;
然后就跟用tbitmap一样了。

 

三

三代坦克

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-01

• #11

>>

 

S

softprince

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-01

• #12

以下可以假设数据库表DB_Pic中有一字段为图形)
uses Jpeg;
procedure Tform1.Db_Addpic(sender:Tobject);
var
PicName,Ext:string;
JpegImage:TJpegImage;
begin
if openpicturedialog1.execute then
begin
DB_PIC.append;
PicName:=openpictureDialog1.Filename;
Ext:=ExtractFileExt(PicName);
if UpperCase(ExtName)='.BMP' then
begin
//直接存入数据库
end
else if (UpperCase(ExtName)='.JPG') or (UpperCase(ExtName)='.JPEG') then
begin
JPEgImage:=TJpegImage.create;
try
JpegImage.LoadfromFile(PicName);
DB_PIC.Picture.Graphic.Assign(JpegImage);
DB_Pic.Post;
Finally
JpegImage.free;
end;
end;
end;
end;

 

张

张剑波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-01

• #13

同意softprince

 

O

orangest

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-01

• #14

1、在uses 中添加jpeg

2、用query定位到需要显示的记录，

3、然后
var tempsream:tstringstream;
tempjpeg:tjpegimage;
try
tempstream:=tstringstream.create('');
tblobfield(query1.fieldbyname('image')).savetostream(tempstream);
tempstream.position:=0;
tempjpeg:=tjpegimage.create;
tempjpeg.loadfromstream(tempstream);
dbimage1.picture.bitmap.assign(tempjpeg);
finally
tempstream.free;
tempjpeg.free;
end;

 

B

bob_cq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-01

• #15

看来除了变成位图,没其他办法了.QUICKREORT也不思进取.只有自己动手!

 

J

JohnsonGuo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-02

• #16

>>

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-16

• #17

多人接受答案了。