有没有人知道怎么把图片存进数据库中？？急(100分)

F

felong11

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-21

• #1

rt 有没有人知道怎么把图片存进数据库中？？急

在db 的数据库中。

 

S

snowtree

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-21

• #2

数据库里有binary字段，你可以讲你的数据
存放在里面，当然得是某种一定格式的数据，
当然你极有可能要自己处理图片文件（解码等），
在一种变通方法是，你在数据库你存放图片路径，
在由路经获取文件！

 

F

felong11

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-21

• #3

但是在paradox中有graphic一项请问怎么放进去？？

谢谢！！

form felong..

 

P

protagonist

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-21

• #4

BMP 很容易，但 JPG 要写代码麻烦一些。

 

W

windpray

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-21

• #5

我有个组别人写的例子要吗？
windspray@263.net

 

M

Midas Yang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-21

• #6

設TABLE連結PICTURE.DBF中有一字段PIC為GRAPHIC類型
PROCEDURE TFORM1.SAVEBUTTONCLICK...
VAR PICTURE:TGRAPHIC;
BEGIN
PICTURE.CREATE;
PICTURE.LOADFROMFILE('C:/TEMP/TEMP.BMP');
WITH TABLE DO
BEGIN
OPEN;
INSERT;
FIELDBYNAME('PIC').ASSIGN(PICTURE);
POST;
END;
PICTURE.FREE;
END;

 

C

Crab

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-21

• #7

图片如上即可，其他文件可以如下参考：
procedure TfmBlob.btnSaveClick(Sender: TObject);
var
FStream: TFileStream;
BStream: TBlobStream;
begin
if not OpenDialog1.Execute then exit;
FStream := TFileStream.Create(OpenDialog1.FileName,fmOpenRead);
Table1.Edit;
BStream := TBlobStream.Create(Table1Doc,bmReadwrite);
with BStream do begin
Seek(0,soFromBeginning);
Truncate;
CopyFrom(FStream,FStream.Size)
end;
Table1.Post;
BStream.Free;
FStream.Free;
btnReadDoc.Enabled := false;
btnReadPic.Enabled := false;
end;

 

C

chaoro

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-21

• #8

建议不要把图片存进数据库，如果这样的话，调用时速度将异常的慢（除非你用 IBM RS6000
OR AS400）最好把文件名存进去，把图片存成文件。

 

F

felong11

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-22

• #9

多人接受答案了。