Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2004.10.03;
Скачать: [xml.tar.bz2];

Вниз

Передача данных запроса к БД из потока   Найти похожие ветки 

 
galexis ©   (2004-09-06 13:46) [0]

Пытаюсь работать с потоками (TThread). В потоке выполняется запрос к БД FireBird. А что делать с набором данных после этого не знаю. Как передать их в основной поток? Сейчас провожу эксперименты с SendMessage, но думаю что это не выход, да и с ним у меня пока еще ничего не вышло. Приложение у меня MDI, а поток создается из дочернего окна. Как обратиться к элементу редактирования TEdit, который расположен в таком окне?
Помогите разобраться пожалуйста.


 
Карелин Артем ©   (2004-09-06 13:51) [1]

Разберись с основами синхронизации потоков. Конкретно Synchronize


 
galexis ©   (2004-09-06 14:05) [2]


> Карелин Артем ©  

Где бы прочитать в интернте про это. У меня есть распечатка главы "Создание многопоточных приложений" из какой то книги. В данный момент как раз открыта на Synchronize. С примером, где сообщение передается непосредственно в основной поток, а я к нему и обратится не могу, форма то дочерняя


 
Digitman ©   (2004-09-06 14:13) [3]


> сообщение передается непосредственно в основной поток, а
> я к нему и обратится не могу, форма то дочерняя


???


 
Карелин Артем ©   (2004-09-06 14:15) [4]

Не надо сообщения мучать. Пиши просто edit1212.text:=запрос.поле1.какстрока в методе, который будешь вызывать посредством Synchronize


 
galexis ©   (2004-09-06 14:28) [5]


> Digitman ©

Не могу обратиться к элементу TEditиз потока, ну например надо написать
FindForm.Edit1.Test:=...; Но Форма FindForm у меня MDIChild, т.е. к ней надо обращаться как
MainForm.MDIChildren[0]. А как обратиться к элементу Edit1 на ней?


 
galexis ©   (2004-09-06 14:29) [6]

>Карелин Артем © Вот к edit1212.text я и не могу обратиться.


 
galexis ©   (2004-09-06 14:43) [7]

Могу вот так сообщение переслать
SendMessage(MainForm.MDIChildren[0].ActiveControl.Handle,WM_SETTEXT,0,Integer(PChar(cnt)));
Но это не выход. А как можно передать набор данных и поместить его в DBGrid?


 
Reindeer Moss Eater ©   (2004-09-06 14:58) [8]

TDataSource + TDBGrid


 
galexis ©   (2004-09-06 15:16) [9]


> Reindeer Moss Eater ©

Это понятно, а если TDBGrid находится на форме FindForm, которая MDIChild?


 
Romkin ©   (2004-09-06 15:29) [10]

Элегантный выход - TClientDataset. Удивлены? Все просто, в Execute потока создавайте модуль данных с T...Query и TDatasetProvider (именно в execute ;) ). Делайте, что угодно. Потом просто передайте данные из провайдера в TClientDataSet на форме (эссно в Syncronize). И все. У вас есть набор данных, с которым вы можете делать все. Уже в основном потоке :))


 
Reindeer Moss Eater ©   (2004-09-06 15:31) [11]

Это понятно, а если TDBGrid находится на форме FindForm, которая MDIChild?

А какая разница где именно она "находится"?


 
galexis ©   (2004-09-06 15:41) [12]


> Reindeer Moss Eater ©

Разница в том, что нельзя обратиться к TDBGrid обычным образом, т.е. нельзя написать FindForm.DBGrid1.DataSource.
Форма создается в процессе работы приложения и не имеет имени, к ней можно обратиться как MainForm.MDIChildren[0] Как обратиться при этом к конкретному компоненту, а мне надо DBGrid я не знаю. Точнее знаю. Надо сделать его активным и обращаться к нему как MainForm.MDIChildren[0].ActiveControl. Но это не очень хорошо.


 
Reindeer Moss Eater ©   (2004-09-06 15:43) [13]

Дык у тебя вопрос про то как найти экземпляр формы.

При чем здесь вся предыдущая канитель со вторичными потоками?
К делу не относящаяся.


 
galexis ©   (2004-09-06 15:46) [14]


> Romkin ©  

Пока еще до меня не дошло в полной мере, то что вы предложили. Но, по моему, если я расположу TClientDataset на моей форме FindForm, я и к этому компоненту не смогу обратиться. вот если только его расположить на MainForm.


 
Reindeer Moss Eater ©   (2004-09-06 15:47) [15]

вот если только его расположить на MainForm.

Он там один, а MDI Child"ов - много.
Как делить будем?


 
galexis ©   (2004-09-06 15:48) [16]


> Reindeer Moss Eater ©

Ну задача у меня стоит как передать набор данных из вторичного потока в основной. А уж все остальное это попутно.


 
Reindeer Moss Eater ©   (2004-09-06 15:49) [17]

Никуда наборы данных не передаются.
Они остаются там где были созданы.
Вплоть до закрытия и деструктора.


 
Digitman ©   (2004-09-06 15:50) [18]


> galexis ©   (06.09.04 14:28) [5]


см. [13]

???


 
galexis ©   (2004-09-06 16:05) [19]


> Digitman ©

Да я и не спорю. Но и ясности у меня так и нет. Вот выполнился во вторичном потоке у меня запрос к БД. Теперь IBQuery содержит набор данных. На форме из которой был создан вторичный поток есть DBGrid. Как заполнить DBGrid данными из IBQuery вторичного потока?


 
Reindeer Moss Eater ©   (2004-09-06 16:06) [20]

Как заполнить DBGrid данными из IBQuery вторичного потока?

DBGrid.DataSource:=MySource;
MySource.DataSet:=MyDataSet;


 
Digitman ©   (2004-09-06 16:07) [21]


> На форме из которой был создан вторичный поток


почему бы форме, создавшей вторичный поток, не передать параметром в этот поток ссылку на себя ? и искать же ничего не нужно будет !


 
galexis ©   (2004-09-06 16:12) [22]


> Digitman ©

Если бы я знал как это сделать? Есть правда в Demos от Delphi примерчик. Там как раз и передаются многие параметры. Опять же все как то мудрено там


 
Reindeer Moss Eater ©   (2004-09-06 16:17) [23]

Передача параметров - мудрено?
Ну ну.

Стоит ли вообще браться за программирование?

...
with TMyThread.Create(MyDBGrid) do
resume;
...


 
galexis ©   (2004-09-06 16:23) [24]


> Reindeer Moss Eater ©

Мудрено в примерчике. Там используется конструктор. Примерчик называется ThreadedQuery.
За программирование браться не стоит, если это не основная работа и не хобби. У меня как раз не то, не то. Я вообще хочу начальником быть :)


 
Reindeer Moss Eater ©   (2004-09-06 16:26) [25]

Мудрено в примерчике. Там используется конструктор.

Конструкторы везде используются где есть классы.
В том числе и в твоих программах написанных ранее.
Не только в том примерчике.


 
Digitman ©   (2004-09-06 16:30) [26]


> Я вообще хочу начальником быть


не то, брат, не то ... настоящие начальники должны как минимум уметь писать "ни то ни другое", ну и опционально - уметь передавать в конструирующий метод произвольного класса (причем по барабану какого - TThread или TSomeClass) некие параметры


 
Анонимщик ©   (2004-09-06 16:36) [27]

Вот почти один-в-один то, что нужно:

http://www.instantchess.com/?EC=3&EXP=1&FindPl=%C2%EE%E2%EA&SUH=1&Date1=38229&RT2=1#4


 
Анонимщик ©   (2004-09-06 16:46) [28]

Пардон,

http://www.delphiworld.narod.ru/base/background_db_queries.html


 
galexis ©   (2004-09-06 16:47) [29]


> Digitman ©  

По поводу передавать в конструирующий метод это все поправимо, а вот начальником стать труднее. Я вот работаю в отделе программного обеспечения в структуре власти. По образованию физик. А два моих начальника (точнее начальник и его зам.) один, врач второй сантехник. А вы мне про ни то ни другое. Мне бы примерчик простенький, или ссылку на статейку по теме.


 
galexis ©   (2004-09-06 16:51) [30]


> Анонимщик ©   (06.09.04 16:46) [28]

О! Вот за это спасибо


 
galexis ©   (2004-09-06 16:54) [31]


> Анонимщик ©

Упс! А IBQuery не может работать с TSession :(


 
Анонимщик ©   (2004-09-06 16:55) [32]

Я же сказал, что почти, а не именно то. Тем более, что тебе для IB сессии не нужны вовсе. Делай отдельный подключения в каждом потоке.


 
Digitman ©   (2004-09-06 16:56) [33]


> galexis ©   (06.09.04 16:47) [29]


я-то ждал иного вопроса - "подскажите ссылку на инф-цию о принципах передачи параметров в методы Делфи-объектов" ... а в ответ - про сантехников и физиков .. печально это


>не основная работа и не хобби
> ..
> в отделе программного обеспечения в структуре власти


поясни, пож., зачем представителю руков.состава заниматься несвойственной ему по должности работой, если она даже не хобби ? у меня только одна мысль в голову - подработка ...


 
Анонимщик ©   (2004-09-06 16:58) [34]

Как ты все же утомил всех:

unit IBBackGroundQuery;

interface

uses
 Classes, IBDataBase, IBQuery, SysUtils, Messages, Forms, DB, Windows;

type
 TIBBackGroundQuery = class(TThread)
 private
   { Private declarations }
   FDBName      : String;
   FSQLString   : String;
   FDBParams    : TStringList;

   FIBDB        : TIBDataBase;
   FIBT         : TIBTransaction;
   FIBQSequences: TIBQuery;
   FDS          : TDataSource;
   FQueryException: Exception;

   // обработка исключения, связанного с ошибкой выполнения запроса
   procedure ShowQryError;
   procedure ConnectDataSource;
 protected
   procedure Execute; override;
 public
   constructor Create(ADBName: String; ADBParams: TStrings;
                      const ASQLString: String; const ADS: TDataSource); virtual;
   destructor Destroy; override;
 end;

implementation

{ Important: Methods and properties of objects in VCL or CLX can only be used
 in a method called using Synchronize, for example,

     Synchronize(UpdateCaption);

 and UpdateCaption could look like,

   procedure TIBBackGroundQuery.UpdateCaption;
   begin
     Form1.Caption := "Updated in a thread";
   end; }

{ TIBBackGroundQuery }

constructor TIBBackGroundQuery.Create(ADBName: String; ADBParams: TStrings;
                                     const ASQLString: String; const ADS: TDataSource);
begin
 inherited Create(false);

 FDBName    := ADBName;
 FDBParams  := TStringList.Create;
 FDBParams.Assign(ADBParams);
 FSQLString := ASQLString;

 FDS := ADS;
 FreeOnTerminate := false;
end;

destructor TIBBackGroundQuery.Destroy;
begin
 inherited;
 FIBDB.Free;
 FIBT.Free;
 FIBQSequences.Free;
end;

procedure TIBBackGroundQuery.ShowQryError;
begin
 Application.ShowException(FQueryException);
end;

procedure TIBBackGroundQuery.ConnectDataSource;
begin
 FDS.DataSet := FIBQSequences;
 FDS.DataSet.Active := true;
end;

procedure TIBBackGroundQuery.Execute;
begin
 { Place thread code here }
 try
 FIBDB:= TIBDataBase.Create(nil);
 FIBDB.LoginPrompt := false;
 FIBT := TIBTransaction.Create(nil);
 FIBDB.DatabaseName := FDBName;
 FIBDB.Params.Assign(FDBParams);
 FDBParams.Free;
 FIBT.Params.Clear;
 FIBT.Params.Add("read_committed");
 FIBT.Params.Add("rec_version");
 FIBT.Params.Add("nowait");
 FIBDB.DefaultTransaction := FIBT;
 FIBT.DefaultDatabase := FIBDB;
 FIBQSequences:= TIBQuery.Create(nil);
 FIBQSequences.Database := FIBDB;
 FIBQSequences.Transaction := FIBT;
 FIBQSequences.SQL.Clear;
 FIBQSequences.SQL.Add(FSQLString);

 FIBQSequences.Open;
 Synchronize(ConnectDataSource);
 except
   FQueryException := ExceptObject as Exception;
   Synchronize(ShowQryError);
 end;
end;

end.


 
galexis ©   (2004-09-06 17:03) [35]


> Digitman ©

Так и есть, кушать хочется!


 
galexis ©   (2004-09-06 17:12) [36]


> Анонимщик ©   (06.09.04 16:58) [34]

Только не убивайте..
Можно теперь кусочек кода создания этого потока?


 
Анонимщик ©   (2004-09-06 17:19) [37]

Интересно, что ты с ним делать будешь?

var
 IBBackQ: TIBBackGroundQuery;
begin
 IBBackQ := TIBBackGroundQuery.Create("127.0.0.1:c:\1.gdb", nil, "select g from alexis", MyDS);


 
Digitman ©   (2004-09-06 17:20) [38]

это называется - "дай г., дай ложку"


 
galexis ©   (2004-09-06 17:29) [39]


> Анонимщик ©

А как передавать параметры БД, которые nil?


 
Reindeer Moss Eater ©   (2004-09-06 17:33) [40]

Усыпите его кто-нибудь уже.



Страницы: 1 2 вся ветка

Форум: "Базы";
Текущий архив: 2004.10.03;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.55 MB
Время: 0.032 c
3-1094566704
Виталий Панасенко
2004-09-07 18:18
2004.10.03
Обновление VIEW


1-1095255534
Gemini
2004-09-15 17:38
2004.10.03
Ширина кнопки


14-1095092172
}|{yk
2004-09-13 20:16
2004.10.03
Сабо обозвал Интернет "сборищем бомжей с Бессарабки"


14-1095230405
Igorek
2004-09-15 10:40
2004.10.03
Ой, верните назад


3-1094046818
Heretic
2004-09-01 17:53
2004.10.03
Регистрация Ehlib





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский