Delphi盒子-问答悬赏

lcxl：  function  PINPAD_GetInput( Timeout: Integer;  Input : PChar );stdcall;

Wisz： 
1、如果这个函数是你自己定义，给你个简单而完整的例子：

unit Unit1;
interface
uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs;
type

  TForm1 = class(TForm)

    procedure FormCreate(Sender: TObject);

  private

  public

    function PINPAD_GetInput( Timeout: Integer; var Input : Char ):Integer;

  end;
var

  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);

var

  Ps:Char;

begin

  PINPAD_GetInput(12, Ps);

  ShowMessage(Ps);

end;
function TForm1.PINPAD_GetInput(Timeout: Integer; var Input: Char): Integer;

begin

  ShowMessage(IntToStr(Timeout));

  Input := 'A';

end;
end.



2、如果是调用C或C++编写的动态库或EXE文件中的函数，可以这么用：

function PINPAD_GetInput(Timeout: Integer; var Input : Char ):Integer; Cdecl; external 'Demo.dll';

这里的'Demo.dll'是你调用的动态库或EXE文件。

然后在Delphi里面就可以直接调用这个函数了，参考上面的调用。