一个关于SQL SERVER 2000 与图像的问题 献上100分(100分)

  • 主题发起人 主题发起人 闲云野鹤
  • 开始时间 开始时间

闲云野鹤

Unregistered / Unconfirmed
GUEST, unregistred user!
请问怎么通过DELPHI 6。0将图象如JPG BMP等,存入SQL SERVER 2000 呢?我知道
SQL SERVER 的图象储存类型是IMAGE 但我用adotable1.fieldbyname('g').assign(picture1);
picture1已定义并付值。再者怎么将PARADOX7里的图象类型GRAPHIC的数据到入到SQL SERVER
2000里呢?
 
用流。。。。找找例子。

或者是用DBimage
 
uses jpeg;
//保存jpeg文件
procedure Tfrmado.ImageDblClick(Sender: TObject);
begin
with topendialog.Create(Self) do
begin
if execute then
begin
if not (adoquery1.State in [dsedit]) then adoquery1.Edit ;
tblobfield(adoquery1.FieldByName('jpg')).LoadFromFile(FileName) ;
end;
end;
end;
 
要用类似下面的语句保存:
AdoTable1.edit;
(AdoTable1.FieldByName('Dm_Blob') as TBlobField).LoadFromFile('E:/Picture1.bmp');
//上面是将文件存入该字段,也可以将流存入,如下:
//(C_Qry.FieldByName('Dm_Blob') as TBlobField).LoadFromStream(picture1);
//这一句要求picture是一个TMemoryStream变量,可以先将一幅图片存入该变量,再用上述语句保存
AdoTable1.post;
 
这是我的主页上的一个Demo,源码
http://www.aidelphi.com
36、一个利用TBlobStream在数据库中保存BMP和JPG图片的例子,可同时支持这两种格式的图片,并且涉及到利用DBGrid的自绘事件在DBGrid中绘制图片的技巧(使用了Delphi自带的DBDEMOS数据库中的Animals.dbf数据表,SQL数据和本地DBF数据库的操作是一样的)。Download!
 
HunterTeam
你所说的我试了,但程序提示TBlobField,没有
 

Similar threads

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