[angvelem]

Пробуй передавать не число, а ссылку на структуру.
Или, как вариант: Перед передачай, подставляй вначале какой-нибудь спец-символ, при приёме - удаляй.

[Darlok]

Решение нашел. DWORD(PChar(dt))
dt - переменная для чисел из буфера

[Darlok]

raised exception class econverterror with message

Код:

var
   txt,tg:string ;
begin
  txt :=string(mess.WParam);
  tg:=IntToStr(Mess.LParam);
Label8.Caption:=(tg+' || '+txt);
Edit13.Text:=txt;
Edit14.Text:=(tg);
ReadData(StrToInt(tg));

ReadData - процедура перевода байтов в температуру. Собственно постоянно ловлю ошибку: raised exception class econverterror with message"
После первой кавычки идет пустота. Просто ничего нет.. Хелп... Уже последний шаг остался и тут такое

[cotseec]

имхо лучше так

Код:

....
ReadData(Mess.LParam);
...

на какой именно строке возникает ошибка? тут как минимум две конвертации, да и еще неизвестно, что в процедуре ReadData

[Darlok]

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

имхо лучше так

Код:

....
ReadData(Mess.LParam);
...

на какой именно строке возникает ошибка? тут как минимум две конвертации, да и еще неизвестно, что в процедуре ReadData

Ошибка возникает на Edit14.Text:=(tg);
От ком-порта в приходит набор байтов. Они сначало записываются в массив, а потом слепливаются в одну строку которая передается на WParam. В Lparam передается количество байт в буффере (количество загоняется в переменную n). WParam успешно передается в Edit и так же отрабатывается в процедуре ReadData (в процедуре по формуле каждые 4 байта считаются и уже выходит конечный результат). А вот количество(n) не желает передаваться..
Обработка

Код:

procedure TWorkThread.Execute;
var
i,n:integer;
BufRD:array[0..17] of byte;
TempCab:array[0..1] of byte; //massiv dlya command
  u:Integer; //nomer cabiny
  DT{dry tmp},RDT:string;
begin
u:=FData+128+64;
TempCab[0]:=(u);
TempCab[1]:= 129;
DM.Comm1.SetRTS(true);
Sleep(20);
DM.Comm1.WriteBuf(TempCab, Length(TempCab));
sleep (20);
DM.Comm1.SetRTS(false);
Sleep(50);
Sleep(50);
Sleep(50);
Sleep(50);
Sleep(50);
n:=DM.Comm1.ReadBufUsed;
DM.Comm1.ReadBuf(BufRD[0],n);
for i:=0 to n-1 do DT:=DT+IntToStr(BufRD[i]);
SendMessage(FWndThread,MY_MESSAGE,DWORD(dt),n);   
  end;
procedure TWorkThread.Get;
begin
end;

Код:

procedure TMnFrm.ReadData();
var
  i:Integer;
  ty:integer;
BufMC:array [0..17] of Integer;
DT{dry tmp},RDT:integer;
begin                                 //Edit13 - набор байтов Edit14 - количество
  ty:=StrToInt(Edit14.text);
  for i:=0 to Length(Edit13.Text) do  BufMC[i]:= strtoint(Edit13.Text[i]);
  case ty of
   0:begin
        label2.Color:=clRed;
        label6.Color:=clRed;
        label7.Color:=clRed;
               color:=clred;
        Label9.Caption:='';
        Label9.Caption:=' нет связи!!! ';
        label2.Caption:='XXX';
        label6.Caption:='XXX';
        label7.Caption:='XXX';
        TimerSeren.Enabled:=true;
        TimerRunLabel.Enabled:=true;
      end;

  14:begin
          label2.Color:=clYellow;
          label6.Color:=clYellow;
          label7.Color:=clYellow;
          color:=clyellow;
          Label9.Caption:='';
          TimerRunLabel.Enabled:=false;
          TimerSeren.Enabled:=false;
          TimerDatch.Enabled:=false;        
       DT:=256*BufMC[0]+16*BufMC[1]+BufMC[2];
            if BufMC[3]=0 then BufMC[3]:=1 else
       RDT:=16 mod BufMC[3];
            Label2.Hint:=(IntToStr(DT)+(',')+ FloatToStr(RDT));
            Label2.Caption:=(IntToStr(DT)+(',')+ FloatToStr(RDT));
     Sravn(Edit4.text, edit6.Text,Edit8.text, label2.caption,1);
     end 
         else
    begin
//ShowMessage(IntToStr(n));
       end;
  end;
end;

На то что передается через эдиты прошу не обращать внимания, я уже всё под ряд пытался делать..

[cotseec]

передавать данные

Код:

...
   SendMessage(FWndThread,MY_MESSAGE,integer(PChar(DT)),n);
...

принимать данные

Код:

...
   txt :=string(PChar(Mess.Wparam));
   tg:=IntToStr(Mess.LParam);
...

З.Ы. имхо лучше передавать указатель на буфер и работать с байтами, а не конвертировать в String и потом высчитывать (но в этом случае процедуру ReadData необходимо переписать)

[Darlok]

Считывание байтов как и их пересчет работают словно часы. Проблема возникла именно с передачей количества. Хотя сейчас попробую применить PChar и для количества

[cotseec]

в чем смысл передавать integer, как указатель (PChar)
у вас массив из 18 байт, а если в порт пришло больше 18 байт и вы читаете это в уже выделенную область памяти - что-нибудь попортите вне этой области (может значение n)
прикрепляю пример, там все передается

[Darlok]

Я уже всё пробую. Скоро до бубна шамана дойду Блок передает только фиксированое количество. Это в нём заложено было при создании. Больше 18 его ничто не заставит передать

[Darlok]

Я для работы пользуюсь компонентом VaComm (VaSync набор). У него есть встроеная функция GetBufUsed которая позволяет получить количество байт буфера.

[Darlok]

Почему визуально количество байт отображается(в label, edit, showmessage), а взаимодействовать с ними не могу (использовать в процедурах наприм. case)??

[Darlok]

Попробовал посчитать байты в температуру. Оказалось что цифры которые отображаются в edit в корне отличаются от тех которые приходят от message.

[cotseec]

Почему визуально количество байт отображается(в label, edit, showmessage), а взаимодействовать с ними не могу (использовать в процедурах наприм. case)??

вы пытаетесь провести отбор (case) по данным типа string, а case умеет работать только с целочисленными типами

Попробовал посчитать байты в температуру. Оказалось что цифры которые отображаются в edit в корне отличаются от тех которые приходят от message.

от потока у вас приходит сумма символов из которых состоит пришедшая от устройства цепочка байт, при этом как вы пытаетесь разобрать текстовую строку, переданную из потока, зная только количество пришедших байт, для меня осталось загадкой (например, строка '15178' может означать либо байты со значением 15 и 178 либо 151 и 78)
повторюсь,

З.Ы. имхо лучше передавать указатель на буфер и работать с байтами, а не конвертировать в String и потом высчитывать (но в этом случае процедуру ReadData необходимо переписать)

З.Ы. может кошернее считать значение температуры в потоке и передавать только значение?