[Рубь]

Доброго времени суток. Профи, подскажите, как решить проблемку чтения из Мемо, если в мемо строка передается из потока читающего Сом порт.
В двух словах – пишу обмен между компом и внешним контроллером (для отладки взял Ардуино).
Команды проходят – ардуино отрабатывает и отвечает, ответы я вижу в Мемо, но тут как раз и проблема. Если посылать команды кнопкой
как пример:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

procedure TForm1.Button5Click(Sender: TObject); begin  WriteComm(Form1.ComboBox1.Text); end;   То ответ в мемо виден, и его другой кнопкой можно обработать,  нпример так:    procedure TForm1.Button7Click(Sender: TObject); begin   Form1.Memo2.Text:=Form1.Memo1.Text; end;   и эта строка доступна для анализа. Но,  если  это делать в процедуре типа :   procedure TForm1.Button6Click(Sender: TObject); var motorX :string; begin motorX:= ‘  ATS=X200 ’; WriteComm(motorX);   sleep(100);   Memo2.Lines.Text:= Memo1.Lines.Text; …….. ……… end;

Админ: Пользуемся тегами при оформлении кода!

то строка(ответ от контроллера) в мемо1 приходит, но не копируется из мемо1 в мемо2 и проанализировать ответ нельзя.
Я понимаю, что поток чтения порта , процедурой синхронизации блокирует чтение мемо1 , что это разные потоки, но если запускать копирование кнопкой из главной формы то оно проходит. Как получить данные в процедуре ? Подскажите плизз.

[lmikle]

Просто ответ не успевает, видимо, прийти за время задержки.
Лови OnChange в Memo1 и копируй в Memo2 в этот момент.

ЗЫ. Почитай об ассинхронных вызовах для понимания теории.

[Рубь]

Спасибо за ответ,
но про задержку я подумал в первую очередь, не причём оказалась пробовал до

Код:

1	sleep(1000);

от момента отправки строки в контроллер. Отклик приходит гарантированно раньше
------
Чтение порта и запись в Мемо1 синхронизируется между основным потоком и потоком чтения порта:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

begin     ClearCommError(ComFile, Temp, @ComStat);                 //Заполняем структуру ComStat;     Btr:=ComStat.CbInQue;                                    //Получаем из структуры количество байт;     If (Btr > 0) then                                      //Если байты присутствуют,     begin         ReadFile(ComFile, Buffer, SizeOf(Buffer), Temp, @OverRead); //Читаем порт;         Synchronize(OutToMemo);              //Делаем синхронный вызов процедуры загрузки буфера в Memo;     end;  end; ...... ...... procedure MyThread.OutToMemo; begin   Form1.Memo1.Lines.Text:=Form1.Memo1.Lines.Text+(String(buffer)); {Загружаем в Memo содержимое буфера;}   Buffer:=''; //Очищаем переменную буфера; end;

тут как бы то же всё стандартно.......................
приоритет потока в котором крутится чтение порта - tpNormal,
однако чтение Мемо1 в Мемо2 не проходит (

[lmikle]

Onchange в Memo1 срабатывает?

[Рубь]

Вечер добрый.
Да срабатывает, но не так как ожидаю.
К стати, спасибо за идею про Onchange , программка по другому себя ведёт,
чем при прямом копировании , хотя и не позволяет анализировать ответ.
Вот думаю, как вопрос по другому сформулировать , чтобы понятнее было, я возможно косноязычно об'ясняюсь. Чуть позже отпишусь.

[lmikle]

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

[Рубь]

Извиняюсь заранее за об'ем, но так наверно понятнее будет почему я хочу получить доступ к анализу данных из порта.
Есть простой файл с координатами, структура строки X2.54Y10.16
для примера 3 строки.
читаем, строим команды для моторХ и моторY, отправляем на контроллер проверяем ответ.
Если есть ответ значит есть связь, значит можно отправлять запрос на окончание отработки команды. Ситуация стандартная.
Вот как это пытался реализовать (на получении доступа к ответу из порта застрял )

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86

procedure TForm1.Button6Click(Sender: TObject); var i,k,z  :integer; motorX :string; motorY :string; memstr :string;   begin   if form1.OpenDialog1.Execute then Memo3.Lines.LoadFromFile(OpenDialog1.FileName);   i:=Memo3.Lines.Count;   while i >= 0   do   begin     if (copy(Memo3.Lines.Strings[i],1,1) <>'X') then Memo3.Lines.Delete(i);     i:=i-1;   end; //-------------------------------------файл загрузили в мемо3 k:=0; while(k <= Memo3.Lines.Count-1) do     // цикл по записям(всего 3 строки по 2е координаты                                        // структура строки X2.54Y7.62) begin   memstr := Memo3.Lines.Strings[k];   i:=2;   while memstr[i]<>'Y' do                         //собираем в tmpstr координату Х   begin     if memstr[i]<>'.'then motorX := motorX+memstr[i];  //игнорим разделитель х100     inc(i);   end;   inc(i);     while i<= length(memstr) do                     //собираем в tmpstr координату Y   begin     if memstr[i]<>'.'then motorY := motorY+memstr[i];  //игнорим разделитель х100     inc(i);   end; //-------------------------------------------------------  // точки вытащили  далее отправляем команды   //  ststX:='NO';               //глобальный флаг состояния мотора X //  ststY:='NO';               //глобальный флаг состояния мотора Y //  Memo1.Lines.Clear;         // чистим мемо //  Memo2.Lines.Clear;     motorY := 'ATS=Y'+motorY;  //собираем команду для X   WriteComm(motorY);         // отправляем на двигатель   sleep(100);                //это очень много но для отладки норм     motorX := 'ATS=X'+motorX;  //собираем команду для Y   WriteComm(motorX);         // отправляем на двигатель   sleep(100);                //это очень много но для отладки норм     // в контроллере код написан так, что ответка формируется сразу при приёме команды   // т.е время отклика небольшое менее ~10мс   // Т.О. в этот момент должен дважды прийти ответ и отработать TForm1.Memo1Change.   // если я правильно понимаю то должно быть 6 вызавов TForm1.Memo1Change из 3х строк     if((ststX='OK')and(ststY='OK'))then   begin    Form1.Caption:= IntToStr(k)+'  OK';    sleep(1000);         // это что бы понять где мы   //сдесь планировалось послать запрос на окончание отработки команды   //проанализировать окончание и перейти к след. строке   inc(k);   end   else   begin     Form1.Caption:= IntToStr(k)+'  No';     sleep(1000);         // это что бы понять где мы     inc(k);              //пока переход на след строку, нодолжен быть обработчик ошибки   end;   end; end;   procedure TForm1.Memo1Change(Sender: TObject); var j :integer; begin   Memo2.Lines.Text := Memo1.Lines.Text;   for j:=0 to Memo2.Lines.Count-1 do   begin     if pos('ATSXOK',Memo2.Lines.Strings[j])>0 then ststX:='OK' else ststX:='NO';     if pos('ATSYOK',Memo2.Lines.Strings[j])>0 then ststY:='OK' else ststY:='NO';   end;   inc(nn);   Form1.Caption:= Form1.Caption + '  '+ IntToStr(nn); //считаем сколько раз отработало end;

после выполнения в caption метки о трёх проходах, о трех вызовах Memo1Change и не одного успешного отклика.

[Рубь]

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

[Рубь]

По моему в логике есть ошибка. надо немного переписать. Надо обработку команд для Х и Y разнести как две независимые ветки(возможно функции). В любом случае Спасибо за помощь. Если что то не пойму я отпишусь в теме. Еще раз Спасибо. Беру таймаут.