Модераторы: Snowy, Poseidon, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Проблема с ClientSocket и ServerSocket, Проблема подключения. 
:(
    Опции темы
DYUMON
Дата 13.11.2007, 21:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 3
Я конечно думаю что до меня эту тему подымали много раз но всё же. Пишу прогу для обмена файлами через нет. Ну в общем такая проблема прога работает как сервер так и клиент. когдда в одной копии проги запускаю сервер а вторую как клиент то приуказание адресса хоть и через значительное время но происходит коннект . А при испытаниях через интернет ничего не происходит либо вылетает ошибка  сокета

Добавлено через 6 минут и 5 секунд
процедура подключения

Код

procedure TForm1.N111Click(Sender: TObject);


begin
adress:=inputbox('Óñòàíîâêà ñîåäèíåíèÿ!','Ââåäèòå IP-àäðåññ: ','');
if adress<>'' then
begin
client.Address:=adress;
client.Port:=2221;
client.Active:=true;
memo1.Lines.Add('Óñòàíîâêà ñîåäèíåíèÿ ñ '+ adress );
end
else
begin
memo1.Lines.Add('Óñòàíîâêà ñîåäèíåíèÿ ïðåðâàíà ïîëüçîâàòåëåì!');
end;
end;

процедура сервера

Код

procedure TForm1.ServerClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
if MessageDlg('Ïîïûòêà ïîïûòêà ïîäêëþ÷åíèÿ ñ '{+server.Socket.RemoteAddress}+#10+#13+'Ðàçðåøèòü ïîäêëþ÷åíèå?' ,
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    begin
    memo1.Lines.Add('Ðàçðåøåíî ïîäêëþ÷åíèå: ') {server.Socket.RemoteAddress} ;
    end
    else
    begin
    memo1.Lines.Add('Êëèåíò '+ {erver.Socket.RemoteAddress+}' îòêëþ÷åí.'  );

    server.Active:=false;
    end;
    end;

 и я понять так и не могу почему через нет ни видно




--------------------
Всех программистов надо посадить на целероны, что бы впредь головой думали что пишут.
user posted image
PM MAIL ICQ Skype   Вверх
Firster
Дата 14.11.2007, 01:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
IP - адреса посмотри
PM MAIL   Вверх
DYUMON
Дата 14.11.2007, 01:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 3
Я потом посмотрел такие темы были .значит без постоянго ip не будет работать. А ip-шника я два пробовал тот что провайдер даёт и тот что в нете виден. оба не канают 


--------------------
Всех программистов надо посадить на целероны, что бы впредь головой думали что пишут.
user posted image
PM MAIL ICQ Skype   Вверх
OdesitVadim
Дата 14.11.2007, 18:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 40
Регистрация: 9.11.2007
Где: Одесса:)

Репутация: нет
Всего: нет
Всё зависит от того, как подключен. если через NAT - то не получить стать сервером, если конечно администраторы не сделают перенаправление портов
PM MAIL   Вверх
DYUMON
Дата 16.11.2007, 21:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 3
Я подключаюсь через МТС у меня два ip адресса пробовали оба соединения не происходит . Неужели надо иметь постоянный ip чтобы устанавливать соединение? 


--------------------
Всех программистов надо посадить на целероны, что бы впредь головой думали что пишут.
user posted image
PM MAIL ICQ Skype   Вверх
marykone
Дата 18.11.2007, 13:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2722
Регистрация: 2.5.2006
Где: Краснодар

Репутация: нет
Всего: 67
DYUMON, без реальных статических ip соединение не возможно 


--------------------
получил ответ, пометь вопрос как решенный (правый верхний угол вашей темы).
PM   Вверх
DYUMON
Дата 19.11.2007, 21:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 3
А как тада происходит работа чатов . Если сервер сидит на одном из наших компов а остальным потом просто ip по аське рассылаем.


--------------------
Всех программистов надо посадить на целероны, что бы впредь головой думали что пишут.
user posted image
PM MAIL ICQ Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0491 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.