请给老弟关于存、取、查询含有图形类型的数据库的例子(100分)

  • 主题发起人 主题发起人 zzy293
  • 开始时间 开始时间
Z

zzy293

Unregistered / Unconfirmed
GUEST, unregistred user!
请给老弟关于存、取、查询含有图形类型的数据库的例子,我的E-MAIL为
zzy29333@263.net,thank you 了。
 
用流去读写,很容易的,
dfw里很多,自己去搜索一下吧
 
在数据库中设一字段为BLOB类型,可以存各种文件,假设字段名为picture,fname为文件名
proceture TForm1.LoadBtnClick(sender:TObject)
var
stream1:TFileStream;
begin
with query1 do
begin
close;
SQL.clear;
Sql.add('select picture from table1');
open;
edit;
end;

stream1:=TFileStream.create(fname.fmOpenRead);
try
query1picture.LoadFromStream(stream1);
finally
stream1.free;
end;
query1.post;
end;

读取时可用同样的方法,用SaveToStream函数就可以了。
 
bmp图形存入数据库的方法:
BMP := TBitmap.Create;
stream := tMemoryStream.Create;
BMP.SaveToStream(MemoryStream);

...
//Blob Field
Table1.FieldByName("YourBlob").LoadFromStream(Stream);

 
后退
顶部