G
gyfstar
Unregistered / Unconfirmed
GUEST, unregistred user!
if not FieldByName('picture').isnull then
begin
ms:=tmemorystream.Create;
jpg:= tjpegimage.Create;
ms.Clear;
tblobfield(fieldbyname('picture')).Savetostream(ms);
ms.position:=0;
jpg.LoadFromStream(ms);
image1.Picture.Bitmap.Assign(jpg);
ms.Free;
jpg.Free;
end
我用的是三层,jpg图片可以存进去,可是我用上面的方法读出的时候
到jpg.LoadFromStream(ms)这句就出现了'jpeg error #52'的错误
各位好人,请你们帮助,我很急的,马上就要上交了
begin
ms:=tmemorystream.Create;
jpg:= tjpegimage.Create;
ms.Clear;
tblobfield(fieldbyname('picture')).Savetostream(ms);
ms.position:=0;
jpg.LoadFromStream(ms);
image1.Picture.Bitmap.Assign(jpg);
ms.Free;
jpg.Free;
end
我用的是三层,jpg图片可以存进去,可是我用上面的方法读出的时候
到jpg.LoadFromStream(ms)这句就出现了'jpeg error #52'的错误
各位好人,请你们帮助,我很急的,马上就要上交了