Does anyone have an example of a working External modules -  functions or procedures to supplement the information in the manual?

Roy Lambert

PS I mean in a dll, not an sql one

Roy Lambert

Playing around I created


function  SpacelessCompare(const StrIn, StrComp:string):boolean;
begin
showmessage(StrIn+' ... '+StrComp);
end;

The problem is it just shows StrIn for the first record in the table, for the number of times there are rows in the table.

I'm passing values to this function usingSpacelessCompare( Params[0].AsString, Params[1].AsString);

help...

Roy Lambert

I think I have it sused apart from the fact that it doesn't work. What's being passed in as Params.FindParam('Phone').AsString is always record 1

function SpacelessCompare(const StrFld, StrComp: string): boolean;
begin
Result := StringReplace(StrFld, ' ', '', [rfReplaceAll]) = StringReplace(StrComp, ' ', '', [rfReplaceAll]);
end;

procedure TEDBExternalModule1.EDBExternalModuleRoutine(
const RoutineName: string);
begin
if LowerCase(RoutineName) = 'spacelesscompare' then Params.FindParam('Result').AsBoolean := SpacelessCompare(Params.FindParam('Phone').AsString, Params.FindParam('TestAgainst').AsString);
end;

Roy Lambert

Roy,

<< I think I have it sused apart from the fact that it doesn't work. What's
being passed in as Params.FindParam('Phone').AsString is always record 1 >>

See here:

http://www.elevatesoft.com/scripts/newsgrp.dll?action=openmsg&group=16&msg=3469&page=1#msg3469

--
Tim Young
Elevate Software
www.elevatesoft.com

Tim


Roll on 1.07

Roy Lambert