|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Сделать проверку с последующей активацией функций
Хочу сделать проверку с последующей активацией некоторых функций.
Есть функция , которая определяет текущий IP пользователя Код:
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; То есть , если компьютер с сетки 192.168.XX.XX , активировать button1, если с сетки 111.12.ХХ.ХХ , активировать button2 Последний раз редактировалось starcon, 27.08.2016 в 14:09. |
#2
|
|||
|
|||
1) как вариант парси строку с IP.
2) Обьяви GetLocalIP в модуле каком, а потом подключай по модулям(формам). |
Этот пользователь сказал Спасибо nixon232 за это полезное сообщение: | ||
starcon (27.08.2016)
|
#3
|
|||
|
|||
Можно пример , как парсить?
Спасибо |
#4
|
|||
|
|||
Можно проще в данном случае:
Код:
uses Masks; var ip : String; ... ip := GetLocalIP; Button1.Enable := MatchesMask(ip,'192.168.*.*'); Button2.Enable := MatchesMask(ip,'111.12.*.*'); ... |
Этот пользователь сказал Спасибо lmikle за это полезное сообщение: | ||
starcon (27.08.2016)
|
#5
|
|||
|
|||
Сейчас попробую
|
#6
|
|||
|
|||
Работает, только не могу прикрутить вот это
Код:
ComboBox1.Text:= ComboBox1.Items[2] |