This is topic WinCon-8341 in forum Драйверы / Device Drivers at Форум TRACE MODE: техническая поддержка.


To visit this topic, use this URL:
http://forum.adastra.ru/ultimatebb.php/ubb/get_topic/f/14/t/000115.html

---

Posted by btec (Участник № / Member № 3673) on :
 
Как его подсоединить к ТМ5.16
 

---

Posted by AdAstra Technical Support (Участник № / Member № 4) on :
 
Это невозможно.
 

---

Posted by Romсheg (Участник № / Member № 3792) on :
 
Возможен такой вариант работы этой связки:
WinCon8341(МикроМРВ ТМ6)-> АРМ(OPC ТМ6) -> АРМ(МРВ ТМ5).

В принципе вместо ОРС ТМ6 можно попробовать и обычный МРВ ТМ6, если не ошибаюсь, то в последнем релизе возможно взаимодействие между собой двух МРВ 5-й и 6-й версии. Но тут пусть меня поправит техподдержка, если я не прав.
 

---

Posted by btec (Участник № / Member № 3673) on :
 
Обойти можно и по другому (там DLL идет с контроллером). Хотелось услышать прямое решение.
 

---

Posted by Romсheg (Участник № / Member № 3792) on :
 
Что за DLL?
 

---

Posted by btec (Участник № / Member № 3673) on :
 

code:

---

procedure TForm1.FormShow(Sender: TObject);
begin
  // TCP_Init вызывается при запуске проги
  Hnd_Bl:=nil;
// В этом примере для хоста 172.28.72.2 используется порт 9123.
// А вообще по умолчанию везде порт 9000
  Hnd_Bl:=TCP_Init('192.168.7.5',9000,5000,5000); // IP, port, timeout_connect, timeout_read
  if Hnd_Bl=nil then begin
    MessageDlg('Ошибка TCP_Init',mtError,[mbOK],0);
    Close;
  end;
  ReadAndShow;
  CNT:=0;
end;
//---
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if Hnd_Bl<>nil then TCP_Close(Hnd_Bl);
end;
//---
procedure TForm1.ReadAndShow;
const cOK=$0080FFFF;
      cER=clGray;
var D:TDat;
begin
  // TCP_RdAllAn читает значения всех параметров во внутренний буфер
  // Если TCP_RdAllAn возвр. 0 - ОК, если <0 - error
  if TCP_RdAllAn(Hnd_Bl)=0 then begin
    StBar1.SimpleText:=FormatDateTime('dd-mm-yyyy  hh:nn:ss',Now)+' - чтение данных - ОК';
  end else StBar1.SimpleText:=FormatDateTime('dd-mm-yyyy  hh:nn:ss',Now)+' - чтение данных - ERROR !!!';

  // А дальше вытаскиваем значения параметров по их идентификаторам
  D:=TCP_GetAnPar(Hnd_Bl,'BLT_TG1_PSUM');
  if D.IsOK=1 then stP1.Color:=cOK else stP1.Color:=cER;
  stP1.Caption:=FloatToStrF(D.PVal,ffFixed,5,1)+' ';
end;

---

 

---

Posted by btec (Участник № / Member № 3673) on :
 
RDTCP.dll
пример на паскале, был вместе с ней
я просто не пограммист
 

---

Posted by Romсheg (Участник № / Member № 3792) on :
 
Простите, а при чем здесь ТМ6 и эта DLL? Что-то никак не могу связи уловить.
 

---

Posted by btec (Участник № / Member № 3673) on :
 
Можно написать программу опроса контроллера на паскале и экспортировать по DDE в Эксель или на прямую в МРВ ТМ5.
 

---

Posted by Romсheg (Участник № / Member № 3792) on :
 
Только эта программа тогда еще и УСО контроллера опрашивать должна уметь, да и как-то логику работы самого контроллера (алгоритмы в нем) уметь реализовывать. В общем - не стоит того времени и сил. Проще уже готовое решение использовать, чем что-то свое писать с нуля.
 

---