Data Snap

[cenitelas]

Всем привет! Ребят, такая проблема.
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)
Модератор