|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
04.05.2009, 17:58 | #1 |
Delphi 7
Форумчанин
Регистрация: 10.02.2009
Сообщений: 354
|
Помогите с кодом (почему не работает ТРАФИК)
ВОТ ИСХОДНИК
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Timer1: TTimer; Button1: TButton; Label1: TLabel; Label2: TLabel; Label3: TLabel; 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(FLibHand le, 'GetIfTable'); Label1.Caption:='Входящий трафик: '+IntToStr(dwInOctets); Label2.Caption:='Исходящий трафик: '+IntToStr(dwOutOctets); Label3.Caption:='МАС-адрес: '+(GetMAC(TMAC(bPhysAddr),dwPhysAdd rLen)); FreeLibrary(FLibHandle); end; end.
Дайте мне власть и я переверну ваш мир!...
|
04.05.2009, 18:11 | #2 |
Старожил
Регистрация: 28.01.2009
Сообщений: 21,000
|
хм...и это весь код да?
он и не должен работать. Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Плииз!!! помогите! Не могу понять почему не работает! (Паскаль) | Викуська_ | Помощь студентам | 5 | 21.04.2009 20:37 |
Почему не работает тег align=right?valign работает а align нет! | aviv | HTML и CSS | 5 | 21.01.2009 17:46 |
почему не работает | domovoi | Общие вопросы Delphi | 1 | 15.10.2008 18:42 |