KRConnector.pas

Константы

CE_QUEUE_MAX_ITEMS – размер входящей и исходящей очередей
CE_ERRORS_COUNT – количество ошибок кеннектора
ceOK – нет ошибок
ceQueueOverflowed – очередь переполнена
ceNotConnection – не подключен
ceDataNotSended – не удалось отправить пакет или часть пакета
ceNoResponse – ответ не получен
ceRequestTimeout – превышено время на отправку данных
ceResponseTimeout – превышено время на получение ответа
ceNotActive – коннектор не включен
CONNECTOR_ERRORS_MSG – список сообщение об ошибках коннектора

Типы данных

TKRConnectorError – ошибка коннектора (Integer)
TKRConnectorType – тип коннектора
- ctCOMPort – подключение через COM порт
- ctTCPClient – подключение через TCP/IP (сетевое подключение)
- ctBluetooth – подключение через Bluetooth
TKRConnectorStat – состояние коннектора
- cstNotActive – выключен (свойство Active равно false)
- cstDisconnected – соединение не установлено
- cstConnected – подключен
- cstConnecting – устанавливается соединение
- cstWaitReconnecting – ожидается время до следующей попытки подключения
PKRConnectorPack –

TKRConnectorStatEv = procedure(Sender: TObject; AStat: TKRConnectorStat; AReconnectTime: Cardinal)of object;

TKRConnectorStatEv – событие изменения статуса коннектора
- Sender – указатель на коннектор
- AStat – текущее состояние коннектора TKRConnectorStat
- AReconnectTime – если текущее состояние равно cstWaitReconnecting, то приходит оставшееся время до следующей попытки подключится, в миллисекундах

TKRConnectorCallBack = procedure (AError: integer; APack: PKRBuffer; ALength: integer; AData: Pointer) of Object;

TKRConnectorCallBack – функция объекта для обратной связи
- AError – код ошибки TKRConnectorError
- APack – указатель на буфер с ответом
- ALength – длина ответа в байтах
- AData – указатель на дополнительные данные

TKRConnectorPackEv = procedure (Sender: TObject; APack: PKRBuffer; ALength: integer) of Object;

TKRConnectorPackEv – событие с указателем на буфер данных
- Sender – указатель на коннектор
- APack – указатель на буфер
- ALength – длина данных в байтах

Классы

Класс TKRConnector

Родительский класс TComponent

Интерфейсы: IKRSpeedInfo

TKRConnector – Базовый класс всех коннекторов. Коннектор – это объект, осуществляющий связь с внешними объектами(объектом). Подробное описание можно прочитать в статье «Принцип работы коннекторов в Delphi компонентах».

Свойства класса TKRConnector

property Active: boolean;

Active – включение/выключение коннектора

property QueueCount: integer;

QueueCount – текущее количество запросов во входящей очереди

property QueueOutCount: integer;

QueueOutCount – текущее количество запросов в исходящей очереди

property Stat: TKRConnectorStat;

Stat – текущее состояние подключения TKRConnectorStat

property LastConnectTime: Cardinal;

LastConnectTime – дата последней попытки подключиться в Unix формате

property ConnectorType: TKRConnectorType;

ConnectorType – тип коннектора TKRConnectorType

property Connected: boolean;

Connected – индикатор состояния подключения

property ReadTimeout: Cardinal;

ReadTimeout – таймаут получения ответа на запрос в миллисекундах

property WriteTimeout: Cardinal;

WriteTimeout – таймаут отправки запроса в миллисекундах

property WaitRespTime: Cardinal;

WaitRespTime – максимальное время в миллисекундах между частями входящего пакета

property CountErrorsForReconnect: integer;

CountErrorsForReconnect – количество подряд сгенерированных ошибок, при котором происходит разъединение для дальнейшего пере подключения

property ConnectTimeout: Cardinal;

ConnectTimeout – таймаут подключения в миллисекундах

property ReconnectTime: Cardinal;

ReconnectTime – время в миллисекундах между попытками подключения

property WaitTime: Cardinal;

WaitTime – задержка в активном режиме основного потока коннектора (см. TKRThread.WaitTime)

property WaitPauseTime: Cardinal;

WaitPauseTime – задержка в пассивном режиме основного потока коннектора (см. TKRThread.WaitPauseTime)

property WaitOutTime: Cardinal;

WaitOutTime – задержка в активном режиме исходящего потока коннектора (см. TKRThread.WaitTime)

property WaitPauseOutTime: Cardinal;

WaitPauseOutTime – задержка в пассивном режиме исходящего потока коннектора (см. TKRThread.WaitPauseTime)

События класса TKRConnector

property OnSend: TKRConnectorPackEv;

OnSend – событие TKRConnectorPackEv, генерируется перед отправкой запроса. Вызывается не из основного потока программы

property OnRecv: TKRConnectorPackEv;

OnRecv – событие TKRConnectorPackEv, генерируется после получения ответа на запрос. Вызывается не из основного потока программы

property OnSendAsync: TKRConnectorPackEv;

OnSendAsync – событие TKRConnectorPackEv, генерируется перед отправкой запроса. Вызывается из основного потока программы

property OnRecvAsync: TKRConnectorPackEv;

OnRecvAsync – событие TKRConnectorPackEv, генерируется после получения ответа на запрос. Вызывается из основного потока программы

property OnConnectionStatus: TKRConnectorStatEv;

OnConnectionStatus – событие TKRConnectorStatEv, генерируется при изменении состояния подключения

Методы класса TKRConnector

procedure Send(APack: PKRBuffer; ALength: integer; ACallBack: TKRConnectorCallBack;
  AData: Pointer = nil; AWaitResult: boolean = true; ARecvLen: integer = 0;
  ADelimiter: Cardinal = 0; ADelimiterLen: integer = 0);

Send – отправляет запрос в очередь на обработку
- APack – указатель на буфер в котором находятся данные предназначенные для отправки
- ALength – длинна отправляемых данных
- ACallBack – метод обратной связи типа TKRConnectorCallBack
- AData – указатель на дополнительные данные, который будет передан в метод обратной связи
- AWaitResult – указывает на то, нужно ли ждать ответ на запрос
- ARecvLen – длина ответа. Если ответа не должно быть или длина ответа неизвестна, то устанавливается ноль
- ADelimiter – разделитель пакетов
- ADelimiterLen – длина разделителя пакетов

function ErrorMsg(AError: TKRConnectorError): String;

ErrorMsg – получение текстового представления ошибки по ее коду
- AError – код ошибки

Вход

Комментировать

Вначале новые

Всего комментариев:

Дмитрий Понкратьев

19.02.2021 21:38

Руслан. Добрый день. Подскажи пожалуйста как сделать так, чтобы callBack обработала сразу 22 байта от устройства. Спрашиваю, потому что уже испробовал все: в методе Send указывал AWaitResult := true и ARecvLen := 22. При этом callBack не принимает больше 1 символа.

Так отправляю запрос:

procedure TForm1.Button1Click(Sender: TObject);
var
  buf: PKRBuffer;
  len: byte;
  i: Integer;
begin
  New(buf); // Создаем буфер
  len:=length(KRBLEdit1.Text); //Длина запроса
  for i := 1 to len do
  begin
    buf^[i] := ord(KRBLEdit1.Text[i]);
  end;

  KRCOMPortConnector1.Send(
    buf, // Указатель на буфер
    len, // Длина запроса
    callBack,
    nil,
    true,
    22);
end;

Так получаю ответ:

procedure TForm1.callBack(AError: integer; APack: PKRBuffer; ALength: integer;
  AData: Pointer);
var
  i: Integer;
begin
  KRBLEdit2.Text := '';
  for i := 1 to ALength do
  begin
    KRBLEdit2.Text := KRBLEdit2.Text + char(APack^[i]);
  end;

end;

Проблема в том, что у устройства к которому я подключаюсь нет особого протокола, оно просто отправляет 22 байта с данными на запрос. Запрос состоит всего из 1 байта равного номеру устройства (в моем случае 1).

Спасибо.

Показать полностью

ответить

Руслан Кандирал

19.02.2021 23:27

Дмитрий Понкратьев

Здравствуйте, Дмитрий!

Я вижу две возможные причины:
1) Некорректный запрос. Как я понял вам нужно отправить запрос такого плана

procedure TForm1.Button1Click(Sender: TObject);
var
  buf: PKRBuffer;
begin
  New(buf); 
  // 49 - это символ '1' если используется текстовый протокол ASCII
 //  или 1
  buf^[0] := 49; 

  KRCOMPortConnector1.Send(
    buf, 
    1, 
    callBack,
    nil,
    true,
    22); // Тут можно поставить ноль, если неизвестна длина ответа
end;

2) Неправильно настроены тайминги. Если вы используете старую версию (до 21.01.2021), то вам нужно пробовать увеличивать тайминги ReadTimeout и WaitRespTime. В новой версии ReadIntervalTimeout, ReadTotalTimeoutMultiplier, ReadTotalTimeoutConstant

Да и в callBack, вам нужно убить созданный буфер Dispose(APack)

Показать полностью

ответить

Дмитрий Понкратьев

20.02.2021 17:35

Руслан Кандирал

Добрый день, Руслан!
Спасибо тебе огромное за твой ответ! Действительно получилось. Увеличил тайминги и заработало!

Сначала я тайминги увеличил, потом решил их уменьшать и проверять как работает программа. Оказывается дошел до родных значений таймингов и все равно программа работала. Значит дело былов чем-то другом.

Так, еще я исправил запрос. Теперь значения в буфер задаю от 0:

buf^[0] := 49;

Еще убил буфер в callBack:

Dispose(APack);

Видимо это и помогло)

Показать полностью

ответить

Поиск по сайту

KRConnector.pas

Константы

Типы данных

Классы

Класс TKRConnector

Свойства класса TKRConnector

События класса TKRConnector

Методы класса TKRConnector

Новости сайта

Популярные статьи

Популярные загрузки