急呀!!在线等。。从库中读取图像!!!!!!!!!!!!
老子 2006-06-15 04:21:46 一个表中有两个字段image1和image2都是blob类型,用来存取图像,保存可以,但是在显示时,只能读出第一个字段image1,为什么呢??????????
var
mStream1,mStream2: TMemoryStream;
Graphic1,Graphic2 : TOleGraphic;
begin
try
if (ADOQuery.Active) then ADOQuery.Active := false;
ADOQuery.SQL.Clear;
ADOQuery.SQL.Add('select image1,title1,image2,title2 from image_test');
ADOQuery.Open;
label1.Caption := ADOQuery.fieldByName('title1').AsString;
label2.Caption := ADOQuery.fieldByName('title2').AsString;
mStream1 := TMemoryStream.Create;
mStream2 := TMemoryStream.Create;
Graphic1 := TOleGraphic.Create;
Graphic2 := TOleGraphic.Create;
TBlobField(ADOQuery.FieldByName('image1')).SaveToStream(mStream1);
TBlobField(ADOQuery.FieldByName('image2')).SaveToStream(mStream2);
mStream1.Position :=0;
mStream2.Position :=0;
Graphic1.LoadFromStream(MStream1);
Graphic2.LoadFromStream(MStream2);
Image1.Picture.Graphic := Graphic1;
Image2.Picture.Graphic := Graphic2;
Graphic1.Free;
mStream1.Free;
Graphic2.Free;
mStream2.Free;
except
end;
end;