Re: [twsocket] HttpServ Invalid class typecast

2006-02-24 Thread Paul 
> Have you assigned TMyHttpConnection to property ClientClass?


Grrr.. forgot that


Thanks

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

Re: [twsocket] HttpServ Invalid class typecast

2006-02-24 Thread Francois Piette 
> Is there anything changed between ICS V3 and V5 ?

I'm not aware of such change.
You can easily have a look at the source code.

--
[EMAIL PROTECTED]
http://www.overbyte.be


- Original Message - 
From: "Paul" <[EMAIL PROTECTED]>
To: 
Sent: Friday, February 24, 2006 11:00 AM
Subject: [twsocket] HttpServ Invalid class typecast


> I get an 'Invalid class typecast' error in HttpServClientConnect event.
> Is there anything changed between ICS V3 and V5 ?
> The same worked on V3
> 
> 
> Paul
> 
> 
> procedure TForm1.HttpServClientConnect(Sender, Client: TObject;
>  Error: Word);
> var
>   ClientCnx: TMyHttpConnection;
> begin
>   ClientCnx:= Client as TMyHttpConnection;
> end;
> 
>   TMyHttpConnection = class(THttpConnection)
>   protected
> ClientID   : integer;
> ConnectionStart : int64;
>   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;
> 
> 
> constructor TMyHttpConnection.Create(AOwner: TComponent);
> begin
>   inherited create(AOwner);
>   ComponentOptions := ComponentOptions + [wsoNoReceiveloop];  
>   ClientID:= InterlockedIncrement(NClientID);
> 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

Re: [twsocket] HttpServ Invalid class typecast

2006-02-24 Thread Arno Garrels 
Paul wrote:
> I get an 'Invalid class typecast' error in HttpServClientConnect event.

Have you assigned TMyHttpConnection to property ClientClass?

Arno Garrels


> Is there anything changed between ICS V3 and V5 ?
> The same worked on V3
> 
> 
> Paul
> 
> 
> procedure TForm1.HttpServClientConnect(Sender, Client: TObject;
>  Error: Word);
> var
>   ClientCnx: TMyHttpConnection;
> begin
>   ClientCnx:= Client as TMyHttpConnection;
> end;
> 
>   TMyHttpConnection = class(THttpConnection)
>   protected
> ClientID   : integer;
> ConnectionStart : int64;
>   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;
> 
> 
> constructor TMyHttpConnection.Create(AOwner: TComponent);
> begin
>   inherited create(AOwner);
>   ComponentOptions := ComponentOptions + [wsoNoReceiveloop];
>   ClientID:= InterlockedIncrement(NClientID);
> 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