Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

Ответ
 
Опции темы
Старый 28.12.2016, 09:42   #1
cenitelas
Пользователь
 
Регистрация: 22.11.2010
Сообщений: 12
Репутация: 10
По умолчанию Data Snap

Всем привет! Ребят, такая проблема.
1) После тестирования клиент-серверного приложения на локальном хосте, не могу сменить хост на удаленный. Как поменять Ip-адрес хоста?

2) Код:

Код:

function TServerMethods1.ReverseString(Value: string): string;
var
a: TArrayOfString;
begin
try
try
a := SplitString(value, ['|']);
if (a[0]<>'') and (a[1]='go') then
with ServerContainer1.FDQuery1 do
begin
ExecSQL('update users set play=1 where id='+a[0]);
AbortJob(True);
end;
with ServerContainer1.FDQuery1 do
begin
Repeat
open('SELECT id FROM users where (play=1 and enemy_id=0 and id<>'+a[0]+')or (play=1 and enemy_id='+a[0]+' and id<>'+a[0]+')');
player:=Fields[0].AsString;
AbortJob(True);
Application.ProcessMessages;
Until
player<>'0';
begin
while not Eof do
begin
ResourceOptions.CmdExecMode:=amNonBlocking;
result:=player;
ExecSQL('update users set enemy_id='+player+' where id='+a[0]);
AbortJob(True);
end;
end;
end;
finally
ServerContainer1.FDQuery1.Close;
end;
except
end;
end;

Соответственно цикл повторятся пока не подключится следующий клиент, как следующий клиент подключается, сервер выдает ошибку, мол подключение к бд уже занято, как это реализовать в потоке?

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

Последний раз редактировалось Serge_Bliznykov; 28.12.2016 в 10:37.
cenitelas вне форума   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Data Scientist/Аналитик Big Data ksskurat Работа на постоянной основе 0 10.08.2016 14:39
Data structure3 Natasha2332 Общие вопросы по Java, Java SE 0 11.05.2014 16:59
missing data provider or data packet Dexes БД в Delphi 3 06.01.2012 11:58
MMC Snap-in в Delphi crc83 Общие вопросы Delphi 0 15.02.2009 17:27
Data neas Помощь студентам 1 03.03.2008 17:26




22:39.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru