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
