高手们好::问题是这样select t_image from image_lob where t_id = '10'(这是adoquer的sql语句)TBlobField(adoquery1.FieldByName('t_image')).SaveToStream(MS);(这是button的click事件中的一句话,怀就坏在这句话上!!)当我把十改成7的时候 运行报错 field 't_image' not found!!
不改没事!!说明 button -- 显示图片的按钮谢谢大家给我指条明路吧!!!
不改没事!!说明 button -- 显示图片的按钮谢谢大家给我指条明路吧!!!
if adoquery1.recordcount > 0 then
TBlobField(adoquery1.FieldByName('t_image')).SaveToStream(MS);
回 hahafan(注意!此人前途迷茫) :有 表中一共有十条记录
procedure TForm1.Button1Click(Sender: TObject);
var
AGif:TGIFImage;
AJpeg: TJpegImage;
MS: TMemoryStream;
//ABmp:TImage
begin
MS := TMemoryStream.Create;
AGif :=TGIFImage.Create;
AJpeg :=TJpegImage.Create;
//ABmp:=TImage.Create;
TBlobField(adoquery1.FieldByName('t_image')).SaveToStream(MS);
MS.Position:=0;//只有将其复位才能显示出来
try
AGif.LoadFromStream(MS);
Image1.Picture.Bitmap.Assign(AGif);
MS.Free;
AGif.Free;
except
try
AJpeg.LoadFromStream(MS);
Image1.Picture.Bitmap.Assign(AJpeg);
MS.Free;
AJpeg.Free; except
showmessage('it is wrong!!');
end; end ;
end;
小弟很菜啊!!!
adoquery1.open;
谢谢了 !!