ання програми.
Література
.Марков Є.П. Програмування в 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);HostEntlt;gt;nilResult:=StrPas(Hostent^.h_name)Result:=laquo;raquo;;;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 ( laquo ;. , OrgVal) - 1);Delete(OrgVal,1,Pos(laquo;.raquo;,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 raquo ;: Flt1:=Flt1 + (StrToInt (HexIP [XC]) * Xn [Xc]);
A raquo ;: Flt1:=Flt1 + (10 * Xn [Xc]);
B raquo ;: Flt1:=Flt1 + (11 * Xn [Xc]);
C raquo ;: Flt1:=Flt1 + (12 * Xn [Xc]);
D raquo ;: Flt1:=Flt1 + (13 * Xn [Xc]);
E raquo ;: Flt1:=Flt1 + (14 * Xn [Xc]);
F raquo ;: 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)) ;. Cap...
