Привет всем.
Сервер. Ждёт конекта клиента. Клиент посылает команду. Сервер работает с базой даных Интербейс. Когда один клиент то нормально обрабатывается, а когда много ничего неработает. Я решил реализовать ето дело в потоках (TThread). Но незнаю как. (никогда с етим неработал) хочу научится. Можете мне подсказать?. Дома куча книг по Дельфи и ни в одной нет инфы о Потоках. 
Когда клиенты конектятся то для них создается отдельный поток (нашел пример). А вот как мне реализовать работу с базой в отдельных потоках?
делал так: (работает для одного клиента)
| Код | Var
zname:string;
ZalQuery1:TIBQuery;
ZalDatabase1: TIBDatabase;
ZalTransaction1: TIBTransaction;
begin
try
try
ZalQuery1:=TIBQuery.Create(aowner);
ZalDatabase1:=TIBDatabase.Create(aowner);
ZalTransaction1:=TIBTransaction.Create(aowner);
ZalDataBase1.DatabaseName:=dm2.DataBase1.DatabaseName;
ZalDataBase1.Params.Text:=dm2.Database1.Params.Text;
ZalDataBase1.LoginPrompt:=false;
ZalDataBase1.DefaultTransaction:=ZalTransaction1;
ZalQuery1.Database:=ZalDataBase1;
ZalQuery1.Transaction:=ZalTransaction1;
ZalDataBase1.Connected:=true;
ZalQuery1.Active:=false;
ZalQuery1.SQL.Clear;
ZalQuery1.SQL.Add('select * from ZALFORZAMOVLENYA('+id+')');
ZalQuery1.Active:=true;
ZalQuery1.FetchAll;
....
except
on e:exception do
begin
result:=false;
dm.Display('..Ошибка..... '+e.message,MYSERVER,I_ERRORMSG);
exit;
end;
end;
finally
ZalQuery1.Free;
ZalDatabase1.Free;
ZalTransaction1.Free;
result:=true;
end;
end; |
как мне реализовать ето дело, что-бы работало с несколькими клиентами?
Если можна кусочек кода... 
(Есть много магазинов - пишу програму для синхронизации остатков товара на складах. Сервер и клиент реализованы на Socket)
Зарание благодарен. |