F
fly-aa123
Unregistered / Unconfirmed
GUEST, unregistred user!
如何將一幅圖片保存到 SQLSever,用Delphi 實現。
任
任豆豆
Unregistered / Unconfirmed
GUEST, unregistred user!
如: 增加字段PhotoField,类型为Blob//可能是
table1.edit;
TBlobField(table1.FieldByName('PhotoField')).LoadFromFile(OpenPictureDlg.FileName);
table1.pose;
table1.edit;
TBlobField(table1.FieldByName('PhotoField')).LoadFromFile(OpenPictureDlg.FileName);
table1.pose;
P
plapla
Unregistered / Unconfirmed
GUEST, unregistred user!
前不久刚探索过，BMP,JPG,TIF都可以。
为了能存大图片，建议用ADO连数据库。
插：
with Adoquery1 do
begin
sql.Clear;
sql.Add('insert into imagetest(fimage) values
FIMAGE) ');
Parameters[0].LoadFromfile(opendialog1.filename,FtBlob);
ExecSQL;
end;
读：
with AdoQuery1 do
begin
close;
sql.Clear;
sql.add('select fimage from imagetest');
open;
while not EOF do
begin
next;
end;
try
//TBlobField(FieldByName('fimage')).SaveToStream(MS);
TBlobField(FieldByName('fimage')).SaveToFile('tmp.jpg');
Image2.Picture.LoadFromFile('tmp.jpg');
finally
//JpegImage.Free;
end;
FIMAGE字段为IMAGE类型。
除了TIF类型，你还可以用内存流操作.
为了能存大图片，建议用ADO连数据库。
插：
with Adoquery1 do
begin
sql.Clear;
sql.Add('insert into imagetest(fimage) values
FIMAGE) ');Parameters[0].LoadFromfile(opendialog1.filename,FtBlob);
ExecSQL;
end;
读：
with AdoQuery1 do
begin
close;
sql.Clear;
sql.add('select fimage from imagetest');
open;
while not EOF do
begin
next;
end;
try
//TBlobField(FieldByName('fimage')).SaveToStream(MS);
TBlobField(FieldByName('fimage')).SaveToFile('tmp.jpg');
Image2.Picture.LoadFromFile('tmp.jpg');
finally
//JpegImage.Free;
end;
FIMAGE字段为IMAGE类型。
除了TIF类型，你还可以用内存流操作.