Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > статический IP

Автор: observateur 8.10.2008, 14:21

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

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

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

Автор: Rennigth 8.10.2008, 14:57

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

)

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

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

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

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

)

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

Автор: Matematik 8.10.2008, 16:11

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

Автор: observateur 9.10.2008, 09:16

Цитата(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

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