如何保存Timage控件的绘图 ( 积分: 100 )

  • 主题发起人 主题发起人 ljy19871128
  • 开始时间 开始时间
L

ljy19871128

Unregistered / Unconfirmed
GUEST, unregistred user!
我在image控件上画好了,可是保存到数据库存里时什么也没有,画面是空白的,应该如何才能把我画的东西保存下来谢谢
 
if SavePicDlg.Execute then
begin
if FileExists(SavePicDlg.FileName) then
begin
if Windows.MessageBox(self.Handle,'文件已经存在,是否覆盖?','提示框',MB_YESNO+MB_ICONQUESTION)=IDYES then
begin
self.Image1.Picture.SaveToFile(SavePicDlg.FileName);
end
else
begin
exit;
end;
end
else
begin
self.Image1.Picture.SaveToFile(SavePicDlg.FileName);
end;
MessageBox(self.Handle,'保存成功!','提示框',MB_OK);
end;
 
保存文件佷简单啊,为什么看不到啊,我随便试了一下没问题啊:
procedure TForm1.Button1Click(Sender: TObject);
begin
with Image1.Canvas do
begin
MoveTo(0,0);
LineTo(50,50);
end;

if SaveDialog1.Execute then
begin
Image1.Picture.SaveToFile(SaveDialog1.FileName);
end;
end;
 
保存到文件楼上的方法都没问题,保存到数据库时要用stream。
 
都是流。说的都对。
 
楼主数据库采用的是什么字段呀 ?
 
我用的是image
 
有二种方式可以保存到数据库里:
1、通过流的方式直接保存到数据库里。这里主要是用到数据流。
2、通过文件的方式保存到数据库里。这里主要是用到文件流。
 
哎呀,同意楼上说的,用流啊,
这种数据库图像字段的问题佷简单,资料也佷多啊,随便查查就行了;
看一下,里面有我的“精辟”解答,哈哈
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3679365
 
谢谢,楼上两位,可是我也用过这两种方法啊,就是不行~!,保存进去还是空白的
 
我想问个问题啊 你确定你写的是这两种方法吗?
 
看一看自己的代码有没有写错~!!!
 
多人接受答案了。
 
谢谢各位,我已经找到了问题
 
后退
顶部