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

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

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 13.07.2016, 18:40   #1
Андрейкака
Пользователь
 
Регистрация: 07.07.2016
Сообщений: 26
По умолчанию ДЕлфи! ! ! !Подключение к серверу, DataSnap!

Здравствуйте!
Такая проблема, есть сервер (Remote Data Module,TDataSetProvider и тд для БД). Сервер запустил, все работает.
Далее создал клиентское приложение, (SocketConnection1, ClientDataSet1 и тд.)
SocketConnection1, HOST, PORT и NAMEServer указал, все норм. Но, при Connected:=true сервер зависает, delphi зависает(((
что делать?
Андрейкака вне форума Ответить с цитированием
Старый 13.07.2016, 19:20   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Ну коль используешь SocketConnection, то поищи в делфи scktsrvr.exe. Для него там и исходники есть. И запусти там же, где и сервер приложений. Для DCOMConnection этой лабуды не нужно
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 13.07.2016, 19:24   #3
Андрейкака
Пользователь
 
Регистрация: 07.07.2016
Сообщений: 26
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
Ну коль используешь SocketConnection, то поищи в делфи scktsrvr.exe. Для него там и исходники есть. И запусти там же, где и сервер приложений. Для DCOMConnection этой лабуды не нужно
DCOMConnection дает ту же самую ошибку: лаг жесткий
Server.exe не отвечает
Ошибка выполнении приложения-сервера!

Последний раз редактировалось Андрейкака; 13.07.2016 в 19:28. Причина: Добавление ошибки
Андрейкака вне форума Ответить с цитированием
Старый 13.07.2016, 19:28   #4
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Такое есть в удаленном датамодуле?
Код:
class procedure TRemotePostavka.UpdateRegistry(Register: Boolean; const ClassID, ProgID: string);
begin
  if Register then
  begin
    inherited UpdateRegistry(Register, ClassID, ProgID);
    EnableSocketTransport(ClassID);
  end else
  begin
    DisableSocketTransport(ClassID);
    inherited UpdateRegistry(Register, ClassID, ProgID);
  end;
end;
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 13.07.2016, 19:29   #5
Андрейкака
Пользователь
 
Регистрация: 07.07.2016
Сообщений: 26
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
Такое есть в удаленном датамодуле?
Код:
class procedure TRemotePostavka.UpdateRegistry(Register: Boolean; const ClassID, ProgID: string);
begin
  if Register then
  begin
    inherited UpdateRegistry(Register, ClassID, ProgID);
    EnableSocketTransport(ClassID);
  end else
  begin
    DisableSocketTransport(ClassID);
    inherited UpdateRegistry(Register, ClassID, ProgID);
  end;
end;
Спасибо, вопрос решен! Помог!
Андрейкака вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Подключение к серверу Nibelyng Работа с сетью в Delphi 5 11.05.2015 22:46
Подключение к удаленному серверу spein PHP 7 25.03.2011 17:03
Подключение к серверу Vinnipux PHP 5 29.10.2010 18:30
Подключение к MySQL серверу Demien БД в Delphi 0 10.08.2009 15:14
Подключение к серверу Artem Работа с сетью в Delphi 4 11.11.2007 09:27