[fofka]

Внимательно еще раз прочитав мануал отыскал такой момент

PHP код:

Любая KE команда, отсылаемая модулю, должна начинаться с символов ‘$KE’. 
Также все команды должны заканчиваться символом возврата каретки <CR> 
и символом перехода на новую строку <LF> (в шестнадцатеричном формате 
эти символы имеют коды 0x0D и 0x0A соответственно). 
Ответы модуля на команды, а также отдельные информационные блоки 
выдаваемые модулем всегда начинаются с символа ‘#’ (шестнадцатеричный код 0x23) 
и заканчиваются символами возврата каретки <CR> и перехода на новую строку <LF>. 


Получается что входной сигнал для программы у меня

PHP код:

#ADC,1,0293#13#10 


потому и ошибка. А как мне от них (#13#10) избавится?

[angvelem]

Используй ReplaceString

[fofka]

Благодарю за внимание.

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

Используй ReplaceString

Nikitiy_II уже советовал в этой теме. Но там несколько иначе. Можно под мой случай подробнее описать?

[angvelem]

#13#10 это тоже символы и также заменяются на нужные.

[fofka]

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

#13#10 это тоже символы и также заменяются на нужные.

Понятно. Ну мне их менять не нужно, мне их удалить нужно. Завтра попробую сделать. Благодарю за совет.

[angvelem]

Ну так и подставляешь на замену пустые скобки.

[fofka]

Уже не могу понять в чем дело. Из Edita работает, переключаю на модуль Jerom, нажимаю кнопку "Проверить" и получаю ошибку (прилагается). Вроде все правильно. Проект тоже прилагается. Ну в ЧЕМ ошибка!!!
Собственно процедура с ошибкой

PHP код:

procedure TForm1.Button12Click(Sender: TObject);
begin
{DecimalSeparator:='.';
 }
 RM :=5060.0;

CS1.Socket.SendText('$KE,ADC,1'#13#10);///Отправляем запрос на данные с 1 АЦП
 Memo1.Text:=s;
 Sleep(500);
    If RadioButton1.Checked = true
    then
     s:=edit2.Text
    else
     s := CS1.Socket.ReceiveText;

  i := pos(',',s);
  if copy(s,0,i-1) = '#ADC' then begin///Если данные от АЦП
  Edit3.Text := copy(s,0,i-1);

  s := copy(s,i+1,length(s));
  Edit6.Text := copy(s,i+1,length(s));

  i := pos(',',s);

  if copy(s,0,i-1) = '1' then begin///Если данные с первого канала
  Edit4.Text := copy(s,0,i-1);

  s:=StringReplace(s,'#13#10',' ',[rfReplaceAll, rfIgnoreCase]);///Удаляем #13#10
  Edit5.Text := copy(s,i+1,length(s));
  s := copy(s,i+1,length(s));///Получаем данные АЦП

  Vadc:=strtofloat(s)/1023.0*3.3;///Расчет напряжения АЦП в вольтах
  RT:= (Rm*Vadc)/(3.3 - Vadc);///Расчет сопротивления терморезистора в омах
  f := (3988.0/({log}(RT/3000.0) + 3988.0/298.0))-273;///Расчет температуры в градусах Цельсия
  Form1.Edit1.Text := FormatFloat('0.0000 C"',f);///Выводим показания температуры


   end;
  end;
 end; 


[fofka]

Подскажите HELP!!!!!

[angvelem]

Я говорил, поставь пустые скобки (''), а у тебя:

Код:

  s:=StringReplace(s,'#13#10',' ',[rfReplaceAll, rfIgnoreCase]);///Удаляем #13#10 

меняешь на пробел. Зачем?

[fofka]

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

Я говорил, поставь пустые скобки (''), а у тебя:

Код:

  s:=StringReplace(s,'#13#10',' ',[rfReplaceAll, rfIgnoreCase]);///Удаляем #13#10 

меняешь на пробел. Зачем?

Проморгал.
Ну собственно исправил, а ошибка осталась (вложение).
Подключил модуль, нажал проверить, и получил ошибку.
Еще хочу попросить проверить порядок расчета, может что не в том порядке делаю....

[fofka]

Убрал удаление переноса строки

s:=StringReplace(s,'#13#10','',[rfReplaceAll, rfIgnoreCase]);///Удаляем #13#10

Думаю для программы расчета это не критично.
Пробую получить данные от устройства, получаю ошибку (прилагается). Тут опять получается ошибка в типах данных.

[Nikitiy_II]

Тут не с типами проблема, а с их конвертацией. Функция StringReplace не поможет с удалением спецсимволов... Для удаления переноса строки юзай эту функцию

[fofka]

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

Тут не с типами проблема, а с их конвертацией. Функция StringReplace не поможет с удалением спецсимволов... Для удаления переноса строки юзай эту функцию

Вы думаете что проблема все таки в спецсимволах.
Если я правильно понял пример на С+ там спецсимволы не удаляются
Пример на С+

PHP код:

// Входной аргумент - цифровое значение АЦП в диапазоне 0-1023
  int ADC_Value  = atoi(argv[1]);     
  
  // Расчет напряжения АЦП в вольтах
  double inVolt = (((double)ADC_Value)/1023.0)*5.09;  // 5.09 - см. Дополнения ниже
  printf("InVolt: %f\r\n", inVolt);

  // Расчет сопротивления терморезистора
  double RT = (Rm*inVolt)/(5.0 - inVolt);
  printf("RT: %f\r\n", RT);

  // Расчет температуры в градусах Цельсия
  double Temper = (betta/(log(RT/R0) + betta/298.0)) - 273;
  printf("Temperature: %f\r\n", Temper); 


[fofka]

Nikitiy_II в функции на которую Вы указали знаки переноса меняются на пробел. Значит мне в строке

      #10: Source^ := #32;
          #13: Source^ := #32;

вместо #32 оставить '';
Подскажите в каком месте, и как правильно в моем случае сделать вызов данной функции.
Я отыскал такой пример

PHP код:

function DeleteLineBreaks(const S: string): string;
var
  Source, SourceEnd: PChar;
begin
  Source := Pointer(S);
  SourceEnd := Source + Length(S);
  while Source < SourceEnd do
  begin
    case Source^ of
      #10: Source^ := #32;
      #13: Source^ := #32;
    end;
    Inc(Source);
  end;
  Result := Trim(S);
end;

Вызов функции
Edit1.Text := DeleteLineBreaks(Memo1.Text); 


Приходится воевать с устройством. Не пойму что не нравится проге.

[fofka]

Всех с Новым Годом!!! Разобрался с устройством Jerome, заработал.
На этом форуме выложил проект. http://www.delphisources.ru/forum/sh...7000#post97000 Может кому сгодится