Subject Remote Access to my UDF
Author robert_p_levy
Hello,

I'm having a problem with remote access to a UDF using the latest
Firebird. I *can* access FreeUDFLib.dll functions both remotely
(referring to the ip address of the server where the UDF is included
in the UDF directory) and also locally. However a dll that I wrote in
Delphi 5 is only being recognized locally. When I refer to the remote
install of functions in the dll I wrote, I get the message ('Invalid
request BLR at...') for not being able to find my file. Is there
something special one must do to get a UDF file to be usable remotely?
I didn't see anything special about that in FreeUDFLib.dll and it
works fine remotely.

Here is the code of my library HopeUDFLib for reference:
(Thanks in advance for any ideas on how to solve this problem!-Rob)

library HopeUDFLib;

uses
ib_util,
SysUtils,
Classes,
StringUnit in 'StringUnit.pas';

{$R *.RES}

exports
InStr,
IsNumeric,

begin
end.

----------------------------

unit StringUnit;

interface

uses
ib_util,
SysUtils,
Classes;

function InStr(Str,charinstr:PChar):Integer; cdecl; export;
function IsNumeric(p:PChar):Integer; cdecl; export;

implementation

function InStr(Str,charinstr:PChar):Integer;
var i: integer;
begin
i := 0;
Result := -1;
if (str = nil) then result := -1
else
if str = '' then Result := -1
else
while str[i]<>#0 do
begin
if str[i] = charinstr then
begin
Result := i;
Exit;
end;
inc(i);
end;
end;


function IsNumeric(p:PChar):Integer;
var i:Integer;
begin
i := 0;
Result := 1;
while p[i]<>#0 do
begin
if ((Ord(p[i]) < 46) or
(Ord(p[i]) > 57)) then
begin
Result := -1;
Exit;
end;
inc(i);
end;
end;


end.