type=array [0..7] of Byte;
//в якості першого значення масив, друге значення,
//розмір даних в массівеGetMAC (Value: TMAC; Length: DWORD): string ;: integer; Length=0Result:= 00-00-00-00-00-00 := raquo ;; i:=0 to Length - 2 do:=Result + IntToHex (Value [i], 2) + - raquo ;;:=Result + IntToHex (Value [Length - 1], 2); ;;: THandle ;: TMibIfTable ;, Size: integer;, trafnormin, trafnormout: string; .Enabled:=false;// Припиняємо на всяк випадок таймер.Items.BeginUpdate; .Items.Clear;// Очищаємо список:=LoadLibrary ( IPHLPAPI.DLL );// Завантажуємо бібліотекуFLibHandle=0Exit;
@ GetIfTable:=GetProcAddress (FLibHandle, GetIfTable ); not Assigned (GetIfTable) (FLibHandle) ;;;
//:=SizeOf (Table); GetIfTable (@ Table, @ Size, false)=0//виконуємо функціюi:=0 to Table.dwNumEntries - 1 do//кол-во мережевих картListBox1.Items do//виводимо результати
//if string(GetMAC(TMAC(Table.Table[i].bPhysAddr),Table.Table[i].dwPhysAddrLen))lt;gt;laquo;00-00-00-00-00-00raquo;// Порівняння MAC адрес
//then ( Description: + string (Table.Table [i] .bDescr));// Найменування інтерфейсу ( MAC-adress: + string (GetMAC (TMAC (Table.Table [i] .bPhysAddr), Table.Table [i] .dwPhysAddrLen)));// МАС адреса
//переклад до нормальних одиницям Вхідного трафіку
trafbitin:=Table.Table [i] .dwInOctets;// Всього прийнято байт
trafnormin:=BytesToString (trafbitin);
//переклад до нормальних одиницям Вихідного трафіку
trafbitout:=Table.Table [i] .dwOutOctets;// Всього відправлено байт:=BytesToString (trafbitout);
////////////////////////////////////// скидання трафікаstop_traf=true :=trafbitin;:= 0,00 B raquo ;;:= 0,00 B raquo ;;;
//trafbitin gt;=trafbitold//новий трафік більше старого:=trafbitin-trafbitold;:=BytesToString (trafbitin);//новий трафік менше старого:=trafbitold;:=BytesToString (trafbitin); ;
///////////////////////////////////// ( In ( Byte): + trafnormin);// Всього прийнято байт ( Out (Byte): + trafnormout);// Всього відправлено байт
Add ( ------------------------------------------------- );// ;;;
//(s) ;. Items.Add (s);
//. Items.EndUpdate; (FLibHandle); 1.Enabled:=true;// Не забуваємо активувати таймер
end; TForm1.Button6Click (Sender: TObject); stop_traf=false then stop_traf:=truestop_traf:=false ;;
end.
