[twsocket] HttpServer AnswerString problem

[Paul]

Hi,

I have made a new HttpConnection that add  some extra info and overrides the 
AnswerString procedure.
The new AnswerString is put in a try except block to trap connection errors.
This 'new' Answerstring is triggered, so the assignment to this AnswerString 
works ok.
The clients are not answerred immediately, but 30 secons after th request 
(answer deferring)

However, when a connection has disappeared, I still get an exception error when 
I call AnswerString,
so I still have to put my call to AnswerString in a try except block allthough 
it should be handled in TMyHttpConnection
I can't seem to trap it, I get an AV with all addesses shown as 00000000


Any ideas ?


Paul



type
  TMyHttpConnection = class(THttpConnection)
  protected
    FClientID       : integer;
  public
    procedure AnswerString(var   Flags    : THttpGetFlag;
                           const Status   : String;
                           const ContType : String;
                           const Header   : String;
                           const Body     : String); override;

    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end;

procedure TMyHttpConnection.AnswerString(var  Flags    : THttpGetFlag;
                                        const Status   : String;
                                        const ContType : String;
                                        const Header   : String;
                                        const Body     : String);
begin
  try
    inherited AnswerString(Flags, Status, ContType, Header, Body);
  except
  end
end;
-- 
To unsubscribe or change your settings for TWSocket mailing list
please goto http://www.elists.org/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be