![]() |
|
|
Регистрация | << Правила форума >> | 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] |
#7
|
|||
|
|||
![]() Код:
ComboBox1.ItemIndex:=2; Код:
ComboBox1.Items.add('text'); Последний раз редактировалось nixon232, 28.08.2016 в 11:32. |
#8
|
|||
|
|||
![]() Да не , мне надо
Взамен button Код:
Button1.Enable := MatchesMask(ip,'192.168.*.*'); Код:
ComboBox1.Items[2] Последний раз редактировалось starcon, 28.08.2016 в 12:32. |
#9
|
|||
|
|||
![]() Честное слово не понимаю в чем проблема
Код:
If MatchesMask(ip,'192.168.*.*') then ComboBox1.ItemIndex:=2; |
Этот пользователь сказал Спасибо nixon232 за это полезное сообщение: | ||
starcon (28.08.2016)
|
#10
|
|||
|
|||
![]() )).Не поверите , проблема в переменной ip.
Пока не написал Код:
MatchesMask(GetLocalIP,'192.168.*.*') Хотя перемененную обьявил как Код:
ip := GetLocalIP; Всем СПАСИБО, вопрос снят, репутацией никого не обделил за помощь! |