如何在DELPHI的数据库中加入图片？(100分)

P

phil911

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-30

• #1

如何在DELPHI的数据库中加入图片？请指点！

 

T

terry_lzs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-31

• #2

var myfilestream:tfilestream;
myblob:tblobfield;
begin
adoquery1.edit;
myfilestream:=tfilestream.Create('c:/aa.bmp',fmopenread);
myblob:=tblobfield(adoquery1.FieldByName('Photo'));
myblob.LoadFromStream(myfilestream);
myfilestream.Free;
adoquery1.Post;
end;

 

C

cnaoszh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-31

• #3

上面他是对的。
不过以前好象讨论过，查查以前的帖子
有详细的说明。

 

Z

zhao0707

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-31

• #4

我知道有两种，一种是上面说的，还有是存路径，到时候读出路径，然后到指定位置读图片

 

溜

溜溜球

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-31

• #5

补充一下
加一个OpenPictureDialog

 

D

djdsz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-31

• #6

>>我知道有两种，一种是上面说的，还有是存路径，到时候读出路径，然后到指定位置读图片
在网络服务器上，可能不太好办了。特别是没有共享的时候

我认为存JPEG应该更好一些

 

L

lili365

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-31

• #7

别人都说了，照着做吧

 

P

phil911

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-03

• #8

我说的是在Paradox table 中有Graphic类型，不知道如何加入图片？还有，Memo类型
如何加入？

 

I

i2346

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-03

• #9

请看DELPHI自带的例程DEMOS目录下DB目录下的FISHFACE。有详细的做法！

 

K

kals

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-04

• #10

用SQL
图片的：
parambyname('pic').assign(image1.Picture.Graphic);
MEMO的：
parambyname('bak').asmemo:=memo1.Text;

 

苦

苦虫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-04

• #11

with table1 do
begin
append;
findfield('picture').assign(image1.picture.graphic);
findfield('memo').assign(memo1.lines);
post;
end;

 

T

txfzr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-08

• #12

下面是对DELPHI中Paradox数据库中存入BMP图像的例子，其中dbimage1是放在Ｆorm上的一
个数据感知控件，memo字段的存入也可以在form 上放一个dbmemo控件，输入内容后Post就
进去了。

procedure TForm6.OfficeButton1Click(Sender: TObject);
var
B: TBitmap;
begin
B := TBitmap.Create;
try
if opendialog1.Execute then
begin
B.LoadFromFile(opendialog1.FileName);
DBImage1.Picture.Assign(B);
end
finally
B.Free;
end;
end;

 

P

phil911

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-17

• #13

多人接受答案了。