| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Indy и подсчет трафика в компоненте TIdTCPServer ... [D6, Win95/98, WinME, NT4, Win2k, WinXP]
-Mag- © (2003-10-04 00:18:00)
Здравствуйте 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-07 22:58:00) [1]
Сорри Reindeer Moss EaterТОРМОЖУ !!! :)
Спасибо, об этом я и не подумал, век живи а всегда учись, однако хотелось бы прямо из Socket"а вытаскивать эти данные а также при обрыве связи ... хотяв принципе тоже можно :)
Сеньку...
Reindeer Moss Eater (2003-10-07 08:57:00) [2]
varRecvBytes, SentBytes : Cardianl;
procedureTDM.SrvExecute(AThread: TIdPeerThread);
....
-Mag- (2003-10-06 20:17:00) [3]
Да по определенным соображения я не могу перейти на другой Delphi или другие компоненты Indy кроме тех, что идут в составе Delphi 6.
-Mag- (2003-10-06 20:16:00) [4]
Уважаемый Reindeer Moss Eaterменя интересует эта процедура на 6 Delphi ... а он RecvBytes и SentBytes незнает :(
Reindeer Moss Eater (2003-10-06 09:44:00) [5]
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-05 01:14:00) [6]
Никто не знает ? :(
| |
