VPF::Исходик для трафика - Форум программистов

Михалыч

Дата 19.3.2009, 21:19 (ссылка)

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

Загрузка ...

Опытный

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

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

Есть вот такой исходник,все нормально компилируется,но ни чего не отображает

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  FlibHandle: THandle;
  dwInOctets :DWORD;
  dwOutOctets    :DWORD;
  dwPhysAddrLen: DWORD;
  bDescr        : array[0..255] of Char;
  bPhysAddr    : array[0..7] of Byte;
  GetIfTable:         pointer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
type TMAC = array [0..7] of Byte;
  function GetMAC(Value: TMAC; Length: DWORD): String;
  var
    i: Integer;
  begin
    if Length = 0 then Result := '00-00-00-00-00-00' else
    begin
      Result := '';
      for i:= 0 to Length -2 do
        Result := Result + IntToHex(Value[i],2)+'-';
      Result := Result + IntToHex(Value[Length-1],2);
    end;
  end;
begin
FLibHandle := LoadLibrary('IPHLPAPI.DLL'); 
GetIfTable:=GetProcAddress(FLibHandle, 'GetIfTable');
Label1.Caption:='Входящий трафик: '+IntToStr(dwInOctets);
Label2.Caption:='Исходящий трафик: '+IntToStr(dwOutOctets);
Label3.Caption:='МАС-адрес: '+(GetMAC(TMAC(bPhysAddr),dwPhysAddrLen));
FreeLibrary(FLibHandle);
end;
end.

!
THandle

Модератор: Используйте подсветку кода!!!

--------------------

За частый поиск был забанен во всех известных поисковых системах.
Обиженных комодераторов: 1

THandle

Дата 19.3.2009, 21:41 (ссылка)

(голосов:1)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

Михалыч, первое что бросается в глаза:

Цитата(Михалыч @ 19.3.2009, 21:19

)

GetIfTable:=GetProcAddress(FLibHandle, 'GetIfTable');

Адрес берется, но не вижу чтоб функция вызывалась...

Poseidon

Дата 20.3.2009, 00:57 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

Михалыч, ты бы полностью изучил код Гаджика Зурко и его демо программы Network Traffic Monitor, т.к. в приведенном примере грубо выдернут только маленький кусок.

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

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