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

← →
ArMellon © (2006-01-17 12:38) [0]

Как сделать подсчет траффика?
я так понимаю есть 2 способа
сделать свой прокси сервер или
ставить сниффер
у кого есть какая-нить инфа по теме
отзовитесть

← →
atruhin © (2006-01-17 14:25) [1]

Отозвался!
А что нужно то? Где, для чего, тех условия.

← →
sicilla © (2006-01-17 15:43) [2]

Есть компонента, тама все есть. Ищи. Как называется не скажу. Пример - моя программа Account XP.

← →
VirEx © (2006-01-17 18:04) [3]

Удалено модератором
Примечание: Дубль...

← →
VirEx © (2006-01-17 18:04) [4]

type
TMibIfRow = packed record
wszName : array[0..255] of WideChar;
dwIndex : DWORD;
dwType : DWORD;
dwMtu : DWORD;
dwSpeed : DWORD;
dwPhysAddrLen : DWORD;
bPhysAddr : array[0..7] of Byte;
dwAdminStatus : DWORD;
dwOperStatus : DWORD;
dwLastChange : DWORD;
dwInOctets : DWORD;
dwInUcastPkts : DWORD;
dwInNUCastPkts : DWORD;
dwInDiscards : DWORD;
dwInErrors : DWORD;
dwInUnknownProtos : DWORD;
dwOutOctets : DWORD;
dwOutUCastPkts : DWORD;
dwOutNUCastPkts : DWORD;
dwOutDiscards : DWORD;
dwOutErrors : DWORD;
dwOutQLen : DWORD;
dwDescrLen : DWORD;
bDescr : array[0..255] of Char;
end;
TMibIfArray = array [0..512] of TMibIfRow;
PMibIfRow = ^TMibIfRow;
PmibIfArray = ^TmibIfArray;

type
TMibIfTable = packed record
dwNumEntries : DWORD;//кол-во соединений
Table : TMibIfArray;
end;
PMibIfTable = ^ TMibIfTable;

var
Form1: TForm1;
GetIfTable:function(pIfTable: pMibIfTable; pdwSize:puLONG; bOrder:boolean):DWORD;stdcall;
Table : tMibIfTable;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
h:THandle;
i,Size:integer;
buff:array [0..1024] of byte;
begin
h := LoadLibrary("IPHLPAPI.DLL"); //Загружаем библиотеку
if h = 0 then Exit;
@GetIfTable := GetProcAddress(h, "GetIfTable");
Size:=SizeOf(Table);
GetIfTable(@Table, @Size, False );
memo1.Lines.Clear;
for i:=0 to Table.dwNumEntries-1 do begin
memo1.Lines.Add(Table.Table[i].bDescr);

memo1.Lines.Add(format("MAC: %d.%d.%d.%d.%d.%d.%d.%d.",
[Table.Table[i].bPhysAddr[0],
Table.Table[i].bPhysAddr[1],
Table.Table[i].bPhysAddr[2],
Table.Table[i].bPhysAddr[3],
Table.Table[i].bPhysAddr[4],
Table.Table[i].bPhysAddr[5],
Table.Table[i].bPhysAddr[6],
Table.Table[i].bPhysAddr[7]
]));
memo1.Lines.Add("in: "+inttostr(Table.Table[i].dwInOctets)+" byte");
memo1.Lines.Add("out: "+inttostr(Table.Table[i].dwOutOctets)+" byte");
memo1.Lines.Add("all: "+inttostr(Table.Table[i].dwInOctets+Table.Table[i].dwOutOctets)+" byte");

memo1.Lines.Add("");
end;

FreeLibrary(h);
end;

← →
sicilla © (2006-01-17 19:09) [5]

VirEx: чето-как-то сложно...

Исходный текст программы на Delphi5 7кб для учета трафика
и выдачи отчета по дням, но без прокси и сниффера
http://programania.com/ti.zip

Подсчет траффика Найти похожие ветки