usedll.pas

对钻井的数据采集 对钻井的数据采集

unit usedll;

interface
uses
 Windows;

procedure pcreg();stdcall; external 'HT-PC.dll';
procedure pcout(port:integer;data:integer;delay:integer);stdcall;external 'HT-PC.dll';

function pcin(port:integer;delay:integer):byte;stdcall;external 'HT-PC.dll';//使用byte作为返回值类型
implementation
//procedure pcreg;external 'HT-PC.dll';
//procedure pcout;external 'HT-PC.dll';
//function pcin; external 'HT-PC.dll';
end.