/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 538
от 21.07.2006, 11:35

Вопрос № 49.184

Подскажите: с помощью каких функций можно контроллировать траффик? Если можно пример или ссылку.

Отправлен: 15.07.2006, 13:12 Вопрос задал: MasterZ (статус: 5-ый класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Mashin Здравствуйте, MasterZ! http://www.delphimaster.ru/articles/netmon/index.html Здесь и описание функции и пример.

Ответ отправил: Mashin (статус: 1-ый класс) Ответ отправлен: 15.07.2006, 19:22 Оценка за ответ: 5 Комментарий оценки: Спасибо, очень хорошая статья.

Отвечает: aaqs Здравствуйте, MasterZ! Посмотрите готовый пример (см прил) Приложение: http://www.delphisources.ru/files/sources/internet/nettrafmonitor.zip

Ответ отправил: aaqs (статус: 5-ый класс) Ответ отправлен: 17.07.2006, 09:07

Вопрос № 49.224

Здравствуйте. Как в Delphi, работая с сервер-клиент приложением, зная имя компьютера в сети (сервера), получить его ip адрес? Спасибо.

Отправлен: 15.07.2006, 20:53 Вопрос задал: Сергей Николаевич (статус: 1-ый класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Устинов Сергей Евгеньевич Здравствуйте, Сергей Николаевич! Почитайте это и вот это, по-моему, это то, что Вам нужно. Удачи!!! --------- Ответы на все вопросы - на сайте www.ya.ru ☺

Ответ отправил: Устинов Сергей Евгеньевич (статус: Студент) Ответ отправлен: 16.07.2006, 11:29

Отвечает: Томша Павел Здравствуйте, Сергей Николаевич! В приложении программа - пример преобразования IP адреса в Host имя, и обратно, а также работа с DNS адресом Приложение: unit dnip; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Winsock, ExtCtrls, Math; type TForm1 = class(TForm) Button1: TButton; Label1: TLabel; Edit1: TEdit; Label2: TLabel; Button2: TButton; Bevel1: TBevel; Edit2: TEdit; Label3: TLabel; Label4: TLabel; Bevel2: TBevel; Button3: TButton; Edit3: TEdit; Label5: TLabel; Label6: TLabel; Bevel3: TBevel; Label7: TLabel; Bevel4: TBevel; Button4: TButton; Edit4: TEdit; Label8: TLabel; Label9: TLabel; Button5: TButton; Edit5: TEdit; Label10: TLabel; Label11: TLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Label4DblClick(Sender: TObject); procedure Label1DblClick(Sender: TObject); procedure Button3Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Label6DblClick(Sender: TObject); procedure Label9DblClick(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Label11DblClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function IPAddrToName(IPAddr: string): string; var SockAddrIn: TSockAddrIn; HostEnt: PHostEnt; WSAData: TWSAData; begin WSAStartup($101, WSAData); SockAddrIn.sin_addr.s_addr:=inet_addr(PChar(IPAddr)); HostEnt:=GetHostByAddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET); if HostEnt<>nil then Result:=StrPas(Hostent^.h_name) else Result:=''; end; procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption:='Name: '+IPAddrToName(Edit1.Text); end; procedure TForm1.Button2Click(Sender: TObject); var // Сохраняем оригинальное значение IP адреса OrgVal: string; // части оригинального IP O1,O2,O3,O4: string; // шестнадцатиричные части H1,H2,H3,H4: string; // Здесь будут собраны все шестнадцатиричные части HexIP: string; XN: array[1..8] of Extended; Flt1: Extended; Xc: Integer; begin // Сохраняем в обратном порядке для простого случая Xn[8]:=IntPower(16,0);Xn[7]:=IntPower(16,1); Xn[6]:=IntPower(16,2);Xn[5]:=IntPower(16,3); Xn[4]:=IntPower(16,4);Xn[3]:=IntPower(16,5); Xn[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)); O2:=Copy(OrgVal,1,Pos('.',OrgVal)-1);Delete(OrgVal,1,Pos('.',OrgVal)); O3:=Copy(OrgVal,1,Pos('.',OrgVal)-1);Delete(OrgVal,1,Pos('.',OrgVal)); O4:=OrgVal; H1:=IntToHex(StrToInt(O1),2);H2:=IntToHex(StrToInt(O2),2); H3:=IntToHex(StrToInt(O3),2);H4:=IntToHex(StrToInt(O4),2); // Получаем шестнадцатиричное значение IP адреса HexIP:=H1+H2+H3+H4; // Преобразуем это большое шестнадцатиричное значение в переменную Float Flt1:=0; for Xc:=1 to 8 do begin case HexIP[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]); end; end; Label4.Caption:='Number: '+FloatToStr(Flt1); end; procedure TForm1.Label4DblClick(Sender: TObject); begin Edit2.Text:=Label4.Caption; end; procedure TForm1.Label1DblClick(Sender: TObject); begin Edit1.Text:=Label1.Caption; end; const WINSOCK_VERSION=$0101; procedure TForm1.Button3Click(Sender: TObject); var WSAData: TWSAData; p: PHostEnt; begin WSAStartup(WINSOCK_VERSION, WSAData); p:=GetHostByName(PChar(Edit3.Text)); Label6.Caption:='IP: '+inet_ntoa(PInAddr(p.h_addr_list^)^); WSACleanup; end; // возвращает IP адрес function LocalIP: string; type TaPInAddr=array [0..10] of PInAddr; PaPInAddr=^TaPInAddr; var phe:PHostEnt; pptr:PaPInAddr; Buffer:array [0..63] of char; i:Integer; GInitData:TWSADATA; begin WSAStartup($101, GInitData); Result:=''; GetHostName(Buffer, SizeOf(Buffer)); phe:=GetHostByName(buffer); if phe=nil then Exit; pptr:=PaPInAddr(Phe^.h_addr_list); i:=0; while pptr^[i]<>nil do begin result:=StrPas(inet_ntoa(pptr^[i]^)); Inc(i); end; WSACleanup; end; procedure TForm1.FormCreate(Sender: TObject); begin Label7.Caption:='Local IP: '+LocalIP; end; procedure TForm1.Button4Click(Sender: TObject); var wsdata: TWSAData; hostName: array [0..255] of char; hostEnt: PHostEnt; addr: PChar; begin WSAStartup ($0101, wsdata); try GetHostName(hostName, sizeof (hostName)); StrPCopy(hostName,Edit4.Text); hostEnt:=GetHostByName(hostName); if Assigned(hostEnt) then if Assigned(hostEnt^.h_addr_list) then begin addr:=hostEnt^.h_addr_list^; if Assigned(addr) then begin Label9.Caption:=Format('%d.%d.%d.%d',[byte(addr[0]), byte(addr[1]),byte(addr[2]),byte(addr[3])]); end; end; finally WSACleanup; end; end; procedure TForm1.Label6DblClick(Sender: TObject); begin Edit3.Text:=Label6.Caption; end; procedure TForm1.Label9DblClick(Sender: TObject); begin Edit4.Text:=Label9.Caption; end; function IPAddrToCompName(IPAddr: string): string; var SockAddrIn: TSockAddrIn; HostEnt: PHostEnt; WSAData: TWSAData; begin WSAStartup($101, WSAData); SockAddrIn.sin_addr.s_addr:=inet_addr(PChar(IPAddr)); HostEnt:=gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET); if HostEnt<>nil then Result:=StrPas(Hostent^.h_name) else Result:=''; end; procedure TForm1.Button5Click(Sender: TObject); begin Label11.Caption:='Name: '+IPAddrToCompName(Edit5.Text); end; procedure TForm1.Label11DblClick(Sender: TObject); begin Edit5.Text:=Label11.Caption; end; end.

Ответ отправил: Томша Павел (статус: 1-ый класс) Ответ отправлен: 16.07.2006, 11:44

Вопрос № 49.248

Здравствуйте. Такая проблема: нужно в отдельном потоке запустить такой код ShellExecute(GetDesktopWindow(), 'open', PChar('что-то тут'), nil, nil, SW_SHOWNORMAL). Пытался сам разобраться, не получилось. Так что если нетрудно исходничек с комментариями.

Отправлен: 16.07.2006, 00:53 Вопрос задал: Dimon007 (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Савенко Вадим Иванович Здравствуйте, Dimon007! Информацию о потоках Вы можете найти здесь: http://uchenik.vofka.ru/index.php?dpt=3&CID=3&ID=24 http://callipso.bestcode.org/delphi/artical/num2.html

Ответ отправил: Савенко Вадим Иванович (статус: 4-ый класс) Ответ отправлен: 16.07.2006, 07:40

Отвечает: Томша Павел Здравствуйте, Dimon007! Для запуска внешней программы, для посылки письма или для создания ссылки на сайт вам понадобиться всего одна функция ShellExecute, которая описывается в модуле ShellAPI - не забудьте подключить его в uses. Этой функции нужно указать несколько параметров: Дескриптор родительского окна Выполняемое действие. Этот параметр может принимать следующие значения "open", "print", "explore" - соответственно открытие, печать или исследование. Можно указывать nil - тогда будет выполняться действие по умолчанию - "open". Имя файла или папки, или e-mail, или URL Параметры Каталог по умолчанию Способ вывода окна. В качестве значения можно указать: SW_HIDE Скрывает окно и активизирует другое. SW_MAXIMIZE Разворачивает окно. SW_MINIMIZE Сворачивает окно. SW_RESTORE Активизирует и выводит окно. Если окно было развёрнуто или свёрнуто - восстанавливает исходный размер и позицию. SW_SHOW Активизирует и выводит окно с его оригинальным размером и положением. SW_SHOWDEFAULT Активизирует с установками, заданными в структуре STARTUPINFO, которая была передана при создании процесса приложением запускающим нужную программу. SW_SHOWMAXIMIZED Выводит окно в развёрнутом виде. SW_SHOWMINIMIZED Выводит окно в виде пиктограммы на панели задач. SW_SHOWMINNOACTIVE Выводит окно в свёрнутом виде на панели задач и не передаёт ему фокус ввода, т.е. окно, которое до этого было активно остаётся активно по прежнему. SW_SHOWNA Отображает окно в его текущем состоянии. Активное окно остаётся активным по прежнему. SW_SHOWNOACTIVATE Выводит окно в его последнем положении и с последними используемыми размерами. Активное окно остаётся активным по прежнему. SW_SHOWNORMAL Выводит окно. Если оно было свёрнуто или развёрнуто - восстанавливает его оригинальные размеры и позицию. Примеры: // Запуск файла ShellExecute(Handle, nil, 'c:windowscalc.exe', nil, nil, SW_SHOW); // Просмотр каталога ShellExecute(Handle, nil, 'c:windows', nil, nil, SW_SHOW); // Ссылка на сайт ShellExecute(Handle, nil, 'http://www.site.ru', nil, nil, SW_SHOW); // Послать E-mail ShellExecute(Handle, nil, 'mailto:DelphiWorld@mail.ru', nil, nil, SW_SHOW);

Ответ отправил: Томша Павел (статус: 1-ый класс) Ответ отправлен: 16.07.2006, 11:32

Отвечает: Степанов Сергей Игоревич Здравствуйте, Dimon007! Из MSDN: HINSTANCE ShellExecute( HWND hwnd, LPCTSTR lpOperation, LPCTSTR lpFile, LPCTSTR lpParameters, LPCTSTR lpDirectory, INT nShowCmd ); Соответственно 3-й параметр это файл или папка которую вы хотите открыть... Пример тоже из MSDN: To open a folder, use either of the following calls: ShellExecute(handle, NULL, path_to_folder, NULL, NULL, SW_SHOWNORMAL); or ShellExecute(handle, "open", path_to_folder, NULL, NULL, SW_SHOWNORMAL); To explore a folder, use: ShellExecute(handle, "explore", path_to_folder, NULL, NULL, SW_SHOWNORMAL); To launch the Shell's Find utility for a directory, use: ShellExecute(handle, "find", path_to_folder, NULL, NULL, 0);

Ответ отправил: Степанов Сергей Игоревич (статус: 1-ый класс) Ответ отправлен: 16.07.2006, 20:44

Отвечает: Антонов Никита Вячеславович Здравствуйте, Dimon007! Непонятно, как это "в отдельном потоке", если я не ошибаюсь, выполняя эту функцию вы открываете программу, а для неё в системе выделяется один (или больше) потоков. К потоку вашей программы, вызывающей эту функцию вроде как не имеет отношения, или не прав? --------- Прежде чем идти к цели, подумай, стоит ли она того

Ответ отправил: Антонов Никита Вячеславович (статус: 2-ой класс) Ответ отправлен: 16.07.2006, 21:46

© 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.34 от 01.06.2006