VPF::Как разделить подсчёт трафика?

KgCoder

Дата 8.4.2008, 07:52 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 93
Регистрация: 6.3.2008
Где: KGstan

Репутация: нет
Всего: нет

Как разделить подчет трафика на сейчас, сегодня и всего?
Использую две процедуры для подсчета и сохраняю при выходе типа RecentCount := RecentCount + JustCounted;
Проблема в том что если открыть на две минуты (используя нет) и закрыть то при повторном открытии RecentCount удваивается даже если не заходил в нет...

Код


procedure OpenLibrary;
begin
  LibraryHandle:=LoadLibrary('IPHLPAPI.DLL' );
  if LibraryHandle=0 then Exit;
  @GetIfTable:=GetProcAddress(LibraryHandle,'GetIfTable');
  if not Assigned(GetIfTable) then begin
    FreeLibrary(LibraryHandle);
    Application.Terminate;
  end;
end;

procedure ShowStat;
var
i:integer;
begin
  BufferLenth:=SizeOf(LibraryTable^);
  New(LibraryTable);
  LibraryPointer:=LibraryTable;
  ErrorHandler:=GetIfTable(LibraryTable,@BufferLenth,False);
  if ErrorHandler<>NO_ERROR then
  begin
    ShowMessage('Произошла ошибка!');
    Exit;
  end;
  for i:=0 to TMibIfTable(LibraryTable^).dwNumEntries-1 do
  if Trim(TMibIfTable(LibraryTable^).Table[i].bDescr)=AdapterName then
  begin
    JustCounted:=TMibIfTable(LibraryPointer^).Table[i].dwOutOctets+TMibIfTable(LibraryPointer^).Table[i].dwInOctets;
  end;
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »