[ALexandr555]

У меня вопрос, делал синхронизацию(synchronize) при работе с Label и memo из потока, но все равно баги были страшные пришлось убрать, с чем могло быть связанно? не из за того что в этот момент могла быть работа из основного кода с этим же memo?

[lmikle]

сомнительно, этот метод как раз и предназначен для того, что бы основной поток и дополнительный не мешались. Вообще, для синхронизации преднвзначен объект TCriticalSection.

[NumLock]

показал бы "не правильно работающий код" с Synchronize?

[ALexandr555]

Код:

 addmesseg:='(' + DateTimeToStr(Now()) + ') '+'отправлен запрос в плагин=> '+ UIN;
 Memo2.Lines.Add(addmesseg);
 writeln(logfile1,addmesseg);
 inc(statistik1);
 Label1.Caption:=IntToStr(statistik1);
 @plugExec := GetProcAddress(PPluginInfo(listKomand.Items[n1])^.handle,'PluginExec');
 Result:=PlugExec(UIN, Msg,PPluginInfo(listKomand.Items[n1])^.Index);
 i:=random(10);
   case i of
    0: ;
    1: Result:=Result+#10#13+rekl1.text;
    2: Result:=Result+#10#13+rekl2.text;
    3: Result:=Result+#10#13+rekl3.text;
    4: Result:=Result+#10#13+rekl4.text;
    5: Result:=Result+#10#13+rekl5.text;
    6: Result:=Result+#10#13+rekl6.text;
    7: Result:=Result+#10#13+rekl7.text;
    8: Result:=Result+#10#13+rekl8.text;
    9: Result:=Result+#10#13+rekl9.text;
  end;
form1.MessageSend(UIN,Result,nomer);

вот это у меня было в процедуре которую вызывал через Synchronize
ну и в программе этот поток ежесекундно раз по 3-5 вызывался
изначально все было нормально, через минут 5 потом "началось"

[NumLock]

а если оставить только это:

Код:

var
  addmesseg: String;
begin
  addmesseg:='(' + DateTimeToStr(Now()) + ') '+'отправлен запрос в плагин=> 100';
 Memo2.Lines.Add(addmesseg);
// writeln(logfile1,addmesseg);
// inc(statistik1);
 Label1.Caption:=IntToStr(99);
end;

будут глюки?

[ALexandr555]

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

[ALexandr555]

просто без этого то код бесполезный совершенно)

Код:

 @plugExec := GetProcAddress(PPluginInfo(listKomand.Items[n1])^.handle,'PluginExec');
 Result:=PlugExec(UIN, Msg,PPluginInfo(listKomand.Items[n1])^.Index);
 i:=random(10);
   case i of
    0: ;
    1: Result:=Result+#10#13+rekl1;
    2: Result:=Result+#10#13+rekl2;
    3: Result:=Result+#10#13+rekl3;
    4: Result:=Result+#10#13+rekl4;
    5: Result:=Result+#10#13+rekl5;
    6: Result:=Result+#10#13+rekl6;
    7: Result:=Result+#10#13+rekl7;
    8: Result:=Result+#10#13+rekl8;
    9: Result:=Result+#10#13+rekl9;
  end;
form1.MessageSend(UIN,Result,nomer);

вот так стабильно работает, перед вызовом потока делал работу с memo и label, не желательно конечно но обойдусь (хотя есть идея переписать некоторые моменты отказавшись от VCL компонентов, заменить ListBox'ы на StringList'ы к примеру)

А вот для такой работы с бд,

Код:

Query.SQL.text:='UPDATE bdbot SET INFObd=:par1 where UINbd=:par2';
Query.Parameters.ParamByName('par1').Value:=pacet.mesg;
Query.Parameters.ParamByName('par2').Value:=pacet.param2;
Query.ExecSQL;

или

Код:

Query.SQL.text:='Select UINbd from bdbot where nomber=:id';
Query.Parameters.ParamByName('id').Value:=Msg;
Query.Open;

синхронизация необходима?

[PhoeniX]

Query создаётся внутри потока, или на форме?

[ALexandr555]

не понял...
Query уже настроено на форме ни там ни там не создаю

[lmikle]

Сообщение от ALexandr555

не понял...
Query уже настроено на форме ни там ни там не создаю

Угу, конечно будут глюки.
Пользуй CriticalSection для синхронизации. Synchronize обеспкчиает только синхронизации отрисовки.

[ALexandr555]

отрисовки? это простые добавления? в memo и т.д.?
А чем CriticalSection лучше основного потока? ведь если критическая занята все рано ждем.

[NumLock]

во время выполнения запросов в потоке отключай визуальные компоненты:
DataSource.Enabled:=False;

[ALexandr555]

Спасибо, а нельзя работать без визуального? без DBGrid, седалал запрос на поиск и он возвращает найденое, или nill в случае если не нашли.

[NumLock]

да запросто.

[ALexandr555]

просто гугл по запросу "Не визуальная работа с бд" и "работа с бд без dbgrid" молчит