[timeless]

Устройство передает по компорту несколько строк, в том числе и число с плавающей запятой. Как мне получить эти данные в читабельном виде, например в Memo? Текст я получить с мог, а вместо числа служебные символы. Число в формате float32.

[M.A.D.M.A.N.]

floattostr

[timeless]

Для этого мне сначала нужно получить это число в переменную (например Single) — вопрос в том как?

[lmikle]

Вероятно, ты получаешь 4 байта.
Можно делать разными способами.
Например, записать их в поток как строку, а потом считать из потока как float. Или поиграться с указателями.

Код не проверял, просто как идея:

Код:

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

var   S : String; // Исходная строка   W : DWORD; // 4 байта   PF : ^Double;   I : Integer;   F : Double; begin   W := 0;   For I := 1 To 4 Do     Begin       W := W + Ord(S[i]);       W := W shl 8;     End;   FP := @W;   F := FP^; end;

[timeless]

Вобщем решил отказаться от использования компонента CPort.
И использовать следующий код (отсюда):

Код:

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 87 88 89 90

unit PortUnit;   interface  uses windows,sysutils;     var     CommHandle : integer;     DCB : TDCB;     Ovr : TOverlapped;     Stat : TComStat;     CommThread : THandle;     hEvent : THandle;     Flag,StopResive : boolean;     KolByte,Kols,Mask,TransMask,Errs : DWord;  procedure PortInit;  procedure ReadComm;  procedure WriteComm(A:byte);  procedure KillComm;    implementation    uses   Main;      procedure KillComm;  begin   TerminateThread(CommThread,0);   CloseHandle(CommHandle);  end;    procedure WriteComm(A:byte);  var   Transmit:array [0..255] of char;  begin   //послать один символ в порт    KolByte:=1;    Transmit[0]:=chr(A);    WriteFile(CommHandle,Transmit,KolByte,KolByte,@Ovr);  end;    procedure ReadComm;   var    Resive:array [0..255] of char;   begin        while true do    begin     TransMask:=0;     WaitCommEvent(CommHandle,TransMask,@Ovr); //ждем     if (TransMask and EV_RXFLAG)=EV_RXFLAG then //проверяем нужное событие      begin       ClearCommError(CommHandle,Errs,@Stat);//сбрасываем флаг       Kols := Stat.cbInQue;       ReadFile(CommHandle,Resive,Kols,Kols,@Ovr);//читаем       //тут должна идти обработка принятой информации из Resive       Form1.Panel1.Caption:=string(Resive);       //не очень хороший вариант вывода, но для примера подойдет      end;//mask     end;//while   end;    procedure PortInit;   var    ThreadID:dword;   begin   //создание и иницализация порта   KolByte:=0;     //создание порта и получение его хэндла   CommHandle := CreateFile('COM1',GENERIC_READ or GENERIC_WRITE,0,nil,OPEN_EXISTING,          FILE_ATTRIBUTE_NORMAL or FILE_FLAG_OVERLAPPED,0);     //ставим маску - "по пришествии определенного символа"   SetCommMask(CommHandle,EV_RXFLAG);     //построение DCB    GetCommState(CommHandle,DCB);    DCB.BaudRate:=CBR_9600;    DCB.Parity:=NOPARITY;    DCB.ByteSize:=8;    DCB.StopBits:=OneStopBit;    DCB.EvtChar:=chr(13);//задание символа для флага    //устанавливаем DCB    SetCommState(CommHandle,DCB);    //создаем паралельный поток    //там будет вертеться процедура приема строки    //с порта - ReadComm    CommThread := CreateThread(nil,0,@ReadComm,nil,0,ThreadID);   end; end.

Но он позволяет отправлять в порт только числа, а мне нужно отправлять строки. Как переделать под мои нужды и объединить с решением (спасибо, lmikle!) по числам с плавающей запятой выше?
Или, может, кто подскажет как принимать числа с плавающей запятой CPort'ом.
Прошу отнестись к моим "завтыкам" с терепением

[timeless]

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

Вероятно, ты получаешь 4 байта.
Можно делать разными способами.
Например, записать их в поток как строку, а потом считать из потока как float.

Проверь, пожалуйста, код. Похоже, не работает.

Я отправляю в устройство команду dsend nums = 1 decim = 1 out и в ответ получаю три строки.
Случай, когда числа примерно одинаковые и около нуля:

Код:

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

dsend nums = 1 decim = 1 out out  vf: 1000.000000 Гц MГtБ dsend nums = 1 decim = 1 out out  vf: 1000.000000 Гц 'рБ dsend nums = 1 decim = 1 out out  vf: 1000.000000 Гц ё+Kѕ dsend nums = 1 decim = 1 out out  vf: 1000.000000 Гц nАА

Случай, когда числа разные:

Код:

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

dsend nums = 1 decim = 1 out out  vf: 1000.000000 Гц   IГ dsend nums = 1 decim = 1 out out  vf: 1000.000000 Гц пq2Г dsend nums = 1 decim = 1 out out  vf: 1000.000000 Гц ЙДЄГ dsend nums = 1 decim = 1 out out  vf: 1000.000000 Гц #»Г dsend nums = 1 decim = 1 out out  vf: 1000.000000 Гц *‰‰Г

Пробовал забирать последнюю строку и считывать ее как флоат по предлженному алгоритму, но успеха не добился.
Очень прошу помочь — диплом горит (специальность не программирование).