delphi 代码转易语言

以下是将 Delphi 代码转换为易语言的示例：

library MenuDemo;
// Important note about DLL memory management: ShareMem must be the
// first unit in your library's USES clause AND your project's (select
// Project-View Source) USES clause if your DLL exports any procedures or
// functions that pass strings as parameters or function results. This
// applies to all strings passed to and from your DLL--even those that
// are nested in records and classes. ShareMem is the interface unit to
// the BORLNDMM.DLL shared memory manager, which must be deployed along
// with your DLL. To avoid using BORLNDMM.DLL, pass string information
// using PChar or ShortString parameters.
uses
  Windows, SysUtils, Classes, Dialogs, CRCUtils, PluginTypeDef, PluginInterface, PluginDelphiUtils;

{$R *.res}

procedure MenuItem1Click(Sender: TObject); stdcall;
var
  Tag: Integer;
begin
  Tag := g_AppFunc.Menu.GetTag(Sender);
  ShowMessage(IntToStr(Tag) + ' 点击');
end;

// 插件初始化
function Init(AppFunc: PAppFuncDef; AppFuncCrc: DWORD; ExtParam: DWORD; Desc: PAnsiChar; var DescLen: DWORD): BOOL; stdcall;
var
  S: AnsiString;
  MenuItem, ParentMenu, MenuItem2: _TMenuItem;
begin
  Result := True;
  if Crc32(PByte(AppFunc), SizeOf(TAppFuncDef)) <> AppFuncCrc then
  begin
    Result := False;
    Exit;
  end;
  g_AppFunc := AppFunc^;
  S := '自定义菜单测试';
  if DescLen > Length(S) then
  begin
    Move(S[1], Desc^, Length(S));
    DescLen := Length(S);
  end;
  MenuItem := g_AppFunc.Menu.GetPluginMenu;
  if MenuItem <> nil then
  begin
    if not g_AppFunc.Menu.GetVisable(MenuItem) then
    begin
      g_AppFunc.Menu.SetVisable(MenuItem, True);
    end;
  end;
  ParentMenu := g_AppFunc.Menu.Add(g_AppFunc.PluginID, MenuItem, '菜单测试1', 1, nil);
  MenuItem := g_AppFunc.Menu.Add(g_AppFunc.PluginID, ParentMenu, '子菜单11', 11, @MenuItem1Click);
  MenuItem := g_AppFunc.Menu.Add(g_AppFunc.PluginID, ParentMenu,'子菜单12', 12, nil);
  MenuItem2 := g_AppFunc.Menu.Add(g_AppFunc.PluginID, MenuItem, '子菜单121', 121, @MenuItem1Click);
  MenuItem2 := g_AppFunc.Menu.Add(g_AppFunc.PluginID, MenuItem, '子菜单122', 122, @MenuItem1Click);
  ParentMenu := g_AppFunc.Menu.Add(g_AppFunc.PluginID, g_AppFunc.Menu.GetPluginMenu, '菜单测试2', 2, nil);
  MenuItem := g_AppFunc.Menu.Add(g_AppFunc.PluginID, ParentMenu, '子菜单21', 21, @MenuItem1Click);
  MenuItem := g_AppFunc.Menu.Add(g_AppFunc.PluginID, ParentMenu, '子菜单22', 22, @MenuItem1Click);
end;

// 插件反初始化
procedure UnInit(); stdcall;
begin
end;

exports
  Init,
  UnInit;

begin
end.

转换后的易语言代码如下：

#compile DLL

' Important note about DLL memory management: ShareMem must be the
' first unit in your library's USES clause AND your project's (select
' Project-View Source) USES clause if your DLL exports any procedures or
' functions that pass strings as parameters or function results. This
' applies to all strings passed to and from your DLL--even those that
' are nested in records and classes. ShareMem is the interface unit to
' the BORLNDMM.DLL shared memory manager, which must be deployed along
' with your DLL. To avoid using BORLNDMM.DLL, pass string information
' using PChar or ShortString parameters.
$uses
  Windows, SysUtils, Classes, Dialogs, CRCUtils, PluginTypeDef, PluginInterface, PluginDelphiUtils

$dll
  MenuItem1Click, Init, UnInit

$include 'PluginDelphiUtils.inc'

sub MenuItem1Click(Sender: TObject)
  var Tag : integer
  Tag = g_AppFunc.Menu.GetTag(Sender)
  ShowMessage(IntToStr(Tag) + ' 点击')
endsub

sub Init(AppFunc : PAppFuncDef, AppFuncCrc : DWORD, ExtParam : DWORD, Desc : PAnsiChar, DescLen : DWORD) : BOOL
  var S : AnsiString
  var MenuItem, ParentMenu, MenuItem2 : _TMenuItem
  result = True
  if Crc32(PByte(AppFunc), SizeOf(TAppFuncDef)) <> AppFuncCrc then
    result = False
    exit
  endif
  g_AppFunc = AppFunc^
  S = '自定义菜单测试'
  if DescLen > Length(S) then
    Move(S[1], Desc, Length(S))
    DescLen = Length(S)
  endif
  MenuItem = g_AppFunc.Menu.GetPluginMenu
  if MenuItem <> nil then
    if not g_AppFunc.Menu.GetVisable(MenuItem) then
      g_AppFunc.Menu.SetVisable(MenuItem, True)
    endif
  endif
  ParentMenu = g_AppFunc.Menu.Add(g_AppFunc.PluginID, MenuItem, '菜单测试1', 1, 0)
  MenuItem = g_AppFunc.Menu.Add(g_AppFunc.PluginID, ParentMenu, '子菜单11', 11, @MenuItem1Click)
  MenuItem = g_AppFunc.Menu.Add(g_AppFunc.PluginID, ParentMenu,'子菜单12', 12, 0)
  MenuItem2 = g_AppFunc.Menu.Add(g_AppFunc.PluginID, MenuItem, '子菜单121', 121, @MenuItem1Click)
  MenuItem2 = g_AppFunc.Menu.Add(g_AppFunc.PluginID, MenuItem, '子菜单122', 122, @MenuItem1Click)
  ParentMenu = g_AppFunc.Menu.Add(g_AppFunc.PluginID, g_AppFunc.Menu.GetPluginMenu, '菜单测试2', 2, 0)
  MenuItem = g_AppFunc.Menu.Add(g_AppFunc.PluginID, ParentMenu, '子菜单21', 21, @MenuItem1Click)
  MenuItem = g_AppFunc.Menu.Add(g_AppFunc.PluginID, ParentMenu, '子菜单22', 22, @MenuItem1Click)
endsub

sub UnInit()
end

$dllend

需要注意的是，易语言不支持指针操作，因此需要修改一些涉及指针的代码。此外，易语言的函数不需要声明 `stdcall`，因为该语言默认使用 `stdcall` 调用约定。同时，易语言的函数名需要在开头添加 `sub` 关键字，以表示这是一个子程序。