VPF::Работа с TQuery в потоке - Форум программистов

Serebrus

Дата 22.5.2013, 17:17 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 333
Регистрация: 22.5.2007
Где: Ташкент

Репутация: нет
Всего: нет

Доброго времени суток всем.
Как поживаете?

Хотел написать обработчик входящих СМС сообщений по SMPP.
Из за возможности что несколько СМС придут в одно и тоже время (из разных абонентов конечно же), приходится работать с потоками (честно, в первые).
Т.е. как я понимаю для каждого входящего СМС создается поток для работы с ним. Точнее, как вам известно если отправили 1 то одно, если 2 то другое отправляется обратно абоненту.
При этом приходится создавать элементы массива TQuery что бы обратится к базе (т.е. исходя из текста СМС выполняются запросы и формируются ответы).

Очень хотелось бы узнать ваше мнение:

Код


DocsQueryN: array of TQuery;

implementation
...
procedure CheckLimit(fromNumber: String; num: Integer);
var j, l, lu: Integer;
    dt: String;
    sl: TStringList;
begin
l:=length(DocsQueryN);
SetLength(DocsQueryN, l+1);
DocsQueryN[l]:=TQuery.Create(Form1);
DocsQueryN[l].DatabaseName:='BD';

DocsQueryN[l].SQL.Clear;
DocsQueryN[l].SQL.Text:='query';
DocsQueryN[l].Open;

sl:=TStringList.Create;
if DocsQueryN[l].RecordCount>0 then
 begin
  DocsQueryN[l].First;
  for j:=1 to DocsQueryN[l].RecordCount do
   begin
    sl.Add(DocsQueryN[l].Fields.Fields[0].AsString);
    DocsQueryN[l].Next;
   end;
 end;
DocsQueryN[l].Close;
DocsQueryN[l].Free;
  
if sl.Count>0 then SendSMS(fromNumber, sl.text);
sl.Free;
end;

Правильно ли организовано работа с TQuery?

Это сообщение отредактировал(а) Serebrus - 23.5.2013, 13:32

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »