Arno,
no I'm not using .net but I like to be complete.
Thanks for your support
rgds
jan
----- Original Message -----
From: "Arno Garrels" <[EMAIL PROTECTED]>
To: "ICS support mailing" <twsocket@elists.org>
Sent: Thursday, October 19, 2006 9:29 PM
Subject: Re: [twsocket] ICS V6. and W98/W95
> jan hek wrote:
>> remark : In the wndcontrol is a doubtful thing : (in the clr part)
>> procedure TIcsWndHandler.DeallocateHWnd.
>> that cannot be simply solved by commenting out..
>
> I see, sorry. But are you using .NET?
>
> So you can just leave it as it is, next version will hopefully
> fix it.
>
> In my personal copy I have a conditional define introduced
>
> Like this:
>
> {$IFNDEF NO_DEBUG_MSGS}
> if not PostMessage(FHandle, WM_CLOSE, 0, 0) then
> OutputDebugString(PChar(('PostMessage(WM_CLOSE) error #',
> GetLastError));
> {$ELSE}
> PostMessage(FHandle, WM_CLOSE, 0, 0);
> {$ENDIF}
>
>
> ---
> Arno Garrels [TeamICS]
> http://www.overbyte.be/eng/overbyte/teamics.html
>
>
>>
>> thanks and regards
>> jan
>>
>>
>> ----- Original Message -----
>> From: "Arno Garrels" <[EMAIL PROTECTED]>
>> To: "ICS support mailing" <twsocket@elists.org>
>> Sent: Thursday, October 19, 2006 8:13 PM
>> Subject: Re: [twsocket] ICS V6. and W98/W95
>>
>>
>>> jan hek wrote:
>>>
>>> Ah, now I remember, you can just out comment the stuff that calls
>>> OutputDebugString.
>>>
>>> ---
>>> Arno Garrels [TeamICS]
>>> http://www.overbyte.be/eng/overbyte/teamics.html
>>>
>>>
>>>
>>>> LS,
>>>>
>>>> The first error is "eedfadeH" on address 00000000
>>>> The 2nd error shown is: Range Check Error on the
>>>> OutputDebugString(PChar('Dispose ' + ClassName + ' ThreadID=' +
>>>> IntToStr(GetCurrentThreadId)));
>>>> line, of the procedure TIcsWndControl.Dispose(Disposing: Boolean).
>>>>
>>>> Perhaps now someone might know what's happening ?
>>>> ( W98, Delphi 7 program with TWSocketServer en TWSocket on the
>>>> form. )
>>>>
>>>> regards Jan.
>>>>
>>>>
>>>>
>>>> procedure TIcsWndControl.Dispose(Disposing: Boolean);
>>>> begin
>>>> OutputDebugString(PChar('Dispose ' + ClassName + ' ThreadID=' +
>>>> IntToStr(GetCurrentThreadId)));
>>>> if not Disposed then begin
>>>> if Disposing then begin
>>>> OutputDebugString('Free managed resources');
>>>> end;
>>>> OutputDebugString('Free unmanaged resources');
>>>> DeallocateHWnd; // Don't forget to deallocate the window
>>>> handle Disposed := TRUE;
>>>> 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
