unit1.pas

适用于接口课程设计

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart;

type
  ArrayOfInt = array[0..19] of Integer;

  Tget = procedure(a:ArrayofInt);cdecl;
  
  TForm1 = class(TForm)
    Chart1: TChart;
    Series1: TLineSeries;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  MyFun:TFarProc;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var 
i: Integer;
a: ArrayOfInt;
begin
  Tget(MyFun)(a);
  With Series1 do
  begin
    Clear;
    Randomize;
    for i:=1 to 19 do
    begin
     AddXY(a[i-1],a[i]);
    end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Moudle:THandle;
begin

  Moudle:=LoadLibrary('..\dll\get.dll');

  ShowMessage(IntToStr(Moudle));//0
  
  if Moudle>32 then
  begin
    //MessageDlg('here',mtConfirmation,[mbOk],0);
    try
      MyFun:=GetProcAddress(Moudle,'get');

    (*try
      r:=TMax(MyFun)(5,8);
      ShowMessage(IntToStr(r));    *)
      
    finally
      FreeLibrary(Moudle);
    end;
  end;
end;

end.