Для доступ к базе Interbase использую удаленный сервер приложений (COM сервер). Клиентская часть работает с базой через SocketConnection. Между ними стоит BorlandSocketServer.
Есть такая проблема: при запуске процедуры и передачи в ней довольно длинного SQL запроса зависает клиентская часть. Причем проблема не в СУБД а именно в передаче вот такой длинной строки(проверил написав пустую функцию на серверной части и передав ей эту строку). Виснет примерно на 3й вызов.
Когда я ставлю один объект SocketConnection для всех вызовов и разово устанавливаю соединение, то вот в этом случае и виснет частенько, а когда поднимаю соединение вызываю функцию и выключаю соединение, то виснет намного реже.
В связи с этим вопрос: Как правильно работать с SocketConnection? Неужели каждый раз нужно поднимать и рвать соединение для вызова удаленной функции?
Может после вызова удаленной функции нужно очищать какой-то буфер в SocketConnection?


Исходник сервера:

Код

class procedure TFlatDataModule.UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); begin   if Register then   begin     inherited UpdateRegistry(Register, ClassID, ProgID);     EnableSocketTransport(ClassID);     //EnableWebTransport(ClassID);     RegisterPooled(ClassID,300,30);   end else   begin     DisableSocketTransport(ClassID);     //DisableWebTransport(ClassID);     UnregisterPooled(ClassID);     inherited UpdateRegistry(Register, ClassID, ProgID);   end; end; //Далее идет описание функций initialization   TComponentFactory.Create(ComServer, TFlatDataModule,     Class_FlatDataModule,ciMultiInstance,tmSingle);

Вызов проблемной функции из клиента:
Вот так приходится рвать и тотом поднимать соединение, чтобы хоть не так часто висло...

Код

try       Form1.SocketConnection1.Connected:=false;       Form1.SocketConnection1.Connected:=True;       Form1.SocketConnection1.AppServer.ComplexSearch(select,selectStr.Count,records,empty);      finally            end;

В чем может быть причина?