Delphi dll图像拉伸错误

Question

我正在尝试使用下面提到的 dll 函数调整位图图像的大小（缩放），

{ to resize the image }
function ResizeImg(maxWidth,maxHeight: integer;thumbnail : TBitmap): TBitmap;
var
 thumbRect : TRect;
begin
 thumbRect.Left := 0;
 thumbRect.Top := 0;

 if thumbnail.Width > maxWidth then
  begin
   thumbRect.Right := maxWidth;
  end
 else
  begin
    thumbRect.Right := thumbnail.Width;;
  end;

 if thumbnail.Height > maxHeight then
  begin
   thumbRect.Bottom := maxHeight;
  end
 else
  begin
   thumbRect.Bottom := thumbnail.Height;
  end;
 thumbnail.Canvas.StretchDraw(thumbRect, thumbnail) ;

  //resize image
 thumbnail.Width := thumbRect.Right;
 thumbnail.Height := thumbRect.Bottom;

 //display in a TImage control
 Result:= thumbnail;
end;

当我使用此应用程序调用（以提供列表视图中的所有图像）时，效果很好：

  //bs:TStream; btmap:TBitmap;
  bs := CreateBlobstream(fieldbyname('Picture'),bmRead);
  bs.postion := 0;
  btmap.Loadfromstream(bs);
  ListView1.Items[i].ImageIndex := ImageList1.Add(ResizeImg(60,55,btmap), nil);

但是当我尝试此应用程序调用（以获取单独的图像到我的 TImage 组件）：

 bs := CreateBlobstream(fieldbyname('Picture'),bmRead);
 bs.postion := 0;
 btmap.Loadfromstream(bs);
 Image1.Picture.Bitmap := ResizeImg(250,190,btmap);

它给了我一个错误：

 thumbnail.Canvas.StretchDraw(thumbRect, thumbnail) ;

说：

 AV at address 00350422 in module 'mydll.dll' Read of Address 20000027

当我关闭我的可执行文件时，我得到这个：

 runtime error 216 at 0101C4BA 

如果我在我的 exe pas 文件中定义并使用相同的函数（ResizeImg），它工作完全正常，没有任何错误。

Answer 1

除非您采取措施确保这些模块共享相同的运行时和内存分配器，否则您无法在模块之间传递 Delphi 对象。我看来你还没有采取这样的步骤。

基本问题是 Delphi 对象既是数据又是代码。如果您天真地调用在不同模块中创建的对象上的方法，那么您将对该模块中的数据执行该模块中的代码。这通常会导致运行时错误。

您至少有以下选择：

1. 使用运行时包。这将强制执行共享运行时。
2. 使用 COM 互操作。 COM 旨在跨模块边界共享组件。
3. 将所有代码链接到单个可执行文件中。
4. 在模块之间传递 HBITMAP，因为它们可以以这种方式共享。