我怎样把一个图像用SQL存贮在SQLserver中,然后又怎样通过SQL调用出来?请详细一些!(50分)

  • 主题发起人 主题发起人 huijunzi
  • 开始时间 开始时间
may be use :)
save:
Jpeg1:=TJpegImage.Create;
Z1:=TStringStream.Create('');
Jpeg1.Assign(Image1.Picture.Graphic);
Jpeg1.CompressionQuality:=ImgCmpsQuality;
Jpeg1.SaveToStream(Z1);
FieldByName('PhotoImg').Value:=Z1.DataString;
FieldByName('PhotoSize').AsInteger:=Z1.Size;
Post;
DM1.WriteOperateLog(OperateCode,TableName,RecordID);
Z1.Free;
load:
PhotoStream:=TStringStream.Create(DBGrid_Guest.DataSource.DataSet.FieldByName('PhotoImg').Value);
Jpeg1:=TJpegImage.Create;
Jpeg1.LoadFromStream(PhotoStream);
Jpeg1.SaveToFile(TempDir+'AAA.JPG');
Image1.Picture.LoadFromFile(TempDir+'AAA.JPG');
DeleteFile(TempDir+'AAA.JPG');
PhotoStream.Free;
Jpeg1.Free;
 
这类问题太多了,查查吧!
 
同意xixi12359的方法,我以前也是这么做的
 
还是查查以前的帖子好!
 
简单方法:
使用TTable.
如果导入,则:TTable的TField的LoadFromFile()方法;
导出,则:使用TDBImage;
 
满地的答案....
上网时间不够.
 

建议到已答问题里找一找,那里有好多!!

顺便问一下,Tblobfield是不是适用任何的数据类型,还是只是Binary数据类型。
 
接受答案了.
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
890
DelphiTeacher的专栏
D
后退
顶部