Indy и подсчет трафика в компоненте TIdTCPServer ...

← →
-Mag- (2003-10-04 00:18) [0]

Здравствуйте All :)
пишу порогу типа
procedure TDM.SrvExecute(AThread: TIdPeerThread);
begin
with AThread.Connection do begin
try
ReadLn ....
Writeln ...
except end;
end;
end;

Требуеться в конце соединения посчитать кол-во принятых отправленых байт(кбайт) ...
Подскажите ПЛИЗ как ?
Заранее спасибо, Mag[C]mto.ru

← →
-Mag- (2003-10-05 01:14) [1]

Никто не знает ? :(

← →
Reindeer Moss Eater (2003-10-06 09:44) [2]

var RecvBytes, SentBytes : Cardianl;
procedure TDM.SrvExecute(AThread: TIdPeerThread);
begin
with AThread.Connection do begin
try
MyStr:=ReadLn ....
Inc(RecvBytes,Length(MyStr));
Writeln(MyStr) ...
Inc(SentBytes,Length(MyStr));
except
end;
end;
end;

← →
-Mag- (2003-10-06 20:16) [3]

Уважаемый Reindeer Moss Eater меня интересует эта процедура на 6 Delphi ... а он RecvBytes и SentBytes незнает :(

← →
-Mag- (2003-10-06 20:17) [4]

Да по определенным соображения я не могу перейти на другой Delphi или другие компоненты Indy кроме тех, что идут в составе Delphi 6.

← →
Reindeer Moss Eater (2003-10-07 08:57) [5]

var RecvBytes, SentBytes : Cardianl;

procedure TDM.SrvExecute(AThread: TIdPeerThread);
....

← →
-Mag- (2003-10-07 22:58) [6]

Сорри Reindeer Moss Eater ТОРМОЖУ !!! :)
Спасибо, об этом я и не подумал, век живи а всегда учись, однако хотелось бы прямо из Socket"а вытаскивать эти данные а также при обрыве связи ... хотяв принципе тоже можно :)

Сеньку...

Indy и подсчет трафика в компоненте TIdTCPServer ... Найти похожие ветки