Thanks Remy, as always you've come up trumps!
JD
"Remy Lebeau (TeamB)" <no.spam@no.spam.com> wrote in message
news:4738d1b0$1@newsgroups.borland.com...
>
> "Jamie Dale" <jamie.dale@yahoo.com> wrote in message
> news:4738c737$1@newsgroups.borland.com...
>
>> Now the problem I just realised I have is that I have no way of
>> decrypting the command before the commandhandler takes over!
>>
>> If I use OnBeforeCommandHandler then the command is a const value.
>
> You must still be using Indy 9, because that value was changed to a 'var'
> in Indy 10 so that it can be modified before being processed.
>
>> I could decrypt it here (using LockBox components) but the
>> Command itself would still remain encrypted as I cannot pass
>> the decrypted value back.
>
> In Indy 9, you will have to set the server's CommandHandlersEnabled
> property to False and then use the OnExecute event to mimic what the
> server does internally to invoke the parsing. For example:
>
> procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
> var
> I, L: integer;
> LLine: string;
> begin
> L := CommandHandlers.Count-1;
> LLine := AThread.Connection.ReadLn;
> if LLine <> '' then
> begin
> // OnBeforeCommandHandler
> // modify LLine as needed here...
> try
> I := 0;
> while I <= L do
> begin
> with IdTCPServer1.CommandHandlers.Items[I] do
> begin
> if Enabled and Check(LLine, AThread) then
> begin
> Break;
> end;
> end;
> Inc(I);
> end;
> if I > L then
> begin
>
> // OnNoCommandHandler
> // send an error reply back...
> end;
> finally
> // OnAfterCommandHandler
> // do any post-processing here...
> end;
> end;
> end;
>
>
> Gambit
