 |
Свойства компонента Button
|
|
|
|
Содержание
1. Аналитическая часть
Глобальная компьютерная сеть
Доменная организация сети
IP адрес
. Проектная часть
Техническое задание
Средства проектирования
Среда разработки Delphi
История языка
Назначение Delphi
Целевая платформа
Используемые компоненты
Компонент Button
Свойства компонента Button
События компонента Button
Исходные коды
Компонент Edit
Свойства компонента Edit
События компонента Edit
Исходный код
Компонент Label
Свойства компонента Label
События компонента Label
Исходные коды
Компонент Bevel
Компонент ListBox
Свойство Sorted
Исходные коды
Компонент Timer
Исходный код
Тестирование программы
Литература
Приложение
Аналитическая часть
Глобальная компьютерная сеть
- глобальная компьютерная сеть, охватывающая весь мир. Сегодня Internet имеет около 15 миллионов абонентов в более чем 150 странах мира. Ежемесячно размер сети увеличивается на 7-10%. Internet образует как бы ядро, обеспечивающее связь различных информационных сетей, принадлежащих различным учреждениям во всем мире, одна с другой. Цифровые адреса - и это стало понятно очень скоро - хороши при общении компьютеров, а для людей предпочтительнее имена. Неудобно говорить, используя цифровые адреса, и ещё труднее запоминать их. Поэтому компьютерам в Internet присвоены имена. Все прикладные программы Internet позволяют использовать имена систем вместо числовых адресов компьютеров.
Конечно, использование имён имеет свои недостатки. Во-первых, нужно следить, чтобы одно и то же имя не было случайно присвоено двум компьютерам. Кроме того, необходимо обеспечить преобразование имён в числовые адреса, ведь имена хороши для людей, а компьютеры всё-таки предпочитают числа. Вы можете указать программе имя, но у неё должен быть способ поиска этого имени и преобразования его в адрес.
|
|
|
На этапе становления, когда Internet была маленькой общностью, использовать имена было легко. Центр сетевой информации (NIC) создавал специальную службу регистрации. Вы посылали заполненный бланк (конечно, электронными средствами), и NIC вносил Вас в свой список имён и адресов. Этот файл, называемый hosts (список узловых компьютеров), регулярно рассылался на все компьютеры сети. В качестве имён использовались простые слова, каждое из которых обязательно являлось уникальным. Когда Вы указывали имя, Ваш компьютер искал его в этом файле и подставлял соответствующий адрес.
Когда Internet разрослась, к сожалению, размер этого файла тоже увеличился. Стали возникать значительные задержки при регистрации имён, поиск уникальных имён усложнился. Кроме того, на рассылку этого большого файла на все указанные в нём компьютеры уходило много сетевого времени. Стало очевидно, что такие темпы роста требуют наличия распределённой интерактивной системы. Эта система называется "доменной системой имён" (Domain Name System, DNS).
Доменная организация сети
Каждый компьютер, подключенный к Интернет, должен быть уникально описан в глобальной сети. Эта структура подобна структуре каталогов в компьютере: есть домены самого верхнего уровня, есть вложенные в них домены, которые, в свою очередь, могут содержать другие домены. Имена доменов самого верхнего уровня строго распределены. Существует два типа таких имен: по типу организации и по стране. Имена по типу организации (com - коммерческая организация, edu -учебная, gov - правительственная и т.д.), были исторически первыми, сейчас практически не присваиваются и, в основном характерны для организаций в США.
Обычно адрес, присваиваемый компьютеру, будет включать в себя в качестве имени самого " верхнего" домена символы, определяющие стран пребывания. Российские компьютеры имеют адреса, заканчивающиеся на ru или su. Далее, уже в рамках данной страны, организации провайдеры регистрируют свои группы имен - домены. Имя каждого домена отделяется при написании от другого имени точкой, причем имя домена верхнего уровня пишется справа. Так, адрес сервера газеты "Уральский рабочий" - это ur.etel.ru. В этом адресе ru - обозначение страны, etel - домен, зарегистрированный провайдером (Екатеринбургским телеграфом), ur - имя компьютера в газете. Если предоставление услуг осуществляется через несколько организаций, то имя компьютера может состоять из большего числа групп символов, хотя на практике редко встретишь имена, включающие в себя больше пяти групп. Доменное имя в компьютере уникально. Но оно еще ничего не говорит о местонахождении компьютера. Вы можете зарегистрировать на себя новый домен и в дальнейшем, при переезде из города в город сохранять за собой эти имена. Будет меняться только организации, которые осуществляют ваш выход в Интернет, регистрируя эти имена в глобальной сети.
|
|
|
IP адрес
компьютер алгоритм доменный delphi
Второй параметр, который будет уникально определять ваш компьютер в мире - это IP адрес. IP адрес - это четыре числа, каждое из которых может принимать значение от 0 до 255. Например IP - адрес ftp-сервера фирмы Microsoft (то есть сервера, с которого можно получить файлы по сети) 189.105.232.1. Существуют специальные правила, которые определяют адрес, присваиваемый компьютеру. Не вдаваясь в ненужные подробности, отметим только, что этот цифровой адрес уникален, то есть в мире нет второго компьютера с таким же адресом. В чем причина существования двух типов адресов? Во-первых, человеку проще работать с символьным адресом, чем запоминать сочетания цифр.
Обычно имена доменов даются по имени организаций, так что - даже не зная цифрового адреса фирмы - можно предположить о доменном адресе. Кроме того, сохранение " за собой " позволяет не беспокоиться, что в случае возможных переездов придется организовывать новую рекламу доменного адреса. Во-вторых, IP адреса обычно получают на себя фирмы, предоставляющие услуги выхода в Интернет. Эти адреса (один или несколько) они закрепляют за конкретным пользователем, который может иметь "свое", собственное доменное имя. После определенной процедуры регистрации пользователь может начинать работу в Интернет. Процедура полностью автоматизирована, но необходимо некоторое время (около суток), чтобы сервера во всем мире произвели нужные записи о пользователе. Программное обеспечение на компьютерах, предоставляющих услуги Internet, обеспечивает нахождение по IP-адресу имени компьютера и наоборот. Заметим только, что не все компьютеры, имеющие IP-адрес, имеют зарегистрированное в глобальной сети свое доменное имя.
|
|
|
Проектная часть
Техническое задание
Создание программы "Domain name,IP" для технологического института для определения IP-адресов и доменных имен в сети института.
Программа должна быть реализована на языке программирования Delphi.
Средства проектирования
Для проектирования программного продукта была выбрана среда разработки Delphi, так как она подходит для решения данной задачи и указана как средство разработки самим заказчиком.
При помощи Delphi с минимальными затратами можно создавать различные приложения под самую распространённую операционную систему Windows. Поскольку в основе Delphi лежит концепция быстрого создания приложений - RAD.
В основе систем быстрой разработки (RAD-систем, Rapid Application Development - среда быстрой разработки приложений) лежит технология визуального проектирования и событийного программирования, суть которой заключается в том, что среда разработки берет на себя большую часть рутинной работы, оставляя программисту работу по конструированию диалоговых окон и функций обработки событий.
Среда разработки Delphi
Delphi - это среда быстрой разработки, в которой в качестве языка программирования используется язык Delphi. Язык Delphi - строго типизированный объектно-ориентированный язык, в основе которого лежит хорошо знакомый программистам Object Pascal.
Delphi - это комбинация нескольких важнейших технологий:
|
|
|
высокопроизводительный компилятор в машинный код;
объектно-ориентированная модель компонент;
визуальное (а, следовательно, и скоростное) построение приложений из программных прототипов;
масштабируемые средства для построения баз данных;
История языка
, ранее известный как Object Pascal, разработанный фирмой Borland и изначально реализованный в её пакете Borland Delphi, от которого и получил в 2003 году своё нынешнее название, результат развития языка Turbo Pascal, который, в свою очередь, развился из языка Pascal. Pascal был полностью процедурным языком, Turbo Pascal, начиная с версии 5.5, добавил в Pascal объектно-ориентированные свойства.
версия 1 была предназначена для разработки под 16-ти разрядную платформу Win16;
версии начиная со второй компилируют программы под 32-х разрядную платформу Win32;
Вместе с 6-й версией Delphi вышла совместимая с ним по языку и библиотекам среда Kylix, предназначенная для компиляции программ под операционную систему Linux;
Версия 8 способна генерировать байт-код исключительно для платформы.NET. Это первая среда, ориентированная на разработку мультиязычных приложений (лишь для платформы.NET);
Последующие версии (обозначаемые годами выхода, а не порядковыми номерами, как это было ранее) могут создавать как приложения Win32, так и байт-код для платформы.NET;for.NET - среда разработки Delphi, а так же язык Delphi (Object Pascal), ориентированные на разработку приложений для NET.
Назначение Delphi
Назначение Delphi - быстрая разработка приложений. С ее помощью можно быстро и качественно создавать любые программы: от простейшего калькулятора до многоуровневой системы управления предприятием.
Использование Delphi позволяет создавать как самые простые приложений, на разработку которых требуется 2-3 часа, так и серьезные корпоративные проекты, предназначенных для работы десятков и сотен пользователей. Вследствие чего Delphi предназначен не только для программистов-профессионалов, им также могут пользоваться и учителя, и врачи, и преподаватели ВУЗов, и бизнесмены, все те, кто используют компьютер с чисто прикладной целью, то есть для того, чтобы быстро решить какие-то свои задачи, не привлекая для этого программистов со стороны.
Целевая платформа
Изначально язык был предназначен исключительно для разработки приложений Microsoft Windows, затем был реализован также для платформ GNU/Linux (как Kylix), однако после выпуска в 2002 году Kylix 3 его разработка была прекращена, и, вскоре после этого, было объявлено о поддержке Microsoft.NET. При этом высказывались предположения, что эти два факта взаимосвязаны.
С помощью Delphi создаются приложения для операционной системы Windows, но помимо этого с помощью дополнительных средств можно написать, например, программы и для Linux. Среда Delphi легко расширяется установкой дополнительных модулей. Пользовательский интерфейс также хорошо настраиваемый - каждый организует рабочее пространство так, как ему будет удобно.
|
|
|
Реализация языка Delphi проектом Free Pascal позволяет использовать его для создания приложений для таких платформ, как Mac OS X, Windows CE и Linux.
Используемые компоненты
Компонент Button
Простейшей и, пожалуй, наиболее часто используемый компонент является кнопка Button, расположенная на странице библиотеки Standard.
Основное с точки зрения внешнего вида свойство кнопки - Caption (надпись). В надписях кнопок можно предусматривать использование клавиш ускоренного доступа, выделяя для этого один из символов надписи. Перед символом, который должен соответствовать клавише ускоренного доступа, ставится символ амперсанта "&". Этот символ не появляется в надписи, а следующий за ним символ оказывается подчеркнутым. Тогда пользователь может вместо щелчка на кнопке нажать в любой момент клавишу Alt совместно с клавишей выделенного символа.
Например, если в вашем приложении имеется кнопка выполнения какой-то операции, вы можете задать ее свойство Caption равным "&Выполнить". На кнопке эта надпись будет иметь вид "Выполнить". И если пользователь нажмет клавиши Alt-В, то это будет эквивалентно щелчку на кнопке.
Свойства компонента Button
Свойство Cancel, если его установить в true, определяет, что нажатие пользователем клавиши Esc будет эквивалентно нажатию на данную кнопку. Это свойство целесообразно задавать равным true для кнопок "Отменить" в различных диалоговых окнах, чтобы можно было выйти из диалога, нажав на эту кнопку или нажав клавишу Esc.
Свойство Default, если его установить в true, определяет, что нажатие пользователем клавиши ввода Enter будет эквивалентно нажатию на данную кнопку, даже если данная кнопка в этот момент не находится в фокусе. Правда, если в момент нажатия Enter в фокусе находится другая кнопка, то все-таки сработает именно кнопка в фокусе.
Еще одно свойство - ModalResult используется в модальных формах, рассмотрение которых выходит за рамки данной книги. В обычных приложениях значение этого свойства должно быть равно mrNone.
Из методов, присущих кнопкам, имеет смысл отметить один - Click. Выполнение этого метода эквивалентно щелчку на кнопке, т.е. вызывает событие кнопки OnClick. Этим можно воспользоваться, чтобы продублировать какими-то другими действиями пользователя щелчок на кнопке. Пусть, например, вы хотите, чтобы при нажатии пользователем клавиши с символом "С" или "с" в любой момент работы с приложением выполнялись операции, предусмотренные в обработчике события OnClick кнопки Button1. Поскольку неизвестно, какой компонент будет находиться в фокусе в момент этого события, надо перехватить его на уровне формы. Такой перехват осуществляется, если установить свойство формы KeyPreview в true. Тогда в обработчике события формы OnKeyPress можно написать оператор if (key='C' or key='c') then Button1.Click;
События компонента Button
Основное событие любой кнопки - OnClick, возникающее при щелчке на ней. Именно в обработчике этого события записываются операторы, которые должны выполняться при щелчке пользователя на кнопке. Помимо этого есть еще ряд событий, связанных с различными манипуляциями клавишами и кнопками мыши.
Рисунок 2.1 - Компонент Button
Исходные коды
procedure TForm1.Button1Click(Sender: TObject);.Caption:='Name: '+IPAddrToName(Edit1.Text);;TForm1.Button2Click(Sender: TObject); // Сохранием оригинальное значение IP адреса
OrgVal: string; //части оригинального IP
O1,O2,O3,O4: string; // шестнадцатиричные части
H1,H2,H3,H4: string; // Здесь будут собраны все шеснадцатиричные части
HexIP: string;: array[1..8] of Extended;1: Extended;
Xc: Integer;
begin
//Сохраняем в обратном порядке для простого случая
Xn[8]:=IntPower(16,0);Xn[7]:=IntPower(16,1);[6]:=IntPower(16,2);Xn[5]:=IntPower(16,3);[4]:=IntPower(16,4);Xn[3]:=IntPower(16,5);[2]:=IntPower(16,6);Xn[1]:=IntPower(16,7);
//Сохраняем оригинальный IP адрес
OrgVal:=Edit2.Text;
O1:=Copy(OrgVal,1,Pos('.',OrgVal)-1);Delete(OrgVal,1,Pos('.',OrgVal));:=Copy(OrgVal,1,Pos('.',OrgVal)-1);Delete(OrgVal,1,Pos('.',OrgVal));:=Copy(OrgVal,1,Pos('.',OrgVal)-1);Delete(OrgVal,1,Pos('.',OrgVal));:=OrgVal;:=IntToHex(StrToInt(O1),2);H2:=IntToHex(StrToInt(O2),2);:=IntToHex(StrToInt(O3),2);H4:=IntToHex(StrToInt(O4),2);
// Получаем шестнадцатиричное значение IP адреса
HexIP:=H1+H2+H3+H4;
//Преобразуем это большое шеснадцатиричное значение в переменную Float:=0;Xc:=1 to 8 doHexIP[Xc] of
'0'..'9': Flt1:=Flt1+(StrToInt(HexIP[XC])*Xn[Xc]);
'A': Flt1:=Flt1+(10*Xn[Xc]);
'B': Flt1:=Flt1+(11*Xn[Xc]);
'C': Flt1:=Flt1+(12*Xn[Xc]);
'D': Flt1:=Flt1+(13*Xn[Xc]);
'E': Flt1:=Flt1+(14*Xn[Xc]);
'F': Flt1:=Flt1+(15*Xn[Xc]);;TForm1.Button3Click(Sender: TObject);: TWSAData;: PHostEnt;(WINSOCK_VERSION, WSAData);:=GetHostByName(PChar(Edit3.Text));.Caption:='IP: '+inet_ntoa(PInAddr(p.h_addr_list^)^);;;TForm1.Button4Click(Sender: TObject);: TWSAData;: array [0..255] of char;: PHostEnt;: PChar;($0101, wsdata);(hostName, sizeof (hostName));(hostName,Edit4.Text);:=GetHostByName(hostName);Assigned(hostEnt)Assigned(hostEnt^.h_addr_list):=hostEnt^.h_addr_list^;Assigned(addr).Caption:=Format('%d.%d.%d.%d',[byte(addr[0]),(addr[1]),byte(addr[2]),byte(addr[3])]);;;;;;TForm1.Button5Click(Sender: TObject);.Caption:='Name: '+IPAddrToCompName(Edit5.Text);;TForm1.Button6Click(Sender: TObject);stop_traf=false then stop_traf:=truestop_traf:=false;;
Компонент Edit
Большинство компьютерных программ работают по следующему алгоритму: ввод данных в программу - обработка введенных данных - вывод результата. Практически любая программа за исключением элементарных требуют ввода данных. В среде разработки Delphi для это цели используются множество различных компонентов, наиболее часто используемой является компонент Edit. Он представляет собой обычное поле в которое пользователь вводит данные. Располагается данный компонент на вкладки Standart.
Свойства компонента Edi t
Свойства - это "характеристики" компонента, они содержат только значения которые можно считать, либо изменить.- свойство принимает только логические значения True и False. Значение по умолчанию True, при установки значения False поле ввода данных компонент Edit становиться не доступным для ввода данных и перестает реагировать на любые действия пользователя., Left - свойства определяющие местоположения компонента Edit на форме, оба принимают числовые значения, размер рассчитывается в пикселях. Первое свойство определяет положение компонента относительно верхней границы формы, второе, т.е. Left - положение относительно левой границы формы.является основным свойством компонента, оно содержит введенные пользователем данные, по умолчанию как уже писалось выше оно содержит значение "Edit1".- свойство используемое для скрытия компонента от пользователя. При установке значения False компонент Edit исчезает из виду.
События компонента Edit
События - это процедуры которые будут выполняться в ответ на действия пользователя. Например:
Событие OnChange, если для него прописан код, то он выполниться при изменений значения свойства Text компонента Edit.- реагирует на щелчок мышкой по полю ввода.- событие вызываемое при нажатий пользователем любой клавиши.
В разрабатываемой программе применено пять компонентов Edit. Edit1,Edit2,Edit4 - служат для ввода IP; Edit3,Edit 5 - для ввода имени.
Рисунок 2.2 - Компонент Edit.
Исходный код
procedure TForm1.Edit1Change(Sender: TObject);
end;
Компонент Label
Label - метка, используемая для отображения текста. Компонент Label используется для отображения текста, который играет роль метки и не изменяется пользователем.
Свойства компонента Label
Свойства - это "характеристики" компонента, они содержат только значения которые можно считать, либо изменить.
AutoSize - Если true - то вертикальный и горизонтальный размеры определяются размером надписи
Aligment - Управляет горизонтальным выравниванием текста в пределах метки (влево, вправо, по центру)
Caption - Строка текста, отображаемой метки
Color - Цвет фона метки- Определяет оконный компонент, получающий фокус при нажатии клавиши быстрого доступа метки.- Атрибуты шрифта- Определяет выравнивание текста в поле метки по вертикали- При true - фон метки, по умолчанию цвет формы
ShowAccelChar - Определяет как амперсанд отображается в тексте метки
WordWrap - Переносится ли текст на новую строку, если он превышает ширину метки
События компонента Label
Рисунок 2.3-Компонент Label.
События - это процедуры которые будут выполняться в ответ на действия пользователя. Например:- наступает в начале прохождения курсора мыши над меткой.
OnMouseLeave - наступает в конце прохождения курсора мыши над меткой.
Исходные коды
procedure TForm1.Label1DblClick(Sender: TObject);
begin.Text:=Label1.Caption;;TForm1.Label4DblClick(Sender: TObject);.Text:=Label4.Caption;;TForm1.Label6DblClick(Sender: TObject);.Text:=Label6.Caption;;TForm1.Label9DblClick(Sender: TObject);.Text:=Label9.Caption;;TForm1.Label11DblClick(Sender: TObject);.Text:=Label11.Caption;;
Компонент Bevel
Это компонент Bevel, чье единственное назначение сосотоит в том, чтобы обеспечить некоторое зрительное разделение между информацией об авторе и информацией заметки. Таким образом, единственное для чего годится компонент Bevel - это служить разделителем. Он обладает всего пригоршней свойств и вообще не имеет событий, и поэтому не может ни за что отвечать.
Мы можем изменить внешний вид Bevel, изменяя его свойства Shape и Style, так же, как и его размер. Shape Bevel может быть твердым окном, рамкой (очерченным окном) или горизонтальной или вертикальной линией. Стиль может быть bsRaised ("выступом",. mnrbsLowered ("углублением"). Bevel можно найти на странице Additional page (Дополнительной странице) палитры компонентов.
Рисунок 2.4-Компонент Bevel.
Компонент ListBox
Компонент ListBox представляет из себя прямоугольную область, заполненную списком однострочных текстовых элементов. С помощью клавиатуры или за счет выбора мыши, можно осуществить отбор необходимы элементов в программе.
Свойство в котором находится список строк это Items типа TString. На этапе проектирования, для его заполнения, необходимо нажать на кнопке с многоточием напротив этого свойства в окне Инспектора Объектов. В приложении поставить в любой обработчик (допустим событие кнопки).Items. Add или ListBox1.Items. Add (Edit1.Text); // добавление будет из компонента Edit1.Text
Для полной очистки списка: ListBox1. Clear; Чтобы удалить выделенный элемент:ListBox1. DeleteSelected;По умолчанию список состоит из одной колонки. И если список большой и не все элементы помещаются в нем автоматически справа появляется или исчезает вертикальная полоса прокрутки (первый и второй компонент ListBox). Для того чтобы появилась горизонтальная полоса прокрутки необходимо свойству Columns типа Integer поставить значение больше нуля. Третий компонент - Columns равен 1, второй 2.
Свойство Sorted
Равное true дает возможность расположить элементы в алфавитом порядке. За счет сортировки списка в алфавитом порядке будет легче увидеть необходимый элемент, особенно если список большой. Применив сортировку в Инспекторе Объектов отменить сортировку не удастся.
Для того чтобы определить какой элемент был выбран пользователем воспользуемся данной записью, включив его в обработчик какого-нибудь события:
ShowMessage(ListBox1.Items[ListBox1.ItemIndex]);
где ShowMessage() - простейшая функция вывода на экран текстовых сообщений, а ListBox1.ItemIndex - номер текущего элемента.
MultiSelect - свойство благодаря которому можно можно выбрать не 1 элемент, а более. Для этого ставим его равным TRUE. Щелкая мышью, при нажатой клавише CTRL, выбираем произвольные элементы. Если свойство ExtendedSelect равно TRUE, удерживая клавишу SHIFT выделим непрерывный диапазон списка. Для определения выделен компонент или нет обратимся к свойству Selected. Выражение:ListBox.Selected[3] равно TRUE, если четвертый элемент в компоненте выделен (номера элементов начинаются с нуля).
ItemAtPos свойство, которое переводит координаты щелчка внутри списка в индекс элемента. Расположим на форме компоненты ListBox, Panel и Label согласно рисунку. Для компонента ListBox в обработчике отпускания кнопки мыши напишем следующий код.
Рисунок 2.5- Компонент ListBox.
Исходные коды
procedure TForm1.ListBox1Click(Sender: TObject);
begin;;
procedure TForm1.ListBox1MouseUp(Sender:; Button: TMouseButton;: TShiftState; X, Y: Integer);: TPoint;: Integer;.X:= X;.Y:= Y;:= ListBox1.ItemAtPos(Point, True);.Caption:= IntToStr(Nomer);.Caption:= ListBox1.Items[ListBox1.ItemIndex];
end;
В переменной Nomer запишется индекс элемента и компонент Label1 выведет его. Надпись на Panel1 выведет текст элемента ListBox1.
Компонент Timer
Компонент Timer очень простой компонент, который не виден на экране, но, тем не менее, Timer выполняет очень важные функции в программе. Timer позволяет вводить необходимые задержки между выполнением тех или иных действий. Компонент Timer имеет всего два свойства и одно событие, и работать с компонентом Timer очень просто.Cвойства, позволяющие им управлять: Interval - интервал времени в миллисекундах и Enabled - доступность. Свойство Interval задает период срабатывания таймера. Через заданный интервал времени после предыдущего срабатывания, или после программной установки свойства Interval, или после запуска приложения, если значение Interval установлено во время проектирования, таймер срабатывает, вызывая событие OnTimer. В обработчике этого события записываются необходимые операции.
Если задать Interval = 0 или Enabled = false, то таймер перестает работать. Чтобы запустить отсчет времени надо или задать Enabled = true, если установлено положительное значение Interval, или задать положительное значение Interval, если Enabled = true.
Исходный код
procedure TForm1.Timer1Timer(Sender: TObject);
// вспомогательная функция, преобразующая МАС адрес к
// "нормальному" виду определяем специальный тип, чтобы
// можно было передать в функцию массив
type=array [0..7] of Byte;
// в качестве первого значения массив, второе значение,
// размер данных в массивеGetMAC(Value: TMAC; Length: DWORD): string;: integer;Length=0Result:='00-00-00-00-00-00':='';i:=0 to Length-2 do:=Result+IntToHex(Value[i],2)+'-';:=Result+IntToHex(Value[Length-1],2);
end;;
Тестирование программы
Рисунок 2.6- Тестирование программы.
Литература
. Марков Е.П. Программирование в Delhi 7 / Дарахвелидае П.Г.- Марков Е. П - БХВ Петербург.
2. Архангельский А.Я. Программирование в Delphi. Учебник по классическим версиям Delphi (+ дискета); М.: Бином, 2006. - 518 c.
. Бобровский Сергей Delphi 7. Учебный курс; СПб: Питер, 2003. - 736 c
. . Дарахвелидзе П.Г.; Марков, Е.П. Delphi 2005 для Win32 наиболее полное руководство; БХВ-Петербург,2005.- 209 c.
. Культин Никита Основы программирования в Delphi 7; СПб: БХВ, 2003. - 608 c
. Зелковиц М., ШоуА., Геннон Дж. Принципы разработки программного обеспечения/Пер. с англ. - М.: Мир, 1982.-386с.
. Практическое руководство по программированию/ Пер. с англ. Б.Мик, П. Хит, Н.Рашби и др.; под ред. Б. Мика, П.Хит, Н.Рашби. - М.: Радиосвязь, 1986.-168с.
8. Яфаева Р.Р. Лекции_Программирование
9. Гофман В.Э., Хомоненко А.Д. Delphi. Быстрый старт. - СПб: БХВ-Петербург, 2003. - 288 с.: ил.
. Документация Delphi 7.0.
Приложение
unit dnip;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Winsock, ExtCtrls, Math;
type= class(TForm): TButton;: TLabel;: TEdit;: TLabel;: TButton;: TBevel;: TEdit;: TLabel;: TLabel;: TBevel;: TButton;: TEdit;: TLabel;: TLabel;: TBevel;: TLabel;: TBevel;: TButton;: TEdit;: TLabel;: TLabel;: TButton;: TEdit;: TLabel;: TLabel;: TBevel;: TTimer;: TListBox;: TButton;: TLabel;: TLabel;Button1Click(Sender: TObject);Button2Click(Sender: TObject);Label4DblClick(Sender: TObject);Label1DblClick(Sender: TObject);Button3Click(Sender: TObject);FormCreate(Sender: TObject);Button4Click(Sender: TObject);Label6DblClick(Sender: TObject);Label9DblClick(Sender: TObject);Button5Click(Sender: TObject);Label11DblClick(Sender: TObject);Timer1Timer(Sender: TObject);Button6Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm1;_traf: boolean;,trafbitin,trafbitout,trafbitold: integer;
{$R *.dfm}IPAddrToName(IPAddr: string): string;: TSockAddrIn;: PHostEnt;: TWSAData;($101, WSAData);.sin_addr.s_addr:=inet_addr(PChar(IPAddr));:=GetHostByAddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);HostEnt<>nilResult:=StrPas(Hostent^.h_name)Result:='';;TForm1.Button1Click(Sender: TObject);.Caption:='Name: '+IPAddrToName(Edit1.Text);;TForm1.Button2Click(Sender: TObject);
var
// Сохраняем оригинальное значение IP адреса
OrgVal: string;
// части оригинального IP,O2,O3,O4: string;
// шестнадцатиричные части,H2,H3,H4: string;
// Здесь будут собраны все шестнадцатиричные части
HexIP: string;: array[1..8] of Extended;1: Extended;: Integer;
// Сохраняем в обратном порядке для простого случая
Xn[8]:=IntPower(16,0);Xn[7]:=IntPower(16,1); Xn[6]:=IntPower(16,2);Xn[5]:=IntPower(16,3);[4]:=IntPower(16,4);Xn[3]:=IntPower(16,5); Xn[2]:=IntPower(16,6);Xn[1]:=IntPower(16,7);
// Сохраняем оригинальный IP адрес:=Edit2.Text;
O1:=Copy(OrgVal,1,Pos('.',OrgVal)-1);Delete(OrgVal,1,Pos('.',OrgVal));:=Copy(OrgVal,1,Pos('.',OrgVal)-1);Delete(OrgVal,1,Pos('.',OrgVal));:=Copy(OrgVal,1,Pos('.',OrgVal)-1);Delete(OrgVal,1,Pos('.',OrgVal));:=OrgVal;:=IntToHex(StrToInt(O1),2);H2:=IntToHex(StrToInt(O2),2);:=IntToHex(StrToInt(O3),2);H4:=IntToHex(StrToInt(O4),2);
// Получаем шестнадцатиричное значение IP адреса:=H1+H2+H3+H4;
// Преобразуем это большое шестнадцатиричное значение в переменную Float:=0;Xc:=1 to 8 doHexIP[Xc] of
'0'..'9': Flt1:=Flt1+(StrToInt(HexIP[XC])*Xn[Xc]);
'A': Flt1:=Flt1+(10*Xn[Xc]);
'B': Flt1:=Flt1+(11*Xn[Xc]);
'C': Flt1:=Flt1+(12*Xn[Xc]);
'D': Flt1:=Flt1+(13*Xn[Xc]);
'E': Flt1:=Flt1+(14*Xn[Xc]);
'F': Flt1:=Flt1+(15*Xn[Xc]);;;.Caption:='Number: '+FloatToStr(Flt1);;TForm1.Label4DblClick(Sender: TObject);.Text:=Label4.Caption;;TForm1.Label1DblClick(Sender: TObject);.Text:=Label1.Caption;;_VERSION=$0101;TForm1.Button3Click(Sender: TObject);: TWSAData;: PHostEnt;(WINSOCK_VERSION, WSAData);:=GetHostByName(PChar(Edit3.Text));.Caption:='IP: '+inet_ntoa(PInAddr(p.h_addr_list^)^);;;
// возвращает IP адресLocalIP: string;=array [0..10] of PInAddr;=^TaPInAddr;:PHostEnt;:PaPInAddr;:array [0..63] of char;:Integer;:TWSADATA;($101, GInitData);:='';(Buffer, SizeOf(Buffer));:=GetHostByName(buffer);phe=nil then Exit;:=PaPInAddr(Phe^.h_addr_list);:=0;pptr^[i]<>nil do:=StrPas(inet_ntoa(pptr^[i]^));(i);;;;TForm1.FormCreate(Sender: TObject);.Caption:='Local IP: '+LocalIP;;TForm1.Button4Click(Sender: TObject);: TWSAData;: array [0..255] of char;: PHostEnt;: PChar;($0101, wsdata);(hostName, sizeof (hostName));(hostName,Edit4.Text);:=GetHostByName(hostName);Assigned(hostEnt)Assigned(hostEnt^.h_addr_list):=hostEnt^.h_addr_list^;Assigned(addr).Caption:=Format('%d.%d.%d.%d',[byte(addr[0]),(addr[1]),byte(addr[2]),byte(addr[3])]);;;;;;TForm1.Label6DblClick(Sender: TObject);.Text:=Label6.Caption;;TForm1.Label9DblClick(Sender: TObject);.Text:=Label9.Caption;;IPAddrToCompName(IPAddr: string): string;: TSockAddrIn;: PHostEnt;: TWSAData;($101, WSAData);.sin_addr.s_addr:=inet_addr(PChar(IPAddr));:=gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);HostEnt<>nilResult:=StrPas(Hostent^.h_name)Result:='';;TForm1.Button5Click(Sender: TObject);.Caption:='Name: '+IPAddrToCompName(Edit5.Text);;TForm1.Label11DblClick(Sender: TObject);.Text:=Label11.Caption;;
//////////////////////////////////// Трафик= packed record: array[0..255] of WideChar;: DWORD;
dwType: DWORD;: DWORD;: DWORD; // определяет текущую скорость передачи в битах в секунду: DWORD;: array[0..7] of Byte; // содержит физический адрес интерфейса (если проще то его, немного видоизмененный, МАС адрес)
dwAdminStatus: DWORD;: DWORD;: DWORD;
dwInOctets: DWORD; // содержит количество байт принятых через интерфейс
dwInUcastPkts: DWORD;: DWORD;: DWORD;: DWORD;: DWORD;: DWORD; // содержит количество байт отправленных интерфейсом: DWORD;: DWORD;: DWORD;: DWORD;: DWORD;: DWORD;: array[0..255] of Char; // cодержит описание интерфейса;= array [0..512] of TMibIfRow;= ^TMibIfRow;= ^TMibIfArray;= packed record: DWORD;: TMibIfArray;;= ^TMibIfTable;:function(pIfTable: PMibIfTable; pdwSize: PULONG;: Boolean): DWORD; stdcall;
//////////////////////////////////// ИнтерфейсыWSAIoctl(s: TSocket; cmd: DWORD; lpInBuffer: PCHAR; dwInBufferLen:;: PCHAR; dwOutBufferLen: DWORD;: LPDWORD;: POINTER;: POINTER): integer; stdcall; external 'WS2_32.DLL';_GET_INTERFACE_LIST = $4004747F;_UP = $00000001;_BROADCAST = $00000002;_LOOPBACK = $00000004;_POINTTOPOINT = $00000008;_MULTICAST = $00000010;_gen = packed record: sockaddr_in;: packed array [0..7] of char;;_INFO = packed record: u_long; // Флаги интерфейса: sockaddr_gen; // Адрес интерфейса: sockaddr_gen; // Broadcast адрес: sockaddr_gen; // Маска подсети;EnumInterfaces(var sInt: string): Boolean;: TSocket;: WSADATA;: Integer;: u_long;: SOCKADDR_IN;: PChar;: pointer;: array[0..20] of INTERFACE_INFO;: integer;:=true; // инициализируем переменную:='';($0101, wsaD); // запускаем WinSock
// здесь можно дабавить различные обработчики ошибки
s:=Socket(AF_INET, SOCK_STREAM, 0); // открываем сокет(s=INVALID_SOCKET)Exit;
try // вызываем WSAIoCtl:=@bytesReturned;
if (WSAIoCtl(s, SIO_GET_INTERFACE_LIST, nil, 0, @Buffer,
, PtrA, nil, nil)<>SOCKET_ERROR)
then// если OK, то определяем количество существующих интерфейсов
NumInterfaces:=BytesReturned div SizeOf(INTERFACE_INFO);i:=0 to NumInterfaces-1 do // для каждого интерфейса:=Buffer[i].iiAddress.AddressIn; // IP адрес:=inet_ntoa(pAddrInet.sin_addr);pAddrString<>'127.0.0.1':=sInt+'IP = '+pAddrString+', '+#10#13;
// pAddrInet:=Buffer[i].iiNetMask.AddressIn; // маска подсети
// pAddrString:=inet_ntoa(pAddrInet.sin_addr);
// sInt:=sInt+' Mask='+pAddrString+',';sInt:='IP = "localhost"';;;
//;
// закрываем сокеты(s);;:=false;;BytesToString(Value: integer): string;=1024;=OneKB*1024;=OneMB*1024;Value<OneKBResult:=FormatFloat('#,##0.00 B',Value)Value<OneMBResult:=FormatFloat('#,##0.00 KB', Value/OneKB)Value<OneGBResult:=FormatFloat('#,##0.00 MB', Value/OneMB);TForm1.Timer1Timer(Sender: TObject);
// вспомогательная функция, преобразующая МАС адрес к
// "нормальному" виду определяем специальный тип, чтобы
// можно было передать в функцию массив
type=array [0..7] of Byte;
// в качестве первого значения массив, второе значение,
// размер данных в массивеGetMAC(Value: TMAC; Length: DWORD): string;: integer;Length=0Result:='00-00-00-00-00-00':='';i:=0 to Length-2 do:=Result+IntToHex(Value[i],2)+'-';:=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))<>'00-00-00-00-00-00' // сравнение 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';:='0,00 B';;
//trafbitin>=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.
|
|
|
