RS232, Библиотека Игоря Павлова TComPort

[xBugiman]

Использую библиотеку Игоря Павлова - TComPort.

Задача: опросить устройство, формат опроса [посылка команды - прием ответа] в асинхронном режиме.

Трабл №1. Посылка команды проходит, ответ по с помощью onRead не считывается, а надо бы

Трабл №2. Формат команды настройки конфигурации девайса (ICP CON 7018) : "%AANN...FF". Первый символ "%" дублируется и получается "%%AANN...FF", любой другой символ отправляется как есть. Как победить?

[raxp]

...и что? ...не видно как вы посылаете отсюда было-бы понятно, если студент так вопрос задал, но по краткой ремарке "ICP CON 7018" вы же работаете с оборудованием, значит должны были научится формулировать мысли ...подробнее

Трабл №1. Посылка команды проходит

а как узнали, что проходит?

Трабл №2. Формат команды настройки конфигурации девайса (ICP CON 7018) : "%AANN...FF". Первый символ "%" дублируется

дублируется где? чем проверили? пробовали-ли другие способы отправки? собственно, опять не видно как отправляете, текстом или буфером, правильно ли настроили порт ...ничего этого нет тут, чтобы вам помочь.

[xBugiman]

было-бы понятно, если студент так вопрос задал, но по краткой ремарке "ICP CON 7018" вы же работаете с оборудованием, значит должны были научится формулировать мысли ...подробнее

Студент. За замечание спасибо, постараюсь исправиться.

а как узнали, что проходит?

Отслеживаю PortMon'ом.

дублируется где? чем проверили?

В терминале того же PortMon'а.

Посылка: %0000050600

Как посылается, лог Портмона:

0.00041492	Project1.exe IRP_MJ_WRITE Serial2	SUCCESS Length 12: %%0000050600.	

Отправлял и через буфер, и напрямую текстом. Результат одинаков.

[raxp]

Как посылается, лог Портмона:

в идеале, это глянуть внешним девайсом, терминал на какой шине висит ? просто на 232 или 485? ... за неимением под "как посылается" имелось ввиду код отправки, а не лог чужой программы.

[xBugiman]

На RS485 -> USB -> Виртуальный COM.

PHP код:

procedure TComPort.Write(WriteBytes: array of Byte);
var
  dwWrite: DWORD;
begin
  if  (not WriteFile(FPort, WriteBytes, SizeOf(WriteBytes), dwWrite, @FOverWrite))
  and (GetLastError <> ERROR_IO_PENDING) then
    raise EComPortError.Create('Error writing port ' + PortName);
end; 


[raxp]

TC, вы прикалываетесь? не нужно приводить код отправки с самого компонента, вы думаете мы не можем заглянуть внутрь ...приведите полный код того как вы формируете пакет, как настроен компонент и как вызываете отправку ...к примеру:

function CRC(BufferData: TDataByte): word;
var
  Data: word;
  i,j : integer;
const polinomio: word= $A001;
begin
  result:= $FFFF;
  for i:=0 to high(BufferData)- 2 do
  begin
    data:= BufferData[i];
    for j:=1 to 8 do
    begin
      if (((data xor result) and $0001) = 1) then
         result:=(result shr 1) xor polinomio
      else
         result:=result shr 1;
      data:= data shr 1;
    end;
  end;
end;

MASTER
…
procedure set_smh(net,kod,reg,val: word);
var Cadena: TDataByte;
    crcc  : word;
    i     : integer;
    s     : string;
begin
 Setlength(Cadena,8);
 Cadena[0]:= net;// 
 Cadena[1]:= kod;// 
 Cadena[2]:= hi(reg);// 
 Cadena[3]:= lo(reg);// —
 Cadena[4]:= hi(val);
 Cadena[5]:= lo(val);// —
 crcc:= CRC(Cadena);// crc
 Cadena[6]:= lo(crcc);
 Cadena[7]:= hi(crcc);
 //log-
 s:= “”; for i:= 0 to 7 do s:= s + inttohex(cadena[i],2)+’ “; 
 s:= “”; for i:= 0 to 7 do s:= s + chr(cadena[i]);
 if en_com then
  mf.com.WriteCommData(pchar(s), length(s))
end;

в идеале - это промониторить аппаратно повешенным параллельно на шину RS-485 вторым модулем i7552, в конце концов пакет можно проследить на осциллографе.

Добавлено
пока пробуете, потестьте на другом модуле http://www.programmersforum.ru/showp...69&postcount=8 (BСomPort, одиночный модуль)

[xBugiman]

Спасибо. Попробовал, потестил, нашел свои ошибки.

Возник еще вопрос.

ПО опрашивает порт и парралельно фиксирует с помощью таймера время прихода ответа.

Из-за возникающих таймингов при чтении, значение переменной инкрементирующейся в таймере, не соответствует реальному значению времени.

Значения таймингов:

CT.ReadTotalTimeoutConstant := 90;
CT.ReadIntervalTimeout :=MAXWORD;
CT.ReadTotalTimeoutMultiplier := 0;
CT.WriteTotalTimeoutMultiplier := 0;
CT.WriteTotalTimeoutConstant := 0;

Как определить точное время прихода ответа? Или может быть есть другой вариант реализации учета времени?

[raxp]

ммм... достаточно вызвать логгирование при появлении данных на COM порте comReceiveData()...

procedure Tmf._log(mode: string); //LOG-
var s : string;
    tt: TStringList;
begin
  s:= extractfilepath(application.ExeName);
  tt:= TStringList.Create;
  if FileExists(s+'log.txt') then tt.LoadFromFile(s+'log.txt');
  //
  if mode[1] = '=' then begin
   tt.Add('');
   tt.Add(mode+formatdatetime(' dd.mm.yy ',date));
   tt.Add('');
  end else tt.Add(mode+formatdatetime(' hh:nn:ss.zzz',time)); // ФИКСАЦИЯ ВРЕМЕНИ ПРИХОДА ДАННЫХ
  tt.SaveToFile(s+'log.txt');
  tt.Free
end;


procedure Tmf.packet(Str: String);
var i        : integer;
    Cadena   : TDataByte;
    CadenaCRC: word;
    temp,s   : string;
begin
 //расшифровка пакета -mlink-
 if length(str)=14 then begin
  for i:=1 To length(str) do mlnbuf[i]:= byte(char(str[i]));
  //
  chann4:= mlnbuf[3];
  chann5:= mlnbuf[5]+mlnbuf[6];
  chann6:= mlnbuf[9]+mlnbuf[10]+mlnbuf[11]+mlnbuf[12]
 end;

 //расшифровка пакета -modbus-
 if (length(str)=9)or(length(str)=8)or(length(str)=7) then begin

  inc(rx);
  //наполнение-
  for i:=1 To length(str) do
   modbuf[i-1]:= byte(char(str[i]));

  //SET OPC
  chann8  := modbuf[0]; //NET
  if length(str)=8 then begin
   chann9 := hextoint(inttohex(modbuf[2],2)+ inttohex(modbuf[3],2)); //REG
   chann10:= hextoint(inttohex(modbuf[4],2)+ inttohex(modbuf[5],2)); //VAL
  end else begin
   chann9 := modbuf[2];                                              //REG
   chann10:= hextoint(inttohex(modbuf[5],2)+ inttohex(modbuf[6],2)+
             inttohex(modbuf[3],2)+ inttohex(modbuf[4],2));          //VAL
  end;

  //LCRC + CRC
  Setlength(Cadena,8);
  Cadena[0]:= modbuf[0];
  Cadena[1]:= modbuf[1];
  Cadena[2]:= modbuf[2];
  Cadena[3]:= modbuf[3];
  Cadena[4]:= modbuf[4];
  Cadena[5]:= modbuf[5];
  Cadena[6]:= modbuf[6];
  CadenaCRC:= CRC(Cadena);
  Cadena[high(Cadena)-1]:= lo(CadenaCRC);
  Cadena[high(Cadena)]  := hi(CadenaCRC);

  //log-
  s:= ''; for i:=0 to 7 do s:= s + inttohex(cadena[i],2)+' '; 
  _log('RX: ' + s);
  //
  if {(lo(CadenaCRC) = modbuf[7])and(hi(CadenaCRC) = modbuf[8])and} //ERR-
   (modbuf[0] = gl_net)and(modbuf[1] = 4)and(modbuf[2] = 4) then begin //выделение ARCHIVE -
     glp := not glp;
     temp:= inttohex(modbuf[5],2) + inttohex(modbuf[6],2) +
            inttohex(modbuf[3],2) + inttohex(modbuf[4],2);

     if glp then sb1.Caption:= ' LH: ' + temp
      else sb1.Caption:= ' LL: ' + temp
  end
 end
end;


type tb = array[1..255] of Char;  //Определяем символьный массив
     pb = ^tb;
procedure Tmf.comReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
var PX : pb;
    i  : integer;
    str: string;
begin
 PX:= buffer; str:='';
 for i:= 1 to BufferLength do
  str:=str+PX^[i];
 packet(str)
end;

[xBugiman]

Угумс. Спасибо. Сделал чуть раньше чем прочитал, через GetCurrenttime.

Еще вопрос о структурах данных.

Задача программы построения графика зависимости температуры на каждом канале от времени.

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

Для отображения данных использую StringGrid. Но ее возможности ограничены Integer'ом.

То есть 32 767.

Получается, что теоретический потенциал это:
32 767 / 3 / 60 / 60 = 3 часа измерений.

Что в принципе может быть достаточно, но хотелось бы часов 5 или 6.

Есть идея хранить значения в массиве и отказаться от StringGrid, но вроде они более ресурсо_затратны? Если я не прав, поправьте меня.

То есть вопрос в следующем, сможет ли программа адекватно работать с 8 массивами с ~ 50 000 значений, какие директивы, алгоритмы и настройки для этого надо использовать?

[Пепел Феникса]

вообще то integer -2147483648-2147483647.
мы не в паскале где было так как вы говорите