Question

我一直在尝试使用下面的代码将存储在varbinary mssql列中的图像数据加载到TImage组件，但它会出错

 with Query_Refresh do
   Begin
     close;
     open;
     if RecordCount > 0 then
       Begin
         //Edit to allow the streaming of the fields
         Edit;

         //MyStream is of Type TStream
         MyStream := CreateBlobStream(FieldByName('MyBlobField'),bmWrite);

         //Loading to the image --- Error occurs on the line below
         MyImage.Picture.Graphic.LoadFromStream(MyStream);
       End;
   End;

错误是访问冲突....

请有人协助如何做到这一点

Answer 1

除非您告知，否则

TPicture不会持有TGraphic。它从空开始，因此Graphic属性为null。这就是当您尝试在其上调用方法时获得访问冲突的原因。

如果您还不知道存储了哪种图形，则必须编写一些内容来检查字段的内容以找出它，或者在数据库中添加另一个描述格式的字段图形领域。

一旦您知道自己的图形类型，就可以创建该类的实例，从流中加载它，并将其分配给TPicture容器。之后释放您的图片，因为TPicture创建了自己的图形副本。这是一个例子：

var
  DBGraphicClass: TGraphicClass;
  Graphic: TGraphic;

// Implementing FieldValToGraphicClass is an exercise for the reader.
DBGraphicClass := FieldValToGraphicClass(FieldByName('MyBlobFieldType'));
Graphic := DBGraphicClass.Create;
try
  Graphic.LoadFromStream(MyStream);
  MyImage.Picture.Graphic := Graphic;
finally
  Graphic.Free;
end;

如果已知类型始终是TPicture已有的图形属性之一，则可以直接访问特定于类型的属性，并跳过分配自己的图形对象的步骤。例如，如果您的数据库包含位图，则可以访问TPicture.Bitmap而不是TPicture.Graphic。然后TPicture会自动创建一个TBitmap对象。例如：

MyImage.Picture.Bitmap.LoadFromStream(MyStream);

Delphi从CreateBlobStream ADO Query加载TImage

1 个答案: