Вопросы по компоненту modbustcp

[shumsheec]

Здравствуйте!
Нужно из программы на Delphi общаться с ПЛК через modbus TCP. Скачал компонент, установил, настроил связь. Читаю и пишу регистры нормально. Но возникло несколько вопросов:
1. Мне нужно связываться с контроллером раз в 100 мс (хотелось бы раз в 50 даже, но ладно). Если в одной обработке таймера пытаюсь одновременно читать и писать, то всё висит, таймер срабатывает раз в секунду. Не могу понять, это глюк со стороны компа или ПЛК?.. Разнёс чтение и запись на разные обработки, т.е. сначала читаю, в следующее срабатывание таймера пишу и т.д. Но хотелось бы всё сразу.. Не подскажете, как это сделать?
2. Так и не понял, как корректно настроить таймаут. Если в программе пробовать читать/писать регистры ПЛК, а он в это время физически не подключён, то прога наглухо виснет. Там есть разные параметры для таймаута - таймаут чтения, таймаут соединения, просто таймаут. Игрался со всеми, но никаких измнений.
Вот единственное, что нашёл по таймауту в исходниках мастера:

{*** Wait for data from the PLC ***}
  if (FTimeOut > 0) then
  begin
    dtTimeOut := Now + (FTimeOut / 86400000);
  {$IFDEF DMB_INDY10}
    while (IOHandler.InputBuffer.Size = 0) do
  {$ELSE}
    while (InputBuffer.Size = 0) do
  {$ENDIF}
    begin
   {$IFDEF DMB_INDY10}
      IOHandler.CheckForDataOnSource(FReadTimeout);
   {$ELSE}
      if Socket.Binding.Readable(FReadTimeout) then
        ReadFromStack;
    {$ENDIF}
      if (Now > dtTimeOut) then
      begin
        Result := False;
        Exit;
      end;
    end;
  end;

Немного смущает, что значение таймаута делится на такое большое число, прежде чем прибавляется к текущему значению времени для получения дельты.
Может быть, кто-то работал с этим компонентом, или в общих чертах может сказать, как добиться поставленных целей?
3. Может быть, кто-нибудь пользуется отличным от указанного компонентом? Посмотрел, этот компонент очень похож на TCPClient Indy, вроде как унаследован от него. Не думаю, что там сложно, и за несколько дней точно можно разобраться и написать свою библиотечку. Но может быть, уже есть готовые проверенные наработки?
Спасибо!

upd
Нашёл класс, реализующий ModBusTCP без всего лишнего:

unit ModbusTCP; 
  
 interface 
 uses 
   SysUtils, 
   Dialogs, 
   Windows, 
   Winsock, Classes; 
  
 type 
   TBufer = array[0..32768] of byte; 
   TModbusBuf = array[0..255] of byte; 
  
   TModbusTcpGate = class 
   private 
     fAnswerBuff: TModbusBuf; 
     FBufer: TBufer; 
     fbytesToReceive: Integer; 
     fbytesToSend: Integer; 
     fCS: TRTLCriticalSection; 
     fSockAddr: TSockAddr; 
     fSockConnected: Boolean; 
     fSocket: TSocket; 
     initialized: boolean; 
     iPort: integer; 
     sIP: string; 
     vWSAData: TWSAData; 
   public 
     constructor Create(ip: string; port: integer = 502); 
     destructor Destroy; override; 
     strict private 
       function Communicate: Boolean; 
   private 
     procedure DeInitLib; 
     function InitLib: boolean; 
     procedure Lock; 
     function SockConnect: Boolean; 
     procedure SockDisconnect; 
     procedure Unlock; 
   public 
     function ReadDiscreteInputs(StartingAddress, NumberOfInputs: Integer): Boolean; 
     function ReadMultiplyCoils(StartingAddress, NumberOfCoils: Integer): Boolean; 
     function ReadMultiplyRegisters(StartingAddress, NumberOfRegisters: Integer): 
       Boolean; 
     function WriteSingleCoil(Coil: Integer; NewValue: Boolean = true): Boolean; 
     function WriteSingleRegister(RegisterNumber, NewValue: Integer): Boolean; 
     property Buffer: TModbusBuf read fAnswerBuff write fAnswerBuff; 
   end; 
  
 var 
   ModbusGateway: TModbusTcpGate = nil; 
  
 implementation 
  
 { TModbusTcpGate } 
  
  
 
// целиком код в прикреплённом файле

Но что-то он при вызове ".Create" роняет программу... Скажите пожалуйста, в main нужно добавлять что-то, помимо самого модуля в "uses"?

[shumsheec]

Мда, вероятно, мало кому из программистов для ПК требуется связь с железяками... Надо искать в другом месте. Может, подскажете, где?

[bratcho]

shumsheec здравствуйте!
Вы решили задачу связи с ПЛК по ModBusTCP?
У меня сейчас тоже есть проблема с этим компонентом. В версии 1.5 такая же ситуация. Состоит она в том, что больше 125 регистров данный компонент не считывает, а мне надо больше. Я вроде и исходники уже менял (source файлы), нашел где это ограничение задано, переустанавливал компонент, все равно есть проблемы (( Не подскажите решение?
Заранее спасибо!

[eduard93]

У меня проблема на два шага позади вас - не получается установить библиотеку delphimodbus. Я немного далёк в этом. Думал будет .dll-ка, и файл .pas с адресами ф-й из этой библиотеки, но там ничего подобного, я не знаю как это установить. Опишите сюда, пожалуйста процедуру установки. Спасибо.
ЗЫ: задача минимум состоит в том, чтоб подключиться по modbusTCP к серверу и оказать хоть каоке-то влиянее на его состояние из программы.

[vlkc]

А как работать? Может примером ктонебуть поделится?

[digitalis]

Щаззз! На дату последнего поста взгляни...
ктонебуть - это кто ?

[newtimka]

Победили?