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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 28.12.2016, 08:42   #1
cenitelas
Пользователь
 
Регистрация: 22.11.2010
Сообщений: 12
По умолчанию 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 в 09:37.
cenitelas вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Data structure3 Natasha2332 Общие вопросы по Java, Java SE, Kotlin 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 16:27
Data neas Помощь студентам 1 03.03.2008 16:26