delphi - TBitmap.Create 在 delphi 控制台应用程序中不起作用

Question

我需要使用控制台应用程序处理一组 bmp 文件，我正在使用 TBitmap 类，但由于此错误，代码无法编译

E2003 Undeclared identifier: 'Create'

此示例应用程序重现了该问题

{$APPTYPE CONSOLE}

{$R *.res}

uses
 System.SysUtils,
 Vcl.Graphics,
 WinApi.Windows;

procedure CreateBitMap;
Var
  Bmp  : TBitmap;
  Flag : DWORD;
begin
  Bmp:=TBitmap.Create; //this line produce the error of compilation
  try
    //do something
  finally
   Bmp.Free;
  end;
end;

begin
  try
    CreateBitMap;

  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

为什么这段代码不能编译？

Answer 1

问题在于您的 uses 子句的顺序，WinApi.Windows 和 Vcl.Graphics 单元有一个称为 TBitmap 的类型，当编译器发现一个模棱两可 的类型时，使用存在的使用列表的最后一个单元来解析类型。在这种情况下，使用指向BITMAP WinAPi 结构的 Windows 单元的 TBitmap 来解决此问题，将单元的顺序更改为

uses
 System.SysUtils,
 WinApi.Windows,
 Vcl.Graphics;

或者您可以像这样使用完整的限定名声明类型

procedure CreateBitMap;
Var
  Bmp  : Vcl.Graphics.TBitmap;
  Flag : DWORD;
begin
  Bmp:=Vcl.Graphics.TBitmap.Create;
  try
    //do something
  finally
   Bmp.Free;
  end;
end;