Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.11.2013, 16:36   #1
Aleksandr
Форумчанин
 
Регистрация: 22.05.2007
Сообщений: 511
По умолчанию Считывание данных и запись в базу. Не срабатывает ветка условия.

Считываю данные с сокета и записываю в базу
Код:
procedure TClientThread.Execute;
begin
  inherited;
  with Form1 do
  begin
    if not IdTCPClient1.Connected then
       exit;
   repeat
     cmd.text:= IdTCPClient1.ReadLn;
     if trim(cmd.text) <> '' then
     begin
       if VerificaComando(cmd.text,'msg=',true) then
          Synchronize(ShowReceiveMsg)
       else if VerificaComando(cmd.text,'server_error=',true) then
          Synchronize(ShowServerError)
       else Synchronize(UnknowCmd);
     end;
  until not IdTCPClient1.Connected;
end;
{if not Terminated then
Terminate;}
end;
procedure TForm1.ShowReceiveMsg;
begin
  memo1.lines.add(ReceiveMsg(cmd.text));
end;
procedure TForm1.UnknowCmd;
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
str:=cmd.text;
if str<>'' then begin
  Memo1.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);
Edit1.Text:=Floattostr(r);
if (r > 0) AND (r <> last_massa) then
begin
edtNotes1.Text:=edtNotes1.Text+Edit1.Text+#9+DateToStr(now) +#9+TimeToStr(now) +#13#10;
zQuery1.SQL.Clear;
zQuery1.SQL.Add ('INSERT INTO  base_'+labelList1.Caption+' (Date_posting, Time_posting, num, Massa, Name, Image, Com, BaudRate, Organization, Location, IP, Note, Model, Equopment, Linkey, Stable_weight, Image_kamera)' );
zQuery1.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);
zQuery1.ParamByName('date1').Value:=d3;
zQuery1.ParamByName('date2').Value:=d2;
zQuery1.ParamByName('massa').Value:=Edit1.Text;
zQuery1.ParamByName('name').Value:=labelModel1.Caption+' '+LabelEquopment1.Caption;
zQuery1.ParamByName('port').Value:=labelPort1.Caption;
zQuery1.ParamByName('BaudRate').Value:=LabelBaudRate1.Caption;
zQuery1.ParamByName('Organization').Value:=LabelOrganization1.Caption;
zQuery1.ParamByName('Location').Value:=LabelLocation1.Caption;
zQuery1.ParamByName('Ip').Value:=LabelIp1.Caption;
zQuery1.ParamByName('Note').Value:=labelNote1.Caption;
zQuery1.ParamByName('Model').Value:=labelModel1.Caption;
zQuery1.ParamByName('Equopment').Value:=labelEquopment1.Caption;
zQuery1.ParamByName('Linkey').Value:=labelLinkey1.Caption;
zQuery1.ParamByName('adress').Value:='\NO.jpg';
zQuery1.ExecSQL;
last_massa := r;
end;
end
 else
 begin
 //Стабильный вес
m:=StrToFloat(Edit1.Text);
if m>strtofloat(RzEdit1.Text) then
begin
   if PovtorChisla<0  then
begin
    PredChislo := m;
     PovtorChisla := 1
 end
  else
    if m = PredChislo then inc(PovtorChisla)
     else
         begin
         PovtorChisla := 1;
         PredChislo := m;
        end;
   if PovtorChisla = 2 then
    begin
//не срабатывает
edtNotes1.SelAttributes.Style:=edtNotes1.SelAttributes.Style+[fsBold];
edtNotes1.Text:=edtNotes1.Text+Floattostr(m)+#9+DateToStr(now) +#9+TimeToStr(now)+' стабильно' +#13#10;
zQuery1.SQL.Clear;
zQuery1.SQL.Add ('INSERT INTO  base_'+labelList1.Caption+' (Date_posting, Time_posting, num, Massa, Name, Image, Com, BaudRate, Organization, Location, IP, Note, Model, Equopment, Linkey, Stable_weight, Image_kamera)' );
zQuery1.SQL.Add(' Values (:date1, :date2, 1, :massa, :name,''image'', :port, :BaudRate, :Organization, :Location, :Ip, :Note, :Model, :Equopment, :Linkey, 1, :adress)');
d3:=Trunc(Date);
d2:=frac(time);
zQuery1.ParamByName('date1').Value:=d3;
zQuery1.ParamByName('date2').Value:=d2;
zQuery1.ParamByName('massa').Value:=Edit1.Text;
zQuery1.ParamByName('name').Value:=labelModel1.Caption+' '+LabelEquopment1.Caption;
zQuery1.ParamByName('port').Value:=labelPort1.Caption;
zQuery1.ParamByName('BaudRate').Value:=LabelBaudRate1.Caption;
zQuery1.ParamByName('Organization').Value:=LabelOrganization1.Caption;
zQuery1.ParamByName('Location').Value:=LabelLocation1.Caption;
zQuery1.ParamByName('Ip').Value:=LabelIp1.Caption;
zQuery1.ParamByName('Note').Value:=labelNote1.Caption;
zQuery1.ParamByName('Model').Value:=labelModel1.Caption;
zQuery1.ParamByName('Equopment').Value:=labelEquopment1.Caption;
zQuery1.ParamByName('Linkey').Value:=labelLinkey1.Caption;
zQuery1.ParamByName('adress').Value:='\NO.jpg';
zQuery1.ExecSQL;
PovtorChisla := 0;
     end;
end;
end;
a:=memo1.Lines.Count;
  if a>15 then
memo1.Clear;
b:=edtNotes1.Lines.Count;
  if b>1000 then
 edtNotes1.Clear;
end;
procedure TForm1.ShowServerError;
var msg: String;
begin
  msg:= copy(cmd.text,14,length(cmd.text));
  memo1.lines.Add('Ошибка на сервере: ' + msg);
end;
Aleksandr вне форума Ответить с цитированием
Старый 26.11.2013, 18:19   #2
Slym
Участник клуба
 
Регистрация: 07.12.2011
Сообщений: 1,025
По умолчанию

ну елы палы... если ты взял за базу мой код то все не так!!!
в моем коде обращения к label и memo только для обображения, остальное все в TabData
не нравится мне это
Код:
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);
покажи что на самом деле приходит
крепи проект тяжело так смотреть
да и какая ветка?
Не стесняемся, плюсуем!

Последний раз редактировалось Slym; 26.11.2013 в 18:36.
Slym вне форума Ответить с цитированием
Старый 26.11.2013, 18:21   #3
Aleksandr
Форумчанин
 
Регистрация: 22.05.2007
Сообщений: 511
По умолчанию

Та нет это другой код.
Aleksandr вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Одновременная запись в базу данных MySQL Aleksandr БД в Delphi 12 13.11.2013 17:32
Запись в базу данных elena111 ASP.NET 7 10.05.2013 09:56
Укоротить запись условия. agregator Microsoft Office Excel 2 14.04.2010 17:52
Запись условия в виде логических выражений dancergirl Помощь студентам 3 26.03.2009 04:04
Запись из файла txt или mdb в базу данных DerSky БД в Delphi 6 09.06.2008 12:50