关于图形付值给字段?(50分)

  • 主题发起人 主题发起人 jobsxy
  • 开始时间 开始时间
J

jobsxy

Unregistered / Unconfirmed
GUEST, unregistred user!
我的SQL是这样写的:
Insert InTo Mydatabase (code,photo) value (:vcode,:vphoto);
Params[0].AsString := '0001'
但这句该如何写:
Params[1]. = Image1.Picture;

ExecSQL;
 
诸位大侠,请帮帮我!!!
 
用流的方式
var
FS: TFileStream;
begin
if not (Query1.State in [dsInsert, dsEdit]) then
Query1.Insert;
FS := TFileStream.Create('c:/Windows/Winlogo.bmp', fmOpenRead);
try
Query1Images.LoadFromStream(FS);
finally
FS.Free;
end;
Query1.Post;
end;
 
这样写肯定行!
Params[1].assign(Image1.Picture)

 
to wzs:
这样写不行我试过,错误信息如下:
Cannot assign a TPicture to a TParam
不好意思,请再帮忙看一下
 
params[1].datatype:=ftgraphic
params[1].assign(image1.picture);
try it
 
hubdog: 还是不行出错信息还是一样的
 
params[1].datatype:=ftgraphic
params[1].assign(image1.picture);
try it
above is wrong ,I can not run.but Ido
n't know how todo
.
 
我用过,没错!!
不然再试
Params[1].assign(Image1.Picture.bitmap)
or
Params[1].loadfromfile('c:/test.bmp',ftgraphics);
我想起 ,可能是图象格式问题, 只接受bmp方式!
那你只能转化它了!
----我现在没法试,只能让你告我了----

 
to wzs: 会不会是因为我用的是D3的问题,您的
Params[1].loadfromfile('c:/test.bmp',ftgraphics);
会出现编译错误 "Undeclared identifier 'ftgraphic'"

 
Params[1].loadfromfile('c:/test.bmp');
loadfromfile函数只有一个file:string的参数:-)
建议你看我以前回答的问题:-)
 
to cytown: 你已经回答的问题题目是什么?我怎么找不到?
 
http://www.gislab.ecnu.edu.cn/delphibbs/dispq.asp?LID=136884
这个就可以:-)
 
多人接受答案了。
 
后退
顶部