[starcon]

Хочу сделать проверку с последующей активацией некоторых функций.

Есть функция , которая определяет текущий 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

[nixon232]

1) как вариант парси строку с IP.
2) Обьяви GetLocalIP в модуле каком, а потом подключай по модулям(формам).

[starcon]

Можно пример , как парсить?
Спасибо

[lmikle]

Можно проще в данном случае:

Код:

uses Masks;

var
  ip : String;

...
ip := GetLocalIP;
Button1.Enable := MatchesMask(ip,'192.168.*.*');
Button2.Enable := MatchesMask(ip,'111.12.*.*');
...

[starcon]

Сейчас попробую

[starcon]

Работает, только не могу прикрутить вот это

Код:

ComboBox1.Text:= ComboBox1.Items[2]

Взамен button

[nixon232]

Код:

ComboBox1.ItemIndex:=2;

Если Добавить

Код:

ComboBox1.Items.add('text');

[starcon]

Да не , мне надо
Взамен button

Код:

Button1.Enable := MatchesMask(ip,'192.168.*.*');

Прикрутить

Код:

ComboBox1.Items[2]

То есть, если ip в сетке 192.168.*.*' , тогда активировать ComboBox1.Items[2].

[nixon232]

Честное слово не понимаю в чем проблема

Код:

If MatchesMask(ip,'192.168.*.*') then
ComboBox1.ItemIndex:=2;

[starcon]

)).Не поверите , проблема в переменной ip.
Пока не написал

Код:

MatchesMask(GetLocalIP,'192.168.*.*')

не работало
Хотя перемененную обьявил как

Код:

ip := GetLocalIP;

Какой то парадокс.
Всем СПАСИБО, вопрос снят, репутацией никого не обделил за помощь!