свойства idTCPServer

[Deman005]

как программно изменить ip адресс и порт в этом компоненте пишет только для чтения

[Error] Unit5.pas(35): Cannot assign to a read-only property

вот код

form3.IdTCPServer1.Bindings.Items[0].PeerIP:=edit1.text
form3.IdTCPServer1.Bindings.Items[0].PeerPort:=strtoint(edit2.Text)


кто знает подскажите плиз

[ImmortalAlexSan]

Сервер на то и сервер, чтобы принимать, а когда он принимает пакеты, то принимает их с определенного IP-адреса машины, которая их отправила. Так уж устроен этот компонент, и основан он на общепринятых правилах отправки-приема (пример: письмо, написанное от руки имеет адреса отправителя). Как вы собираетесь менять IP-адрес, от куда вам пришел пакет??? Тоже самое, вы скажите, что можете ходить по потолку Abinding.PeerIP - вызывается для того чтобы узнать адрес отправителя, поменять её НЕЛЬЗЯ по выше приведенной причине. Тоже самое косается и порта! (Abinding.PeerPort).
Если у вас задача, поменять порт на сервере, то юзайте tIdUDPServer.DefaultPort;

....
Var Server:TIdUDPServer;
....
Server.DefaultPort:=strtoint(edit2.Text);

Что косается IP, то... ...давайте конкретнее! Цель прогаммы какая? А то непонятно что вы хотите, и помочь вам полноценно не получется...

[Deman005]

Ну у компонента idTCPServer тоже должен же быть ip адресс чтоб отправитель знал куда отправлять пакеты. вот его я и хочу задать програмно. Я хочу чтоб Программа с компонентом idTCPServer запускалась на любом компе без среды делфи. А без среды я не могу указать в свойстве bindings ip адресс данного компьютера. а если ip адресс в свойстве bindings не совпадает с ip данного компа программа выдает ошибку, может как то автоматически можно определять ip адресс машины на которой запущена прога ? помогите плиз

[ImmortalAlexSan]

Можно. В библиотеке инди есть ещё один замечательный компонент, называется он IdIPWatch, находится на вкладке Indy Misc. Кидаете его на форму, в программе пишите код:

<переменная типа string>:=<имя вашего компонента>.LocalIP;

в переменной будет локальный айпи адрес машины, на которой запущена прога. Но дело я так понял не в этом... Если хотите получить IP машины от куда запущена прога, то вы должны своей прогой разослать сообщение вида #0#1 или #0#2 или какое хотите с помощью:

Server.Broadcast(#0#1,Server.DefaultPort); //если вам известен порт

С помощью этого кода программа отправляет всему диапазону Ip-адресов сети сообщение #0#1 (смотрите ASCII таблицу). Для чего это надо? А для того чтобы прога, запущенная на удаленном компьютере обработала его, но опять же-таки в коде той проги надо сделать обработчик сообщения:

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
Var str:string;
begin
setlength(str,Adata.Size);
Adata.Seek(0,soFromBeginning);
Adata.ReadBuffer(Pointer(Str)^,AData.Size);
If pos(#0#1,Str)=1 then
Server.Send(ABinding.PeerIP,Server.Port,#0#2);
end;

А на своей проге добавить такой обработчик:

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
Var str:string;
begin
setlength(str,Adata.Size);
Adata.Seek(0,soFromBeginning);
Adata.ReadBuffer(Pointer(Str)^,AData.Size);
If pos(#0#2,Str)=1 then
Str:=Server.Abinding.PeerIP;
end;

Именно из этой переменной вы и сможете считать IP-адрес, от куда пришел ответ, на отправленный вами запрос по всему диапазону Ip-адресов вашей сети

[ImmortalAlexSan]

И кстати, чтож вы так к этому bindings привязались?! Он определяет подключения, связи, которые есть сейчас между клиентами-серверами или сервера-серверами.

[Deman005]

Ну просто гинеально . Спасибо большое. А это в глобальной сети интернет. Если мой провайдер использует VPN

[ImmortalAlexSan]

Я привел пример для локальной сети (локальная сеть, которую обеспечивает провайдер, если обеспечивает, локальная сеть с помощью хабов и свичей, маршрутизаторовом и потобной лабуды...) С интернетом будет сложнее. Понимаете в чем дело... не у всех есть выделенные IP-адреса, кто-то выходит в интернет через IP, который обеспечивает провайдер для своих подключившихся, а там уже идет фильтрация на сервере, чтобы не занести всякую дрянь к себе и к людям, и по этому ваши попытки будут неумолимо блокироваться Выхода из этой ситуации кроме как выделенного сервера, я не вижу, увы. Хотя возможно со временем найду, а если и есть такие решения, то они где попалоне валяются.

[Deman005]

в смысле выделенного сервера?? веб сервера что ли??

[ImmortalAlexSan]

Знаете программу QIP или ICQ? Вот они используют выделенный сервер. Имеется ввиду, серверный компьютер с выделенным IP, через который будут идти все запросы. Ну и соответственно, обеспечить ему свободный вход по какому-либо порту во всех интернет компаниях. (ICQ использует 80 например).