如何将位图传递给Delphi在C#中编写的dll？

发布时间：2020-12-15 09:35:22 所属栏目：大数据来源：网络整理

导读：我在这样写的dll中有一个Delphi函数： function LensFlare(Bitmap: TBitmap; X,Y: Int32; Brightness: Real): TBitmap; StdCall; Begin // ... Result := Bitmap; End; 我想在C#中使用它, 我试过这个,但我没有成功： [DllImport("ImageProcessor")] static e

我在这样写的dll中有一个Delphi函数：

function LensFlare(Bitmap: TBitmap; X,Y: Int32; Brightness: Real): TBitmap; StdCall;
       Begin
         // ...
         Result := Bitmap;
       End;

我想在C#中使用它,
我试过这个,但我没有成功：

[DllImport("ImageProcessor")]
    static extern Bitmap LensFlare(Bitmap bitmap,int x,int y,double Brightness);

    private void button1_Click(object sender,EventArgs e)
    {
        Bitmap b = new Bitmap(@"d:a.bmp");
        pictureBox1.Image = LensFlare(b,100,50); // Error!
    }

错误：“尝试读取或写入受保护的内存.这通常表示其他内存已损坏.”

我怎样才能做到这一点？

解决方法

Delphi的TBitmap类与.NET的Bitmap类非常不同.它们彼此不兼容,并且对于互操作性目的而言都不安全.

您将不得不使用原始的Win32 HBITMAP句柄.

function LensFlare(Bitmap: HBITMAP; X,Y: Int32; Brightness: Real): HBITMAP; StdCall;
Begin
  // ...
  Result := Bitmap;
End;

[DllImport("ImageProcessor")]
static extern IntPtr LensFlare(PtrInt bitmap,double Brightness);

[DllImport("gdi32.dll")]
static extern bool DeleteObject(IntPtr hObject);

private void button1_Click(object sender,EventArgs e)
{
    Bitmap b = new Bitmap(@"d:a.bmp");
    IntPtr hbmp = LensFlare(b.GetHbitmap(),50);
    try {
        pictureBox1.Image = Image.FromHbitmap(hbmp);
    }
    finally {
        DeleteObject(hbmp);
    }
}

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!