Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

idMappedPortTCP [D7, Win95/98]


BVV ©   (2004-08-25 10:44:00) 

Не получается изменить свойства idMappedPortTCP.DefaultPort, idMappedPortTCP.MappedPort, idMappedPortTCP.MappedHost компонента idMappedPortTCP в исполняемой программе.
Делаю так:

procedure TForm1.Button1Click(Sender: TObject);
begin
MappedPortTCP.Active:=False;
MappedPortTCP.DefaultPort:=StrToInt(Edit1.Text);
MappedPortTCP.MappedPort:=StrToInt(Edit2.Text);
MappedPortTCP.MappedHost:=Edit3.Text;
MappedPortTCP.Active:=True;
end;

Активируется и дезактивируется без проблем, но вот фаервол указывает что номер открытого порта не изменился.
Далее проверяю эти же свойства, так

procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Lines.Add(inttostr(MappedPortTCP.MappedPort)
+' '+MappedPortTCP.MappedHost+' '
+inttostr(MappedPortTCP.DefaultPort));
end;

и обнаруживаю что все они меняются на нужные мне.
Получается что "внутренне" они как бы меняются, а вот "внешне" нет.
Я не знаю глюк это или нет, но может кто то уже столкнулся с подобной проблемой и знает как ее решить ?


BVV   (2004-08-25 15:34:00) [1]

Выходит нет.


Наверх

Титульная страница Поиск, карта сайта Написать письмо