udllinterface.pas

机器人足球赛比赛平台源代码

unit udllinterface;

interface

uses uClass, Windows, Dialogs;
type TProcGetName = function :PChar; stdcall;

{上层接口}
procedure getteamname(var team1,team2:string);
procedure initRobotlibary;

{下层接口}

var
  getteamname1 : TProcGetName;
  getteamname2 : TProcGetName;

function teamAname : pchar; external 'teamdlla.dll' name 'teamname';
function teamBname : pchar; external 'teamdllb.dll' name 'teamname';
implementation

uses uMain;

procedure initRobotlibary;
begin
end;

procedure getteamname(var team1,team2:string);
begin
  team1 := teamAname;
  team2 := teamBname;
end;

end.