关于图片的输入(100分)

V

visional

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-23

• #1

要往表里输入图片，组件包括QUERY，DATASOURCE，OPENFILEDIALOG，IMAGE，DBIMAGE……
代码如下：

procedure Txsbform.Button1Click(Sender: TObject);
begin
if (opendialog1.Execute) then
image1.Picture.LoadFromFile(opendialog1.FileName);
image1.Update;
clipboard.assign (image1.Picture);
query1.edit;
dbimage1.PasteFromClipboard;
query1.post;
dbimage1.setfocus;
end;
end;

但是在运行输入图片时却报错，请问是为什么？？？？

 

T

tommy_linux

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #2

uses Jpeg;
begin
if OpenPictureDialog1.execute then
begin
query1.edit;
DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
DBImage1.CopyToClipboard;
DBImage1.PasteFromClipboard;
query1.post;
end;
end;

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #3

query1.edit;
DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
// DBImage1.CopyToClipboard;
// DBImage1.PasteFromClipboard;
query1.post;

 

N

nansha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #4

to jsxjd:你上面的代码运行不成呀！

 

H

hq_pan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #5

你的问题其实相当于把任意格式的文件存入数据库，你搜索一下以前的帖子，
我记得我以前也回答过，用流来解决很方便，具体解答我不说了，浪费地方。
多搜索一下以前的帖子，可以节省不少分数的喔！

 

王

王公子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #6

呵呵

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #7

你输入的图片是什么类型的？bmp?jpg?
相应的字段类型是什么？
DbImage 是否和字段连接了？

 

崔

崔占东

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #8

你为什么要COPY到剪切板上呢，直接
QUERY1.EDIT;
DBIMAGE1.LOADFROMFILE(IAMGEFILENAME);
QUERY1.POSE;

 

下

下雨了

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #9

procedure TTmain_employee2.DBImage1Click(Sender: TObject);
var
dlgFile:TOpenDialog;
begin
dlgFile:=TopenDialog.Create(self);
dlgfile.Filter:='Bmp file (*.bmp)|*.bmp';
if dlgfile.Execute then
begin
bmp.LoadFromFile(dlgfile.FileName);
strFile:=dlgfile.FileName;
dbimage1.Picture.Assign(bmp);
end;
end;