DLL einbinden, in Klasse oder global

[Neutral General]

Hi,

Du kannst das Kapseln, aber dann nicht so, sondern:

Delphi-Quellcode:

TspsIo = class 
public 
  constructor create(Addr : String); 
  function IPSOpen(IPAdr : PChar; Rack : LongWord; Slot : LongWord; RxTimeout : LongWord; TxTimeout : LongWord ; ConnectTimeout : LongWord): LongInt;
end; 

implementation

const 
  spsDll = 'IPS7LNK.DLL'; 

function IPS7Open (IPAdr : PChar; Rack : LongWord; Slot : LongWord; RxTimeout : LongWord; TxTimeout : LongWord ; ConnectTimeout : LongWord) : LongInt; stdcall; external spsDll name 'IPS7Open'; 


function TSPSIO.IPSOpen(IPAdr : PChar; Rack : LongWord; Slot : LongWord; RxTimeout : LongWord; TxTimeout : LongWord ; ConnectTimeout : LongWord): LongInt;
begin
  Result := IPS7Open(IPAdr,Rack,Slot,RxTimeout,TxTimeout,ConnectTimeout);
end;