Проблемы взаимодействия OPC сервера и программы под Delphi-7
Проблемы взаимодействия OPC сервера и программы под Delphi-7
Доброе время суток!
Скачал демо версию вашего OPC сервера с целью проверить его взаимодействие с программой написанной под Delphi-7 (работаю на ПК с ОС Windows-7).
Ни как не получается получить данные с OPC Сервера через DDE !
Контакт с сервером устанавливается OpenLink возвращает true.
Но событие onChange свойства DDEItem ни когда не вызывается, хотя данные в переменой в OPC сервере изменяются.
Ниже привожу текст программы основного модуля:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DdeMan, StdCtrls;
type
TForm1 = class(TForm)
DdeClientConv1: TDdeClientConv;
DdeClientItem1: TDdeClientItem;
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure DdeClientItem1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
MyStr: TStrings;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
if DDEClientConv1.OpenLink then begin
ShowMessage('Сервер ' + DDEClientConv1.DdeService + ' ответил!');
DdeClientItem1.DdeItem:= 'RegIn';
end else begin
ShowMessage('Сервер ' + DDEClientConv1.DdeService + ' не доступен!');
end;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DDEClientConv1.CloseLink;
end;
procedure TForm1.DdeClientItem1Change(Sender: TObject);
begin
Edit1.Text := trim(DdeClientItem1.Text);
end;
end.
Дополнительно, наверное надо сказать что демо программа на Excel так же не работает. Данные не записываются ни считываются. Все действия делаю по инструкции к программе.
Что ни так делаю? Может есть какие то особенности работы программы ? Или необходима доп. настройка ОС?
Скачал демо версию вашего OPC сервера с целью проверить его взаимодействие с программой написанной под Delphi-7 (работаю на ПК с ОС Windows-7).
Ни как не получается получить данные с OPC Сервера через DDE !
Контакт с сервером устанавливается OpenLink возвращает true.
Но событие onChange свойства DDEItem ни когда не вызывается, хотя данные в переменой в OPC сервере изменяются.
Ниже привожу текст программы основного модуля:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DdeMan, StdCtrls;
type
TForm1 = class(TForm)
DdeClientConv1: TDdeClientConv;
DdeClientItem1: TDdeClientItem;
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure DdeClientItem1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
MyStr: TStrings;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
if DDEClientConv1.OpenLink then begin
ShowMessage('Сервер ' + DDEClientConv1.DdeService + ' ответил!');
DdeClientItem1.DdeItem:= 'RegIn';
end else begin
ShowMessage('Сервер ' + DDEClientConv1.DdeService + ' не доступен!');
end;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DDEClientConv1.CloseLink;
end;
procedure TForm1.DdeClientItem1Change(Sender: TObject);
begin
Edit1.Text := trim(DdeClientItem1.Text);
end;
end.
Дополнительно, наверное надо сказать что демо программа на Excel так же не работает. Данные не записываются ни считываются. Все действия делаю по инструкции к программе.
Что ни так делаю? Может есть какие то особенности работы программы ? Или необходима доп. настройка ОС?
Re: Проблемы взаимодействия OPC сервера и программы под Delp
Чтобы ответить по существу, нужны данные.
Вышлите на lectussoft@gmail.com:
1) Суть проблемы;
2) Используемую конфигурацию *.cfg;
3) Лог работы *.log из каталога Log папки профиля (через меню "Настройка" - "Папка профиля");
4) Отчеты об ошибке *.txt из каталога BugReport папки профиля (если есть).
Вышлите на lectussoft@gmail.com:
1) Суть проблемы;
2) Используемую конфигурацию *.cfg;
3) Лог работы *.log из каталога Log папки профиля (через меню "Настройка" - "Папка профиля");
4) Отчеты об ошибке *.txt из каталога BugReport папки профиля (если есть).
Re: Проблемы взаимодействия OPC сервера и программы под Delp
Данные запрошенные Вами выслал - жду помощи.
Re: Проблемы взаимодействия OPC сервера и программы под Delp
Думаю все таки есть проблемы в работе DDE сервера, входящего в состав сервера Lectus. Т.к. не работает ни только моя программа но и Ваш демонстрационный пример.
Re: Проблемы взаимодействия OPC сервера и программы под Delp
Действительно есть некорректное подключение по DDE.
Будет исправлено в следующем релизе программы.
Выйдет в течении недели.
Будет исправлено в следующем релизе программы.
Выйдет в течении недели.
Re: Проблемы взаимодействия OPC сервера и программы под Delp
Господа! В новой версии Сервера так и не работает DDE сервер!
Re: Проблемы взаимодействия OPC сервера и программы под Delp
Исправления по DDE будут в следующей версии.
Скорее всего выйдет в понедельник 02.11.15
Скорее всего выйдет в понедельник 02.11.15
Re: Проблемы взаимодействия OPC сервера и программы под Delp
Вышла новая версия Lectus Modbus OPC/DDE server 3.10 сборка 6.
Исправлено: передача данных по DDE
Исправлено: передача данных по DDE
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и 1 гость