Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.04.2013, 01:49   #1
killercrush
Новичок
Джуниор
 
Регистрация: 21.04.2013
Сообщений: 2
По умолчанию Создание клиент-серверного приложения(DataSnap)

Здравствуйте. Создал по одному примеру ( http://echmel.ru/2011/07/essential-to-datasnap/ ) простой пример сервера на DataSnap и клиента к нему(правда до БД не дошел). Локально на моем компе работает отлично. Я отправил приложение-сервер другу и попробовал подключиться к нему, изменив в клиенте
Код:
procedure TClientMainForm.BBConnectClick(Sender: TObject);
begin
  //
  if ClientDM.SQLConnection1.Connected then
  begin
    //Закрыть соединение
    ClientDM.SQLConnection1.Close;
    BBConnect.Caption := 'Подключиться';
  end
  else
  begin
    //устанавливаем параметры подключения
    ClientDM.SQLConnection1.Params.Values['Port'] := Port.Text;
    ClientDM.SQLConnection1.Params.Values['HostName'] := 'localhost';
    ClientDM.SQLConnection1.Params.Values['CommunicationProtocol'] := 'http';
    ClientDM.SQLConnection1.Params.Values['Password'] := EPass.Text;
    //имя пользователя
    ClientDM.SQLConnection1.Params.Values['DSAuthenticationUser'] :=
      ELogin.Text;
      //пароль
    ClientDM.SQLConnection1.Params.Values['DSAuthenticationPassword'] :=
      EPass.Text;
    //пробуем подключиться
    ClientDM.SQLConnection1.Open;
    if ClientDM.SQLConnection1.Connected then

      BBConnect.Caption := 'Отключиться';
  end;
end;
ClientDM.SQLConnection1.Params.Valu es['HostName'] := 'localhost'; вместо localhost прописал ip друга. При попытке подключиться спустя секунд 10-20 появлялась ошибка Connection reset by peer.
Вопросы:
1)Достаточно ли просто изменить localhost на IP чтобы подключиться через интернет, если да, то в чем может быть проблема из-за которой я не могу подключиться (у друга стоит роутер, может в нем проблема?);
2)Если нет то как я могу к нему подключиться (или какие лучше использовать компоненты Делфи для этой задачи)
3)Если бы приложение-сервер находилось на компьютере в локальной сети и я указал бы его IP, смог бы я подключиться?
4)Где почитать про создание клиент-серверных приложений, удаленных баз данных в Делфи?
killercrush вне форума Ответить с цитированием
Старый 21.04.2013, 10:53   #2
killercrush
Новичок
Джуниор
 
Регистрация: 21.04.2013
Сообщений: 2
По умолчанию

Проблему решил, вопросы 1,2,3 отпадают. Настроив в роутере Virtual Server с нужным портом все заработало
killercrush вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Создание клиент-серверного приложения. Advice required. Last Свободное общение 1 13.02.2013 01:35
Создание клиент-серверного приложения. bedrock90 Фриланс 5 05.09.2012 16:13
сколько будет стоить создание клиент-серверного приложения на заказ? Maincore Свободное общение 10 27.04.2012 20:29
Разработка клиент-серверного приложения Sabber БД в Delphi 0 19.05.2010 12:25
Разработка клиент - серверного приложения Spyer Работа с сетью в Delphi 5 16.01.2008 15:46