Re: Advice for jedi project.

Here's my function for loading dynamically loading a DLL.

Returns 0 for success, 1 for no DLL, 2 for missing function.

I've deleted some of the "GetProcs" to shorten the code.

Not sophisticated - but it works.

{------------------------------------------------------------------------------}

function DaqOpenLib : Integer;

var
s : array [0..79] of Char;

label Error;

begin
hDLL:=LoadLibrary('NICAIU.DLL');
if hDLL=0 then
   begin
   ShowLastError(GetLastError);
   ShowError('Cannot load National Instruments NI-DAQ DLL !', 0);
   Result:=1;
   Exit;
   end;

s:='DAQmxCreateTask';
@[EMAIL PROTECTED]
(hDLL, s);
if @[EMAIL PROTECTED]
 then goto Error;

s:='DAQmxClearTask';
@[EMAIL PROTECTED]
(hDLL, s);
if @[EMAIL PROTECTED]
 then goto Error;

s:='DAQmxCreateDIChan';
@[EMAIL PROTECTED]
(hDLL, s);
if @[EMAIL PROTECTED]
 then goto Error;

s:='DAQmxCreateDOChan';
@[EMAIL PROTECTED]
(hDLL, s);
if @[EMAIL PROTECTED]
 then goto Error;

Result:=0;
Exit;

Error:
FreeLibrary(hDLL);
ShowError('Function '+ s +' not found in NI-DAQ.DLL !', 0);
Result:=2;
end;

{------------------------------------------------------------------------------}