Инди, дисконнект вызывает AV

← →
[ВладОшин] © (2013-11-14 10:29) [0]

procedure TIdTelnet.DoOnDataAvailable; begin if Assigned(FOnDataAvailable) then begin OnDataAvailable(SELF,FTelnetThread.FRecvData); <-- тут

а потому что до этого FTelnetThread был прибит
procedure TIdTelnet.Disconnect; begin if Assigned(FTelnetThread) then begin FTelnetThread.Terminate;

попробовал перед отключением снять обработчик с OnDataAvailable
FIdTelnet.OnDataAvailable := nil; FIdTelnet.Disconnect;

так полный код процедуры, блин такой :)
procedure TIdTelnet.DoOnDataAvailable; begin if Assigned(FOnDataAvailable) then begin OnDataAvailable(SELF,FTelnetThread.FRecvData); // т.е. если не тут end else begin raise EIdTelnetServerOnDataAvailableIsNil.Create(RSTELNETSRVOnDataAvailableIsNil); // то тут точно словишь исключение end; end;

← →
[ВладОшин] © (2013-11-14 10:36) [1]

помню года 2 назад воевал с этим.
Открыл исходники постоянно работающей за все это время программы - там я ничего делал.. не гасил никакие ошибки..
но оно работает, блин, как-то. Без ошибок.

ну это лирика
Чего делать то посоветуете (кроме уйти на др.компоненты)

← →
[ВладОшин] © (2013-11-14 11:08) [2]

> но оно работает, блин, как-то. Без ошибок.

во..
Без IDE и сейчас работает без ошибок..

Ошибка только из-под IDE регистрируется получается

← →
RWolf © (2013-11-14 11:15) [3]

procedure TDM.IdTCPServer1Exception(AThread: TIdPeerThread; AException: Exception); begin if AException is EIdConnClosedGracefully then begin end; end;

← →
[ВладОшин] © (2013-11-14 11:19) [4]

RWolf © (14.11.13 11:15) [3]

а вот тут
procedure TIdThread.DoException (AException: Exception);
Begin
if Assigned(FOnException) then begin
FOnException(self, AException);
end;
т.е. съел он его, походу, да и всех делов

← →
[ВладОшин] © (2013-11-14 11:21) [5]

> TIdThread.DoException

вот сейчас что-то вспоминаю, что находил 2 года назад это.
и вроде как понял, почему, но забыл

← →
Eraser © (2013-11-14 18:21) [6]

> [ВладОшин] © (14.11.13 10:29)

какая версия?

← →
[ВладОшин] © (2013-11-14 20:37) [7]

Indy9Demos_26Oct04.zip
http://www.projectindy.org/DemoDownloads/Indy9Demos_26Oct04.zip

← →
[ВладОшин] © (2013-11-14 20:41) [8]

а не, это же демка

а где посмотреть?

вот что в глобалах
unit IdGlobal;
interface
{
2002-04-02 - Darren Kosinski (Borland) - Have SetThreadPriority do nothing on Linux.
2002-01-28 - Hadi Hariri. Fixes for C++ Builder. Thanks to Chuck Smith.
2001-12-21 - Andrew P.Rybin
- Fetch,FetchCaseInsensitive,IsNumeric(Chr),PosIdx,AnsiPosIdx optimization
2001-Nov-26 - Peter Mee
- Added IndyStrToBool
2001-Nov-21 - Peter Mee
- Moved the Fetch function"s default values to constants.
- Added FetchCaseInsensitive.
11-10-2001 - J. Peter Mugaas
- Merged changes proposed by Andrew P.Rybin}

← →
[ВладОшин] © (2013-11-14 20:42) [9]

а, нашел
gsIdProductName = "Indy"; {do not localize}
gsIdVersion = "9.00.10"; {do not localize}

← →
Eraser © (2013-11-14 20:54) [10]

> [ВладОшин] © (14.11.13 20:42) [9]

это древность, которой уже почти 10 лет наверное.

← →
Eraser © (2013-11-14 20:55) [11]

> Чего делать то посоветуете (кроме уйти на др.компоненты)

уйти на самую свежую версию компоненты.

Да ну..
В общем, клонировал модуль этого класса, да переписал эту процедурку
Теперь у меня IdTelnet и IdTelnet2
и второй не глючит :)

не-а, глючит
но по-другому.

собака :)

> Eraser © (14.11.13 20:55) [11]
>
>
> > Чего делать то посоветуете (кроме уйти на др.компоненты)
>
> уйти на самую свежую версию компоненты.

Серп для фабержей предоставишь бесплатно?
И не факт что после такой мучительной операции автору будет хорошо.
Переход с 9-й Инди на 10-ю без веских причин для такого перехода можешь предложить только ты.
:)

У нас подобная фигня в TIBEvent - в Destroy убивается слушающий поток, и до окончания деструктора срабатывает событие на database, по которому Event отключается.
А поток-то уже тю-тю, и появляется AV.

Инди, дисконнект вызывает AV Найти похожие ветки