1如何将image图像写入数据库的img字段中?2.如何使用gif图,用什么控件,如何用?(100分)

A

apache2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-20

• #1

1如何将image图像写入数据库的img字段中?
2.如何使用gif图,用什么控件,如何用?

 

W

wrench

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-20

• #2

1

写入
picturestream:=Tblobstream.create(table1.fieldbyname('photo') as Tblobfield,bmwrite);
jpegimage1.Picture.graphic.SaveToStream(picturestream);

读出
picturestream:=Tblobstream.create(query1.fieldbyname('photo') as Tblobfield,bmread);
jpegimage1.Picture.Graphic.LoadFromStream(picturestream);
picturestream.free;


2 http://cakk.126.net/
TGifImage

 

V

Victortim

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-20

• #3

1. DBImage.picture.loadfromfile(filename);
DBImage.picture.assign(image.picture);

2.http://202.96.70.228/cakk/delphi/gifimage.exe

 

M

MIB

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-20

• #4

构造好数据库后，自己直接将图放到数据库中，就ok了.
也就是直接添加纪录：）

 

崔

崔占东

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-21

• #5

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Table1.Edit;
DBImage1.Picture.LoadFromFile(OpenDialog1.FileName);
Table1.Post;
end;
end;

 

W

wumeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-22

• #6

1. g: Victortim or wrench
2. ?

 

轩

轩辕散光

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-22

• #7

不知道怎么把非bmp类型图片存进去阿？？

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-22

• #8

cakk.126.com, not cakk.126.net

 

崔

崔占东

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-22

• #9

procedure TForm1.OnClick(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Table1.Edit;
DBImage1.Picture.LoadFromFile(OpenDialog1.FileName);
Table1.Post;
end;
end;

 

阿

阿器

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-22

• #10

图形写入库中
tblobfield(table1.fieldbyname('image')).loadfromfile('your image');
库中图形存入文件
tblobfiled(table1.fieldbyname('image')).savetofile('your file');

注意：缺省情况下，不能超过32k
若有疑问，不妨探讨，小弟也正在研究之。

 

C

cch_b

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-22

• #11

首先要为表建立永久字段对象， 右击TABLE控件，选择
Fields Editor,就会出现一个列表框， 再对列表框点右键,选择
Add All Fields.

保存图像的字段类型要为Memo或Ole类型(对Foxpro库而言)或BLOB（对PANDOX）
,使用该字段的LoadFromFile方法就可以把文件保存进库中了,保存完成后,用DbImage控件就可以把它显示出来.

比如表名为Table1,该字段命名为BMP,在建立永久字段对象后就出现了Table1BMP
这个永久字段对像,使用Table1bmp.Loadformfile('文件名')就行了.

 

千

千中元

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-22

• #12

崔占东兄，
TForm1.OnClick(Sender: TObject）－－－－onclick?笔误还是。。？

 

O

OopsWare

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-22

• #13

to：阿器
32Kb 受 BDE的BLOB SIZE限制，可自己调整的！以前讨论过此问题。

我自制了一将图象以JPEG格式存入数据库的控件。想要发到《大富翁练功场》
不知有和要求！
如有人需要此控件(含源码)请<A STYLE="color:#FF0000;text-decoration:none;" HREF="mailtoops@jn-public.sd.cninfo.net"><font size="3" face="Wingdings">*</font></A>

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-03

• #14

接受答案了.