драйвер Delphi

[Tip]

procedure TForm1.FormCreate(Sender: TObject);
begin

V := CreateOleObject('OPC.Automation'); V.Connect('OWEN.RS485');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
V.OPCGroups.Add('Group1');
Item1:= V.OPCGroups.GetOPCGroup('Group1').OPCItems.AddItem ('Com1/MVA8(11bit adr=40)/General_ID/VER', 1);
Item1.Read(V.OPCGroups.GetOPCGroup('Group1').OPCIt ems.Item('Com1/MVA8(11bit adr=40)/General_ID/VER'),Val1);
edit1.Text:=vartostr(Item1.Value);
end;

ошибка в строке:Item1.Read(V.OPCGroups.GetOPCGroup('Group1' ).OPCItems.Item('Com1/MVA8(11bit adr=40)/General_ID/VER'),Val1); - параметр задан неверно

[AWA1971]

Точно сказать не могу, т.к. с OWEN.RS485 не работал (не было пока надобности). Поэтому, может и не в тему (вдруг пригодится...), но я в первую очередь постарался подцепиться к серверу через Kassl-овский dOPC Explorer и посмотрел, как отражаются там нужные переменные. В Delphi они будут выглядеть точно также. Может быть там все дело в какой-нибудь точке. И еще...может я не прав, но может параметр General_ID стоит поменять на General_IDs? Вы в любом случае напишите, получилось что-нибудь или нет. Может тоже придется с этим столкнуться.

P.S. Насчет General_ID точно обманул. Посмотрел по Explorer - переменная так и отражается. Проверьте соответствие типа обьявленной переменной Val1. Может быть все-таки не string?

[Tip]

var
V:variant;
val1:string;

FormCreate:
V := CreateOleObject('OPC.Automation');
V.Connect('OWEN.RS485');
V.OPCGroups.add('Group1');
V.OPCGroups.GetOPCGroup('Group1').OPCItems.AddItem ('Com1/MVA8(8bit adr=40)/General_ID/VER', 1);
Button1Click:
val1:=V.OPCGroups.item('Group1').OPCItems.Item('Co m1/MVA8(8bit adr=40)/General_ID/VER').value;
edit1.Text:=val1;

и в edit1 пусто, в kassl строки пишутся со '/', т.е. также, и значения читаются. меня начало смущать CreateOleObject('OPC.Automation'); может необходимы какие либо действия на самой виндой?

[AWA1971]

Может модуль какой не подключен? Примерный перечень:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComObj, OleCtrls, ExtCtrls;

Что касается CreateOleObject('OPC.Automation'), то если в трее появляется иконка "485", то свою задачу он выполняет. Попробуйте обьявить Val1:variant. Может еще какой-нибудь тип. Просто нет у меня МВА (да и все ОВЕНовское в работе), попробывать читать-писать, соответственно, не могу.
Народ, да помогите же человеку! Ведь в мелочи какой-нибудь дело то.

[Малышев Олег]

Простите что неточно выразился
Вызывайте ЧТЕНИЕ - отдельной процедурой.
Item1.Read(V.OPCGroups.GetOPCGroup('Group1').OPCIt ems.Item('Com1/MVA8(11bit adr=40)/General_ID/VER'),Val1); // здесь возникает ошибка!
edit1.Text:=vartostr(Item1.Value);

Суть в следующем - группа мгновенно отдает значение элемента - но фактически он еще не прочитан!!!

Еще проблема в том что в OPC клиенте нужно выбрать разделитель явно и по умолчанию он не всегда '/'. См документацию на свой OPC клиент

[Tip]

я уже думаю что проблема в guid-ах
исходник в студию:

[Филоненко Владислав]

честно говоря это первые шаги и есть проблемы: при простое обмена клиента с плк через 12-13 сек. теряется связь.. - по стандарту Tcp/ip при отсутствии потока данных в соединении в течении таймаута (10 сек в нашем случае) соединение должно быть закрыто.
если надо его держать открытым - посылайте пустые (нулевые) пакеты.

[AntoNechayuk]

народ! у кого-то есть кодесисовский орс-сервер инсталлятор (без кодесиса)?? - дайте плиз.

[AWA1971]

http://forum-ru.3s-software.com/view...E5%F0%E2%E5%F0
Здесь не смотрели? Но нужна регистрация. Мне почему то в ней отказали (правда, вместо этого пригласили...в Нюрнберг), поэтому на 100% гарантировать наличие инсталлятора не могу. Впрочем, там и так есть много полезного и не только про OPC.

[nalnik]

В Delph7 заработало, но постоянно растет используемая память, система тормозит.