L
liwowo
Unregistered / Unconfirmed
GUEST, unregistred user!
var
p1:Tpicture;
BM:Tbitmap;
p1:=TPicture.Create;
BM := TBitmap.Create;
a1:=TADOBlobStream.Create(adoquery1.FieldByName('I_info') as TBlobField,BMRead);
if a1.Size = 0 then begin
Exit;
end;
bm.LoadFromStream(a1); //错误提示:bitmap image is not valid
p1.Assign(bm);
我一定要将这数据流转成picture的 怎么转阿?
p1:Tpicture;
BM:Tbitmap;
p1:=TPicture.Create;
BM := TBitmap.Create;
a1:=TADOBlobStream.Create(adoquery1.FieldByName('I_info') as TBlobField,BMRead);
if a1.Size = 0 then begin
Exit;
end;
bm.LoadFromStream(a1); //错误提示:bitmap image is not valid
p1.Assign(bm);
我一定要将这数据流转成picture的 怎么转阿?