Протокол обмена весового терминала Мидл МИ ВДА/7Я и приложения на Delphi 7 (Pascal).

Добрый день!

Думаю, что помогу тем, кто решит создать проект с использованием оборудования данного производителя.

Процедуру настройки терминала для работы в режиме команд не буду здесь описывать.

Для отправки команды в терминал:

var

b:array[0..1] of Byte;

begin

ComPort1.Open;

b[0]:= $0A;

ComPort1.Write(b[0],1);

Sleep(150);

Для принятия данных с терминала:

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);

var

e,e1,e2,e3,e4,e5,e6, e7, e8, e9, e10, e11, e12, e13, e14, e15, e16, e17, e18, e19 :string;

d: array[0..19] of Byte;

begin

ComPort1.Open;

ComPort1.Read(d, Count);

e:= FloatToStr(d[0]);

e1:=FloatToStr(d[1]);

e2:=FloatToStr(d[2]);

e3:=FloatToStr(d[3]);

e4:=FloatToStr(d[4]);

e5:=FloatToStr(d[5]);

e6:=FloatToStr(d[6]);

e7:=FloatToStr(d[7]);

e8:=FloatToStr(d[8]);

e9:=FloatToStr(d[9]);

e10:=FloatToStr(d[10]);

e11:=FloatToStr(d[11]);

e12:=FloatToStr(d[12]);

e13:=FloatToStr(d[13]);

e14:=FloatToStr(d[14]);

e15:=FloatToStr(d[15]);

e16:=FloatToStr(d[16]);

e17:=FloatToStr(d[17]);

e18:=FloatToStr(d[18]);

e19:=FloatToStr(d[19]);

Memo1.Text := e5+e4+e3+e2+e1+e;

Подписывайтесь на мой канал, если желаете. Успехов!