Открытие приложения по ip

@temirkhan2011 · Регистрация: 31.10.2016

Студворк — интернет-сервис помощи студентам

ДН! Хотел сделать в приложении сверку ip адреса компьютера с ip адресами в таблице access, если ip не сходится (нет в базе) выдавать ошибку что компьютер не зарегистрирован в сети, если ip занесен в базу открывать приложение...

@Пытливый · 21.06.2017, 00:29

1. А вы в курсе, что в локальной сети ip-компа может меняться хоть каждые пол-часа. Вот захотел админ настроить так dhcp.
2. Коли компьютер получил ip, то он уже зарегистрирован в сети и что вы в итоге проверяете совершенно непонятно.

@temirkhan2011 · 21.06.2017, 08:27 **[ТС]**

Допустим, настроен DHCP в локальной сети, все компьютеры получают адреса автоматический, а те компьютеры на котором будет стоять приложение, они будут иметь статические ip, в практике такое есть, и если какой нибудь левый комп с сети (настроив статический ip адрес тех компов где есть данное приложение) захочет зайти в приложение, ему выйдет ошибка!
Все компьютеры в сети всегда включены!

@D1973 · 21.06.2017, 08:29

Сообщение от Пытливый

А вы в курсе, что в локальной сети ip-компа может меняться хоть каждые пол-часа.

IP рабочей станции может быть и статическим

и такая проверка вполне имеет место быть, только с формулировкой: "компьютер имеет неразрешенный адрес для работы с программой". Но вот свой вопрос ТС-у следует конкретизировать:
temirkhan2011, итак:
1. Вы не знаете, как сделать запрос к БД для проверки имеющегося IP-адреса?
2. Вы не знаете, как получить IP-адрес рабочей станции, на которой запускается программа?
3. Вы ничего этого не знаете?
Прошу уточнить...

@temirkhan2011 · 21.06.2017, 08:31 **[ТС]**

Не знаю)

@qwertehok · 21.06.2017, 08:56

вот у вас в БД таблице с разрешенными адресами

вот у вас ВасяПупкин запускает клиентское приложение
1. при старте происходит считывание ИП адреса
на это существуют 100500 способов как через реестр, так и WMI, так и простой парсинг ipconfig
есть одна проблема - что если видеокарт больше чем одна? ну нужно так было и у человека еще WiFi карта стоит с другим адресом

2. Допустим адрес получили. Показываем пользователю приглашение ввести логин\пароль и делаем запрос к БД, передавая IP адрес. Обычный SELECT.
Получаем ответ и обрабатываем его. Если адрес правильный, то заполняем список логинов в окне входа. Если неправильный - пишем сообщение.

вопросы - как получить адрес и как сделать запрос уже обсуждался на форуме

@D1973 · 21.06.2017, 09:00

Сообщение от D1973

Вы не знаете, как получить IP-адрес рабочей станции, на которой запускается программа?

Вариант 1.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses ..., WinSock;
var sIP: String;
...
function GetLocalIP: String;
const WSVer = $101;
var
  wsaData: TWSAData;
  P: PHostEnt;
  Buf: array [0..127] of Char;
begin
  Result := '';
  if WSAStartup(WSVer, wsaData) = 0 then begin
    if GetHostName(@Buf, 128) = 0 then begin
      P := GetHostByName(@Buf);
      if P <> nil then Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
    end;
    WSACleanup;
  end;
end;
 
sIP := GetLocalIP;

Вариант 2.
Кинуть на форму компонент IdIPWatch с закладки IndyMisk

Delphi
1
2
IdIPWatch1.Active:=true;
sIP := IdIPWatch1.LocalIP;

Сообщение от D1973

Вы не знаете, как сделать запрос к БД для проверки имеющегося IP-адреса?

Delphi
1
2
3
4
ADOQuery1.Close;
ADOCuery1.Text := 'SELECT * FROM Your_Table WHERE fIP = ' + QuotedStr(sIP);
ADOQuery1.Open;
if ADOQuery1.IsEmpty then ShowMessage('Вам сюда нельзя!');

@temirkhan2011 · 21.06.2017, 13:34 **[ТС]**

Сообщение от D1973

Вариант 2.
Кинуть на форму компонент IdIPWatch с закладки IndyMisk

Что-то не получается сделать вот исходник

@D1973 · 21.06.2017, 15:34

Сообщение от temirkhan2011

не получается сделать вот исходник

1. Вот ткните пальцем в то место, где я говорил, что надо использовать метод OnStatus компонента IdIPWatch???

2. Чему равно значение переменной sIP в методе OnCreate формы? Да ничему! Где используете эту переменную, там и надо получать ее значение
3. Не взирая на предыдущее: ну вот выполнили Вы запрос, и что??? Программа пойдет выполняться дальше..., успешен он там был или нет. Где прерывание выполнения?

@temirkhan2011 · 21.06.2017, 19:58 **[ТС]**

Сообщение от D1973

1. Вот ткните пальцем в то место, где я говорил, что надо использовать метод OnStatus компонента IdIPWatch???
2. Чему равно значение переменной sIP в методе OnCreate формы? Да ничему! Где используете эту переменную, там и надо получать ее значение
3. Не взирая на предыдущее: ну вот выполнили Вы запрос, и что??? Программа пойдет выполняться дальше..., успешен он там был или нет. Где прерывание выполнения?

Вот поменял код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.IdIPWatch1Status(ASender: TObject; const AStatus: TIdStatus;
  const AStatusText: string);  var sIP: String;
begin
 IdIPWatch1.Active:=true;
sIP := IdIPWatch1.LocalIP;   
ADOQuery1.Close;
ADOQuery1.Sql.Text := 'SELECT * FROM ip_config WHERE IP = ' + QuotedStr(sIP);
ADOQuery1.Open;
if ADOQuery1.IsEmpty then ShowMessage('Вам сюда нельзя!');Form1.Close;
end;
end.

@D1973 · 22.06.2017, 02:15

temirkhan2011, еще раз повторяю:

Сообщение от D1973

Вот ткните пальцем в то место, где я говорил, что надо использовать метод OnStatus компонента IdIPWatch???

С какого перепугу Вы решили, что надо использовать этот метод? Кто Вам это сказал?

@krapotkin · 22.06.2017, 05:35

вообще нужно бы смотреть в другую сторону
обычно СЕРВЕР имеет какую-то возможность узнать, с какого IP зашел к нему клиент
поэтому лучше эту логику переводить в запросы и не ковырять систему...
вы можете просто сделать запрос и получить свой IP

@D1973 · 22.06.2017, 09:50

Не по теме:

Сообщение от krapotkin

вы можете просто сделать запрос и получить свой IP

хотя вопрос был так поставлен, что база есть клиент-сервер, но в дальнейшем я что-то потерял уверенность в этом... Скорее всего ТС собирается таскать локальную БД по компам... Иначе мне не понятны все предыдущие посты, незнание банальных азов...

@kavasaka · 22.06.2017, 10:11

Если локальная база, то можно к железу привязать, ip может и поменяться.
Серийный номер HDD

@krapotkin · 22.06.2017, 10:25

D1973, да. речь именно о клиент-сервере
Firebird
https://firebirdsql.org/refdoc... ntext.html
Oracle
https://oracle-base.com/articl... -addresses

@D1973 · 23.06.2017, 11:33

Сообщение от temirkhan2011

с ip адресами в таблице access

krapotkin, вот почему я засомневался в том, что БД - клиент-сервер... На акцессе делать клиент-сервер - ну это уже совсем извращение...

@krapotkin · 23.06.2017, 11:53

да почему же. типичный клиент-сервер.
просто в сети что ни пример, то АДО

@xxbesoxx · 26.06.2017, 15:00

Сообщение от temirkhan2011

ДН! Хотел сделать в приложении сверку ip адреса компьютера с ip адресами в таблице access

1) Access это не клиент-серверный СУБД . онже файл-серверный.
2) Уважаемый ! довать вам какой то наработани код, кода вы не проктиковали не изучали основа этого языка бессмысленно.
3) Я думаю что вам надо читать книгу и тренировать.

@D1973 · 26.06.2017, 15:32

Не по теме:

Сообщение от xxbesoxx

Я думаю что вам надо читать книгу и тренировать.

xxbesoxx, ++ :good:

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@temirkhan2011 0 / 0 / 0 Регистрация: 31.10.2016 Сообщений: 24

	Открытие приложения по ip 20.06.2017, 22:05. Показов 1810. Ответов 18 Метки нет (Все метки) ДН! Хотел сделать в приложении сверку ip адреса компьютера с ip адресами в таблице access, если ip не сходится (нет в базе) выдавать ошибку что компьютер не зарегистрирован в сети, если ip занесен в базу открывать приложение... 0

@Пытливый 3763 / 2267 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	21.06.2017, 00:29
	1. А вы в курсе, что в локальной сети ip-компа может меняться хоть каждые пол-часа. Вот захотел админ настроить так dhcp. 2. Коли компьютер получил ip, то он уже зарегистрирован в сети и что вы в итоге проверяете совершенно непонятно. 0

@temirkhan2011 0 / 0 / 0 Регистрация: 31.10.2016 Сообщений: 24
	21.06.2017, 08:27 [ТС]
	Допустим, настроен DHCP в локальной сети, все компьютеры получают адреса автоматический, а те компьютеры на котором будет стоять приложение, они будут иметь статические ip, в практике такое есть, и если какой нибудь левый комп с сети (настроив статический ip адрес тех компов где есть данное приложение) захочет зайти в приложение, ему выйдет ошибка! Все компьютеры в сети всегда включены! 0

@temirkhan2011 0 / 0 / 0 Регистрация: 31.10.2016 Сообщений: 24
	21.06.2017, 08:31 [ТС]
	Не знаю) 0

@qwertehok 5967 / 4543 / 1094 Регистрация: 29.08.2013 Сообщений: 28,155 Записей в блоге: 3
	21.06.2017, 08:56
	вот у вас в БД таблице с разрешенными адресами вот у вас ВасяПупкин запускает клиентское приложение 1. при старте происходит считывание ИП адреса на это существуют 100500 способов как через реестр, так и WMI, так и простой парсинг ipconfig есть одна проблема - что если видеокарт больше чем одна? ну нужно так было и у человека еще WiFi карта стоит с другим адресом 2. Допустим адрес получили. Показываем пользователю приглашение ввести логин\пароль и делаем запрос к БД, передавая IP адрес. Обычный SELECT. Получаем ответ и обрабатываем его. Если адрес правильный, то заполняем список логинов в окне входа. Если неправильный - пишем сообщение. вопросы - как получить адрес и как сделать запрос уже обсуждался на форуме 0

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,660 Записей в блоге: 21
	22.06.2017, 05:35
	вообще нужно бы смотреть в другую сторону обычно СЕРВЕР имеет какую-то возможность узнать, с какого IP зашел к нему клиент поэтому лучше эту логику переводить в запросы и не ковырять систему... вы можете просто сделать запрос и получить свой IP 0

@kavasaka W 115 / 115 / 33 Регистрация: 16.04.2013 Сообщений: 750
	22.06.2017, 10:11
	Если локальная база, то можно к железу привязать, ip может и поменяться. Серийный номер HDD 0

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,660 Записей в блоге: 21
	22.06.2017, 10:25
	D1973, да. речь именно о клиент-сервере Firebird https://firebirdsql.org/refdoc... ntext.html Oracle https://oracle-base.com/articl... -addresses 0

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,660 Записей в блоге: 21
	23.06.2017, 11:53
	да почему же. типичный клиент-сервер. просто в сети что ни пример, то АДО 0