Работа с Clientsocket и Serversocket

[prizrak1390]

Доброе время суток...
Я собираю прогу удаленного администрирования.
Программа работает на основе компонентов Clientsocket и Serversocket
Я дал мою прогу другу, и запустил её...Потом попытался со своего компа подключиться к запущенной проге на компе друга(через Интернет). Мне известен его Ip адресс..Я пытался и по 149 и по 80 порту подключиться...и всё равно никак(
Подключаюсь я так

Clientsocket1.host:=тут айпи;
Clientsocket1.active:=true;

Потом пробовал так

Clientsocket1.adress:=айпи;
Clientsocket1.active:=true;

И всё равно НИКАК...
Может я ошибся в портах или не правильно подключаюсь....
З.Ы - Это не backdoor!!!!!.....

[Terran]

Ты подключаешся правильно, тут проблема в чёмто другом. Для начала порт твоего ServerSocket не должен совподать с другими портами он у тебя TCP и он не должен совподать даже с UDP. А 149 и 80 порты это системные.

для сервака можешь сделать так:

procedure TForm1.FormCreate(Sender: TObject);
begin
ServerSocket1.Port:=2222;
ServerSocket1.Active:=true;
end;

Для клиента так:

procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Address:=Edit1.text;
ClientSocket1.Port:=2222;
ClientSocket1.Active:=true;

end;

И на всякий случай вот компонент для того что бы точно узнать IP.
OnlineIP.rar

Думаю должно всё получится. Я раньше такое пробовал, всё работало.

[prizrak1390]

я использую компонент Indy IpWatch..))
Пробовал Ваш вариант....не помогло

[Квэнди]

Регистрация: 12.12.2007
Адрес: Волгоград
Сообщения: 105

значит не первый день на форуме.
отсюда должны знать.
название темы....
закрыто.