> // On a une superbe fenętre. Dans les informations associées, > enregistre la > // référence ŕ notre objet. Elle permettra plus tard d'invoquer la > // méthode WndProc de gestion des messages envoyés ŕ la fenętre
// We have a window. In the associated data, we record a reference // to our object. Thjis will later allow to call the WndProc method to // handle messages sent to the window. -- [EMAIL PROTECTED] The author of the freeware multi-tier middleware MidWare The author of the freeware Internet Component Suite (ICS) http://www.overbyte.be ----- Original Message ----- From: "Primož Gabrijelčič" <[EMAIL PROTECTED]> To: "'ICS support mailing'" <[email protected]> Sent: Sunday, June 03, 2007 11:26 AM Subject: Re: [twsocket] ICS v5 compatibility / WndProc handling > Can you please also translate the > > // On a une superbe fenętre. Dans les informations associées, > enregistre la > // référence ŕ notre objet. Elle permettra plus tard d'invoquer la > // méthode WndProc de gestion des messages envoyés ŕ la fenętre > > in TIcsWndHandler.AllocateHWnd? > > I tried to understand it with a little help from the Babelfish, but its > translation was less than satisfactory. > > Best regards, > Primoz > >> -----Original Message----- >> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] >> On Behalf Of Francois PIETTE >> Sent: Sunday, June 03, 2007 10:25 AM >> To: ICS support mailing >> Subject: Re: [twsocket] ICS v5 compatibility / WndProc handling >> >> > My vote is pro, depends on Francois, he's the (busy) boss ;-) >> >> OK. >> Also update the comment in french: >> // Les exceptions doivent etre gérées, sinon l'application sera >> // liquidée des qu'une exception se produit ! >> >> // All exceptions must be handled otherwise the application >> // will terminate as soon as an exception is raised. >> >> >> -- >> [EMAIL PROTECTED] >> The author of the freeware multi-tier middleware MidWare >> The author of the freeware Internet Component Suite (ICS) >> http://www.overbyte.be >> >> >> ----- Original Message ----- >> From: "Arno Garrels" <[EMAIL PROTECTED]> >> To: "ICS support mailing" <[email protected]> >> Sent: Saturday, June 02, 2007 8:19 PM >> Subject: Re: [twsocket] ICS v5 compatibility / WndProc handling >> >> >> > Primož Gabrijelcic wrote: >> >> It works fine in our applications. >> > >> > My vote is pro, depends on Francois, he's the (busy) boss ;-) >> > >> >> >> >> Primoz >> >> >> >> -----Original Message----- >> >> From: [EMAIL PROTECTED] [mailto:twsocket- >> >> [EMAIL PROTECTED] On >> >> Behalf Of Arno Garrels >> >> Sent: Saturday, June 02, 2007 8:08 PM >> >> To: ICS support mailing >> >> Subject: Re: [twsocket] ICS v5 compatibility / WndProc handling >> >> >> >> Looks usefull, though not tested yet. Francois, what do you think? >> >> >> >> Primož Gabrijelcic wrote: >> >>> Hello everybody (and especially Francois). >> >>> >> >>> I have this legacy code that was written using ICS v5. Deep inside >> >>> some >> >>> message processing (specifically RAS handling) is done in >> overridden >> >>> WndProc >> >>> methods. >> >>> >> >>> When I switched to ICS v6, this code broke. This was mainly >> expected >> >>> - ICS >> >>> v6 cannot know which socket's WndProc it should call when it >> receives >> >>> some >> >>> non-internal (not registered via AllocateMsgHandler) message after >> >>> all. >> >>> Still, I had to make old code work with the new message dispatch >> >>> system and >> >>> that's what I did: >> >>> >> >>> I defined new event handler in the TIcsWndHandler: >> >>> >> >>> TIcsOnMessageEvent = procedure(Sender: TObject; var MsgRec: >> >>> TMessage) of >> >>> object; //Gp >> >>> >> >>> TIcsWndHandler = class(TObject) >> >>> FOnMessage : TIcsOnMessageEvent; >> >>> ... >> >>> property OnMessage: TIcsOnMessageEvent read FOnMessage write >> >>> FOnMessage; >> >>> //Gp >> >>> >> >>> In the TIcsWndHandler.WndProc, I call OnMessage if specified: >> >>> >> >>> procedure TIcsWndHandler.WndProc(var MsgRec: TMessage); >> >>> var >> >>> Dummy : Boolean; >> >>> begin >> >>> try >> >>> with MsgRec do begin >> >>> if (Msg >= FMsgLow) and >> >>> (Msg < (FMsgLow + WH_MAX_MSG)) and >> >>> Assigned(FMsgMap[Msg - FMsgLow]) then >> >>> FMsgMap[Msg - FMsgLow].WndProc(MsgRec) >> >>> else begin >> >>> if assigned(OnMessage) then //Gp >> >>> OnMessage(Self, MsgRec); //Gp >> >>> if Result = 0 then //Gp >> >>> Result := DefWindowProc(Handle, Msg, wParam, >> >>> lParam); >> >>> end; >> >>> end; >> >>> except >> >>> // Les exceptions doivent etre gérées, sinon l'application >> >>> sera >> >>> // liquidée dcs qu'une exception se produit ! >> >>> on E:Exception do >> >>> TriggerBgException(E, Dummy); >> >>> end; >> >>> end; >> >>> >> >>> This way, I can catch all messages received by the TIcsWndHandler >> and >> >>> call >> >>> appropriate legacy code inside my OnMessage handler. >> >>> >> >>> I think this is a simple extension that adds much flexibility and >> >>> that I >> >>> should be included in the base code. >> >>> >> >>> What do others think? >> >>> >> >>> Best regards, >> >>> Primoz >> >> -- >> >> 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 > > -- > 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
