Подсчёт трафика

[Альберт]

Как подсчитывать трафик от каждого IP-адреса отдельно

[CoDeR]

Как подсчитывать полученный и отправленный трафик с помощью idHTTP?

[Pitbull]

ну, я такого не делал, есл чесно, но думаю, что идея такова:

procedure TForm1.Button1Click(Sender: TObject);
var
inTr:integer;
my_trafic:TmemoryStream;
begin
my_trafic:=TmemoryStream.create;
try
IdHttp1.get('http:\\www.mail.ru',my _trafic);
Memo1 .Lines .add(IdHTTP1 .ResponseText);
inTr:=my_trafic .Size;
Memo1 .Lines .add(intToStr(inTr div 1024));
finally
my_trafic.free;
idHTTP1.disconnect;
end;
end;
Думаю, что так...тут нужно пофантазировать...
Можно и в буфер загонять....