Question

我正在delphi中开发一个应用程序。我正在尝试提取保存在数据库中的图像，将其保存到TMemoryStream并在TImage控件上加载相同的图像，该控件将放置在将动态填充的其他表单上。当我尝试将图片从流加载到表单上的图像控件时，我收到访问冲突错误。

错误说明如下

模块abc.exe中地址00B548C的访问冲突。读取地址0000000

我的代码段如下

UniConnection1.Connected := true;  
UniQuery2.SQL.Text := 'Select image from userplays where id = :id';
UniQuery2.Params.ParamByName('id').Value := idpub1;
UniQuery2.Open;
if UniQuery2.FieldByName('image').AsString <> '' then

begin       
   try
   Stream121 := TMemoryStream.Create;
   TBlobField(UniQuery2.FieldByName('image')).SaveToStream(Stream121);
   Stream121.Position := 0;
      if Assigned(Stream121) then
      begin
         Image1.Picture.Graphic.LoadFromStream(Stream121);
         Image1.Update;
      end;

    finally
      Stream121.Free;
    end;
end;

Answer 1

TPicture无法确定流中的图形类型，因此您必须先告诉它。如果您只有JPEG图像，则可以对其进行硬编码。否则，您也应该将图像格式存储在数据库中。

var
  graphic: TGraphic;  

Stream121.Position := 0;
if Stream121.size > 0 then begin
  graphic := TJPEGImage.Create;
  try
    graphic.LoadFromStream(Stream121);
    Image1.Picture.Graphic := graphic;
  finally
    graphic.Free;
  end;
end;

Answer 2

您指的是Graphic.LoadfromStream。但是Graphic可能不会（可能不会）存在。您可以保存到文件并使用Picture.LoadFromFile（因为这将创建适当的TGraphic后代）或首先创建Picture.Graphic作为适当的类型（例如TBitmap）。

Picture.Graphic := TBitMap.Create;

目前图像不知道您的数据是什么图形格式。您需要以某种方式告诉它。

保存/加载图像到/从流

2 个答案: