Z
zzjmail
Unregistered / Unconfirmed
GUEST, unregistred user!
修改图象，是不是要先把数据库中的图片清空呀？我保存的时候
是用流的形式保存进去的，可是修改后，当浏览到修改图片的记录的时候，
就会出现错误。。把图片字段的值设为空，又可以浏览了。。。
var photo: Tmemorystream;
begin
photo := Tmemorystream.create;
img.Picture.graphic.savetoStream(photo);
Tblobfield(ADOQ.FieldByName(field)).loadfromstream(photo);
photo.Clear;
end;//保存图片代码：
var MS: Tmemorystream;
begin
if not ADOQ.FieldByName(field).isnull then
begin
MS := TMemoryStream.Create;
try
TBlobField(ADOQ.FieldByName(field)).SaveToStream(MS);
MS.Position := 0; //注意
img.Picture.Bitmap.LoadFromStream(MS);
finally
MS.Free;
end;
end
end;//显示图片的代码；
该怎么修改图片呀。。。。有没有高手呀，。。急，急，急，就差一点点了
是用流的形式保存进去的，可是修改后，当浏览到修改图片的记录的时候，
就会出现错误。。把图片字段的值设为空，又可以浏览了。。。
var photo: Tmemorystream;
begin
photo := Tmemorystream.create;
img.Picture.graphic.savetoStream(photo);
Tblobfield(ADOQ.FieldByName(field)).loadfromstream(photo);
photo.Clear;
end;//保存图片代码：
var MS: Tmemorystream;
begin
if not ADOQ.FieldByName(field).isnull then
begin
MS := TMemoryStream.Create;
try
TBlobField(ADOQ.FieldByName(field)).SaveToStream(MS);
MS.Position := 0; //注意
img.Picture.Bitmap.LoadFromStream(MS);
finally
MS.Free;
end;
end
end;//显示图片的代码；
该怎么修改图片呀。。。。有没有高手呀，。。急，急，急，就差一点点了