VPF::статический IP - Форум программистов

observateur

Дата 8.10.2008, 14:21 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 176
Регистрация: 10.6.2006

Репутация: нет
Всего: нет

Вопрос к знатокам…написал прогу…автоматический изменяет статический İP компа…и в друг если заданной İP существует в сети вылезает сообшения

“Только что указанный статический IP адрес уже используется в сети.”

и прога перестает работать как мне обойти эту пробдему….
Заранее благодарю, observateur….

Rennigth

Дата 8.10.2008, 14:57 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 1
Всего: 76

Цитата(observateur @ 8.10.2008, 14:21

)

как мне обойти эту пробдему

поставить коньяку админам smile

Добавлено @ 14:57

Цитата(observateur @ 8.10.2008, 14:21

)

автоматический изменяет статический İP компа

Это сообщение отредактировал(а) Rennigth - 8.10.2008, 14:58

--------------------

(* Honesta mors turpi vita potior *)

Matematik

Дата 8.10.2008, 16:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 24
Всего: 50

Неплохо было бы код изменения ip написать

observateur

Дата 9.10.2008, 09:16 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 176
Регистрация: 10.6.2006

Репутация: нет
Всего: нет

Цитата(Matematik @ 8.10.2008, 16:11)

Неплохо было бы код изменения ip написать

Код


procedure TForm1.Button3Click(Sender: TObject);
var ip1,ip2,ip3,ip4,
mask1,mask2,mask3,mask4,
shlyuz1,shlyuz2,shlyuz3,shlyuz4: string;

begin

ip1:=trim(e1.Text);
ip2:=trim(e2.Text);
ip3:=trim(e3.Text);
ip4:=trim(e4.Text);

mask1:=trim(e5.Text);
mask2:=trim(e6.Text);
mask3:=trim(e7.Text);
mask4:=trim(e8.Text);

shlyuz1:=trim(e9.Text);
shlyuz2:=trim(e10.Text);
shlyuz3:=trim(e11.Text);
shlyuz4:=trim(e12.Text);

shellexecute(handle,'open','netsh.exe',
  pchar('interface ip set address "lac" ' +
  'static '+ip1+'.'+ip2+'.'+ip3+'.'+ip4+' '+
  mask1+'.'+mask2+'.'+mask3+'.'+mask4+' '+
  shlyuz1+'.'+shlyuz2+'.'+shlyuz3+'.'+shlyuz4+' 1'),
  nil,sw_hide);


end;

X-Vlad

Дата 21.10.2008, 12:43 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 570
Регистрация: 10.4.2002
Где: Украина, Львов

Репутация: нет
Всего: 5

ну можна конечно сначала пингануть новый айпи.. если пинг непроходит значит в сети его нету. Подводные камни: если на машинах стоит фаервол пинги могут непроходить smile

--------------------

Хорошая штука - комп..:)
www.x-vlad.com

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »