USB-UIRT Forum

I'm trying to use the API and am having a problem when calling the uuirtopen function, my application just hangs. I've declared the functions as follows:

function UUIRTOpen: integer; external 'uuirtdrv.dll';
function UUIRTClose(hHandle: integer): integer; external 'uuirtdrv.dll';
function UUIRTTransmitIR(hHandle: integer; sIRCode: String; uCodeFormat, uRepeatCount, uInactivityWaitTime,
hEvent, reserved0, reserved1: integer): integer; external 'uuirtdrv.dll';

and the code to call the function is as follows:

procedure TForm1.Button1Click(Sender: TObject);
var
drvHandle: integer;
szCode: String;
begin
drvHandle := uuirtOpen;
end;

The code just hangs on the uuirtopen line and doesn't return anything.

The supplied VB test application works fine by the way.

Thanks

John

John,

It might be something with the calling convention. Please email me at support@usbuirt.com and send me your test project and I'll look into it.

-Jon