| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

вопрос про поток. [D7, XP]

Страницы:   < 1 2 3 >

vegarulez ©   (2008-09-29 10:31:00) 

не могу понять...
при нажатии button1, на котором висит запуск потока - не работает.
выдаёт ошибку при  Connected:=true; к БД...
если же нажать button2, а потом button1 - всё работает... ничего не понимаю...  подскажите где собака порылась?

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, SendMail, ZAbstractRODataset, ZAbstractDataset, ZDataset, ZConnection;

type
 TForm1 = class(TForm)
   Button1: TButton;
   Memo1: TMemo;
   Button2: TButton;
   procedure Button1Click(Sender: TObject);
   procedure Button2Click(Sender: TObject);
 private
   { Private declarations }
 public
 Thread_SendMail:Tmsgsend;
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Thread_SendMail:=Tmsgsend.Create(False);
Thread_SendMail.priority:=tpNormal;
end;

// далее копия потока, вызываемого по батону1 забиндинная на батон2... для проверки.

procedure TForm1.Button2Click(Sender: TObject);
var
s:string;
i,j:integer;
smsg: array[0..4] of string;
myzconection: TZConnection;
myzquery: TZQuery;
myList:TstringList;
begin
 //FormMain.sendmail:=1;
 myList:=TStringList.Create;
 j:=0;
 myzconection:= TZConnection.Create(nil);
 myzquery:= TZQuery.Create(nil);
 With myzconection do
  try
   Database:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\a.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False';
   Protocol:='ado';
   Loginprompt:=false;
   try
    Connected:=true;
     except
     on E: Exception do
      MessageDlg('Error' +#10#13+ E.Message +#10#13+ inttostr(E.HelpContext), mtWarning,[mbOk], 0);
    end;
  With myzquery do
   try
   Connection:=myzconection;
   Sql.Text:='Select `id`,`c_date`,`check_id`,`oper_num`,`c_sum` from `payment` where `sflag`=0  and `flag`=0 ORDER BY id ASC';
   open;
       While not Eof do
        begin
         for j:=0 to FieldCount-1 do
          smsg[j]:=Fields[j].AsString;
          myList.Append(FormatDateTime('DD.MM.YYYY',myzquery.Fields[1].Asdatetime)+#9+FormatDateTime('hh:nn:ss',myzquery.Fields[1].Asdatetime)+#9+myzquery.Fields[2].AsString+#9+myzquery.Fields[3].AsString+#9+StringReplace(myzquery.Fields[4].AsString, ',', '.', [rfReplaceAll])+#13);
          Form1.Memo1.Text:=Mylist.Text;
          Next;
        end;

    except on E: Exception do
    Begin
     MessageDlg('Error #3' +#10#13+ E.Message +#10#13+ inttostr(E.HelpContext), mtWarning,[mbOk], 0);
    End
   end;
  finally
   myList.Free;
   myzconection.Disconnect;
   myzquery.Free;
   myzconection.Free;
  end;
end;

end.

далее код потока

unit SendMail;

interface

uses
 Classes, SysUtils, QDialogs, ZAbstractRODataset, ZAbstractDataset, ZDataset, ZConnection;

type
 Tmsgsend = class(TThread)
 private
   { Private declarations }
 protected
   procedure Execute; override;
 end;

implementation
uses  unit1;

procedure Tmsgsend.Execute;
var
s:string;
i,j:integer;
smsg: array[0..4] of string;
myzconection: TZConnection;
myzquery: TZQuery;
myList:TstringList;
begin

 //FormMain.sendmail:=1;
try
 myList:=TStringList.Create;
 j:=0;
 myzconection:= TZConnection.Create(nil);
 myzquery:= TZQuery.Create(nil);
 With myzconection do
  try
   Database:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\a.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False';
   Protocol:='ado';
   Loginprompt:=false;
   Connected:=true;
   except on E: Exception do
      MessageDlg('Error' +#10#13+ E.Message +#10#13+ inttostr(E.HelpContext), mtWarning,[mbOk], 0);
   end;
  With myzquery do
   try
   Connection:=myzconection;
   Sql.Text:='Select `id`,`c_date`,`check_id`,`oper_num`,`c_sum` from `payment` where `sflag`=0  and `flag`=0 ORDER BY id ASC';
   open;
       While not Eof do
        begin
         for j:=0 to FieldCount-1 do
          smsg[j]:=Fields[j].AsString;
          myList.Append(FormatDateTime('DD.MM.YYYY',myzquery.Fields[1].Asdatetime)+#9+FormatDateTime('hh:nn:ss',myzquery.Fields[1].Asdatetime)+#9+myzquery.Fields[2].AsString+#9+myzquery.Fields[3].AsString+#9+StringReplace(myzquery.Fields[4].AsString, ',', '.', [rfReplaceAll])+#13);
          Form1.Memo1.Text:=Mylist.Text;
          Next;
        end;

    except on E: Exception do
    Begin
     MessageDlg('Error #3' +#10#13+ E.Message +#10#13+ inttostr(E.HelpContext), mtWarning,[mbOk], 0);
    End
   end;
  finally
   myList.Free;
   myzconection.Disconnect;
   myzquery.Free;
   myzconection.Free;
  end;
end;

end.

---

brother   (2008-09-29 12:04:00) [21]

ты что курил?

---

vegarulez   (2008-09-29 12:03:00) [22]

brother ©   (29.09.08 12:02) [32]

на что??? Ну всё что он в ошибке выдаёт - я написал. ну на что ответить то ещё?????

---

brother   (2008-09-29 12:02:00) [23]

строк больше? ты почему упорно не хочешь ответить, что тебя спросили? партизан?

---

vegarulez   (2008-09-29 12:00:00) [24]

Сергей М. ©   (29.09.08 11:57) [28]
мл.....
вы что издеваетесь что ле??????
Я про одно вы про другое... да при чём тут мемо и т.п. ....
главный вопрос кратко:

ПОЧЕМУ:
при
procedure TForm1.Button1Click(Sender: TObject);
var
myzconection: TZConnection;
begin
myzconection:= TZConnection.Create(nil);
With myzconection do
 try
  Database:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\tu.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False';
  Protocol:='ado';
  Loginprompt:=false;
  Connected:=true;
 finally
  myzconection.Disconnect;
  myzconection.Free;
 end;

Thread_SendMail:=Tmsgsend.Create(False);
Thread_SendMail.priority:=tpNormal;
end;

Не РАВНО

procedure TForm1.Button1Click(Sender: TObject);
begin

Thread_SendMail:=Tmsgsend.Create(False);
Thread_SendMail.priority:=tpNormal;
end;

---

Сергей М.   (2008-09-29 11:59:00) [25]

> vegarulez ©   (29.09.08 11:57) [29]


Ответы на [24], [26] будут ?

---

Сергей М.   (2008-09-29 11:57:00) [26]

> sniknik ©   (29.09.08 11:51) [25]


Все просто - автор пытается пользовать отладчик, но при этом ему не доверяет и дублирует отладочную информацию кривыми "плевками" в Мемо)

---

vegarulez   (2008-09-29 11:57:00) [27]

Сергей М. ©   (29.09.08 11:54) [26]

Ну я же не совсем валенок ))) Ну есть там это слово - оно создано рукотворно - я его опустил просто чтоб не заморачивать вас лишним словом. Есть канешно Error - далее перенос каретки - как и полагается. Всё как я и написал в программе.

---

vegarulez   (2008-09-29 11:55:00) [28]

> sniknik ©   (29.09.08 11:47) [23]

Да при чём тут это то?


> sniknik ©   (29.09.08 11:41) [21]


procedure TForm1.Button1Click(Sender: TObject);
var
myzconection: TZConnection;
begin
 myzconection:= TZConnection.Create(nil);
 With myzconection do
  try
   Database:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\tu.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False';
   Protocol:='ado';
   Loginprompt:=false;
   Connected:=true;
  finally
   myzconection.Disconnect;
   myzconection.Free;
  end;

Thread_SendMail:=Tmsgsend.Create(False);
Thread_SendMail.priority:=tpNormal;
end;

ну канеш так работает. тоже самое и содержится в буттоне2. Я их специально разнёс в разные баттоны - чтобы показать разницу.
Почему сразу не раблотает!!!! Вот в чём вопрос? Почему нужно сначало из главного потока сделать конексед=тру, иначе дочерний не может почему-то. Вот в чём вопрос. не нужно рассказов про vcl. На этот вопрос кто-нибудь может ответить?

---

Сергей М.   (2008-09-29 11:54:00) [29]

> После того как прохожу Connected:=true; - Велетаю на except


При этом ты должен был получить текст сообщения об исключении, начинающийся со слова 'Error'.

В [3] это слово не фигурирует, что наводит на мысль, что исключение вызвано вовсе не этой строчкой.

Что говорит IDE об адресе 004DBE9 ?

---

sniknik   (2008-09-29 11:51:00) [30]

>       While not Eof do
>        begin
>         for j:=0 to FieldCount-1 do
>          smsg[j]:=Fields[j].AsString;
         > myList.Append(FormatDateTime('DD.MM.YYYY',myzquery.Fields[1].Asdatetime)+#9+FormatDateTime('hh:nn:ss',myzquery.Fields[1].Asdatetime)+#9+myzquery.Fields[2].AsString+#9+myzquery.Fields[3].AsString+#9+StringReplace(myzquery.Fields[4].AsString, ',', '.', [rfReplaceAll])+#13);
>          Form1.Memo1.Text:=Mylist.Text;
>          Next;
>        end;

зачем тебе менять Memo1.Text столько раз сколько записей? здесь тормозов столько что...
поток не нужен.

---

Сергей М.   (2008-09-29 11:50:00) [31]

> Вот вся логика


Ну что тут сказать ? Логика дилетанта)
Перед шагом следовало проверить, что myzconectionкак минимум  <> nil

---

sniknik   (2008-09-29 11:47:00) [32]

MessageDlg тоже vcl-ная функция, со всеми последствиями.

---

vegarulez   (2008-09-29 11:43:00) [33]

Сергей М. ©   (29.09.08 11:37) [19]

пробегаю по потоку F8 брек поинт стоит в самом начале. После того как прохожу Connected:=true; - Велетаю на except. Вот вся логика.

---

sniknik   (2008-09-29 11:41:00) [34]

> Вот что меня вводит в откровенный ступор.
вот так работает?
procedure TForm1.Button1Click(Sender: TObject);
var
myzconection: TZConnection;
begin
myzconection:= TZConnection.Create(nil);
Application.ProcessMessages
Thread_SendMail:=Tmsgsend.Create(False);
Thread_SendMail.priority:=tpNormal;
myzconection.Free;
end;
если да, то если Free; сразу после создания. (проверить, нужна инициализация или внутренний обьект)

> Да неиспользую я ADO... Zeos юзаю!!!
> народ повнимательнее плз....
зато зеос его использует, а ado нужен coinitialize() на каждый поток.

---

Vlad Oshin   (2008-09-29 11:41:00) [35]

я может не в свое лезу, но CoInitializeEx пробовали? Не получилось?
Может буттон1 не инициализирует COM library что надо для ADO, и что бывает если создавать динамически компаненты. А буттон2 инициализирует, после чего и буттон1 начинает работать.

---

Сергей М.   (2008-09-29 11:37:00) [36]

> всё пашет после нажатия буттона2


На начхать на твой "буттон2" !

Я пытаюсь выяснить логику твоего мышления при отладке треда, а не при танцах с бубном вокруг буттонов ..

---

Сергей М.   (2008-09-29 11:35:00) [37]

Т.е. ты ставишь брейкпойнт

procedure Tmsgsend.Execute;
var
..
myzconection: TZConnection;
..
begin
..
myzconection:= TZConnection.Create(nil);
..
With myzconection do
..
  Connected:=true; //  <-- сюда

ловишь его, делаешь шаг и тут же, на этом шагу, имеешь AV с упомянутым адресом 004DBE9 ? И при этом IDE указывает именно на эту же (а не на какую-либо иную) строчку ?

И если брейкпойн поставить

With myzconection //  <-- здесь

то отладчик показывает заведомо корректный (не nil) адрес объекта класса TZConnection ?

---

sniknik   (2008-09-29 11:34:00) [38]

> В чём суицид?
vcl не потокобезопасен, обмен между потоками напрямую не допустим, и т.д.
второй мой пост, фактически про тоже самое в отношении зеос-а, возможно и он тоже сделан "чисто vcl-ным".

> использую Zeos компоненты так что это мимо.
это я понял сразу, потому и написал про аналог. логика блин. в ado есть, зеос использует ado, но круче него (иначе смысл?), а раз так то должен поддерживать такую малость (а вообще весь функционал + чтото дополнительное, свое).

---

vegarulez   (2008-09-29 11:28:00) [39]

2 Сергей

проверь, что всё пашет после нажатия буттона2 даже без синхронизации. почему только после запуска приложения и нажатия первым буттон1 - он сругнётся - нажмёшь на 2-ой и всё кул.... первый начнёт работать... Вот что меня вводит в откровенный ступор.

---

vegarulez   (2008-09-29 11:23:00) [40]

>  Только лишь для отладки


да. поэтому игнорирую.

При пошагавой по F8.

---

Страницы:   < 1 2 3 >

Наверх