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
