Found the problem.
I have to nil the HttpConnection in the destructor.

Paul

----- Original Message ----- 
From: "Paul" <[EMAIL PROTECTED]>
To: "ICS support mailing" <twsocket@elists.org>
Sent: Tuesday, March 28, 2006 7:24 PM
Subject: Re: [twsocket] HttpServer AnswerString problem


> I've some more testing.
>
> It works fine when the connection disappeared, but not when a client has
> Aborted his request.
>
> What's the difference ?
>
>
> Paul
>
>
>
> ----- Original Message ----- 
> From: "Paul" <[EMAIL PROTECTED]>
> To: <twsocket@elists.org>
> Sent: Tuesday, March 28, 2006 6:24 PM
> Subject: [twsocket] HttpServer AnswerString problem
>
>
>> 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
>>
>>
>
> -- 
> 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
>
> 

-- 
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

Reply via email to