Has anyone used the API in Delphi?

[johndon]

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

[jrhees]

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