Транзакция

[eval]

соединение с базой у вас одно?

[Aleksandr]

Да с помощью ZConnection

[Аватар]

Скорее всего своё соединение с базой нужно для каждого потока и, соответственно, свой ZConnection. Или синхронизация между потоками с одним ZConnection. Что касается сообщения об ошибке, то AutoCommit отключено, соответственно нужны явные транзакции

[Aleksandr]

Что значит явные транзакции?
А как включить AutoCommit?
В ZConnection AutoCommit стоит в true

[Аватар]

Что значит явные транзакции?

То, с чего исходный вопрос и начинался

А как включить AutoCommit

Не знаю этого компонента, видимо в свойствах ZConnection поискать

[Aleksandr]

Вот мой код для 3-й вкладки для остальных подобный. Или это можно как-то по другому реализовать?

procedure terminal3;
   var str: String;
  S, S1,d1: String;
  s3:real;
  a,b:integer;
  i1,i2: Integer;
  r,m : double;
  i:integer;
  JpegIm: TJpegImage;
  bm: TBitMap;
  d3,d2: TDateTime;
  buf:string;
  v:integer;
 begin
MainForm.IdTCPClient3.Host :=MainForm.labelIP3.Caption;
MainForm.IdTCPClient3.Port := StrToInt(MainForm.LabelPort3.caption);
MainForm.IdTCPClient3.Connect(5000);
MainForm.Memo3.Enabled := True; MainForm.Memo3.Color := clWindow;
MainForm.AddLogWrite('Connect ...... ');
MainForm.RzGlyphStatus4.ImageIndex:=3;
Led0.Brush.Color := clBlue;
try
   repeat
   sleep(5);
   str:=MainForm.IdTCPClient3.Readln();
   if str<>'' then begin
   MainForm.Memo3.Lines.Add(str);
buf:='';
for v:=1 to length(str) do
if str[v] in ['0'..'9', '.', ','] then buf:=buf+str[v];
s1:=buf;
s1:=StringReplace(s1, '.',',' , [rfReplaceAll]);
i1:=Pos(',',s1);
if i1>0 then begin
i2:=PosEx(',',s1,i1+1);
if i2>0 then s1:=Copy(s1,1,i2-1)+Copy(s1,i2+1,Length(s1)-i2);
end;
r:=RoundTo(StrToFloatDef(s1,0),-2);
MainForm.Edit3.Text:=Floattostr(r);
if (r > 0) AND (r <> last_massa) then
begin
MainForm.edtNotes3.Text:=MainForm.edtNotes3.Text+MainForm.Edit3.Text+#9+DateToStr(now) +#9+TimeToStr(now) +#13#10;
if strtofloat(MainForm.Edit3.Text)>strtofloat(OptionForm.RzEdit4.Text) then
begin
sleep(50);
MainForm.ZConnection3.StartTransaction;
try
MainForm.zQuery3.SQL.Clear;
MainForm.zQuery3.SQL.Add ('INSERT INTO base (Date_posting, Time_posting, num, Massa, Name, Image, Com, BaudRate, Organization, Location, IP, Note, Model, Equopment, Linkey, Stable_weight, Image_kamera)' );
MainForm.zQuery3.SQL.Add(' Values (:date1, :date2, 1, :massa, :name,''image'', :port, :BaudRate, :Organization, :Location, :Ip, :Note, :Model, :Equopment, :Linkey, 0, :adress)');
d3:=Trunc(Date);
d2:=frac(time);
MainForm.zQuery3.ParamByName('date1').Value:=d3;
MainForm.zQuery3.ParamByName('date2').Value:=d2;
MainForm.zQuery3.ParamByName('massa').Value:=MainForm.Edit3.Text;
MainForm.zQuery3.ParamByName('name').Value:=MainForm.labelModel3.Caption+' '+MainForm.LabelEquopment3.Caption;
MainForm.zQuery3.ParamByName('port').Value:=MainForm.labelPort3.Caption;
MainForm.zQuery3.ParamByName('BaudRate').Value:=MainForm.LabelBaudRate3.Caption;
MainForm.zQuery3.ParamByName('Organization').Value:=MainForm.LabelOrganization3.Caption;
MainForm.zQuery3.ParamByName('Location').Value:=MainForm.LabelLocation3.Caption;
MainForm.zQuery3.ParamByName('Ip').Value:=MainForm.LabelIp3.Caption;
MainForm.zQuery3.ParamByName('Note').Value:=MainForm.labelNote3.Caption;
MainForm.zQuery3.ParamByName('Model').Value:=MainForm.labelModel3.Caption;
MainForm.zQuery3.ParamByName('Equopment').Value:=MainForm.labelEquopment3.Caption;
MainForm.zQuery3.ParamByName('Linkey').Value:=MainForm.labelLinkey3.Caption;
MainForm.zQuery3.ParamByName('adress').Value:=OptionForm.DirectoryEdit1.Text+'\NO.jpg';
MainForm.zQuery3.ExecSQL;
MainForm.ZConnection3.Commit;
Except
MainForm.ZConnection3.Rollback;
end;
last_massa := r;
     end;
  end;
        until str='';
    finally
    MainForm.Timer5.Enabled:=true;
    end;
 end;

[eval]

и такая партянка для всех вкладок повторяется? ужас

[Aleksandr]

к сожалению да.

[Aleksandr]

А как можно это реализовать по другому?

[eval]

это все опять в отдельном потоке? разберитесь сначала с потоками