jan hek wrote:
> Arno,
> this does the trick. I tried to do it as good as possible, there
> where 2 files involved
> overbyteICS-wndcontrol and -TnCnx
Just in OverbyteIcsWndControl.pas is enough.
>
> remark : In the wndcontrol is a doubtful thing : (in the clr part)
> procedure TIcsWndHandler.DeallocateHWnd.
> that cannot be simply solved by commenting out..
procedure TIcsWndControl.DeallocateHWnd;
begin
if FHandle = 0 then
Exit; // Already done
GWndHandlerPool.Lock;
try
FreeMsgHandlers;
if Assigned(FWndHandler) and (FWndHandler.FMsgCnt <= 0) then
GWndHandlerPool.FreeWndHandler(FWndHandler);
FHandle := 0;
FWndHandler := nil;
finally
GWndHandlerPool.UnLock;
end;
end;
I cannot see a call to OutputDebugString in there.
---
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
