GrozaUmnikam aka tarasdjОРС сервера есть разных категорий. Есть OPC HDA.1, OPC HDA.2. Так вот они чемто различаються. И все что я могуВам подзказать это то что у Вас ОРС HDA.1 , а этот код работает, почему то только с OPC HDA.2. Почему так я не знаю. Проблема в том что функция GetItemServerHandle не может получить хэндл итема. ТОчно такая же ситуация у меня с WinCC. И до сих пор я не выяснил почему.
Сервер на котором я отлаживал прогу: Logika.HDA.2 - работает, а с PCS.OPCHDAServer.1 не работает. Разница в том что логиковский ОРС второй категории, а wincc - первой.
Вот и б тоже очень хотел выяснить в чем проблема, но не могу, нет возможности!!!!
тут с вами не соглашусь.
есть один стандарт на текущий момент это 1.2 и все его поддерживают, были ещё 1.0, 1.1,
делфийские библиотечки по моему на 1.2 основанны.

да и по поводу переменной vt - я так понял что это максимальное количество запрашиваемых данных, можно поставить и 100000000000000 ))
а вот в цикле по выборке данных - да нужно вычислять количество пришедших строк.
так же выяснил что последней строкой приходит какой-то символ окончания, его нужно исключать из выборки.

ну вот после недели мучений ОРС HDA клиент готов, пока реализована возможность считывания 1-Й переменной, но начинаю делать считывание нескольких переменных, ну и в последующем выгрузку данных в БД.

GrozaUmnikam aka tarasdj,

OPCServerList - тут все сервера - переменная глобальная

потом
CLSIDServer := OPCServerList.CLSID[count];
count - выбранный сервер в listbox
CLSIDServer: TGUID;

GrozaUmnikam aka tarasdjfor_kav,

Приведите пожалуйста полный правильный код нажатия на кнопку. При котором будет определяться список ОРС серверов и помещаться в StringList. Если можно со всема переменными. Спасибо)))
сейчас дома уже. завтре на работу моё тело приползёт, утром глаз откроется и начеркаю что и как.

GrozaUmnikam aka tarasdjfor_kav,

Приведите пожалуйста полный правильный код нажатия на кнопку. При котором будет определяться список ОРС серверов и помещаться в StringList. Если можно со всема переменными. Спасибо)))

поиск ОРС серверов на машинах, так же требует правильно настроенного DCOM)) та ещё собака. за несколько лет работы столкнулся с тем, что находились такие сервера которые отказывались по сети передавать данные.

GrozaUmnikam aka tarasdjfor_kav,

Приведите пожалуйста полный правильный код нажатия на кнопку. При котором будет определяться список ОРС серверов и помещаться в StringList. Если можно со всема переменными. Спасибо)))

1 - посмотри файлик OPCHDA, там должна быть такая структура:
начало файла:
// *********************************************************************//
// GUIDS declared in the TypeLibrary //
// *********************************************************************//
const
LIBID_OPCHDA: TGUID = '{1F1217BA-DEE0-11D2-A5E5-000086339399}';
IID_IOPCHDA_Server: TGUID = '{1F1217B0-DEE0-11D2-A5E5-000086339399}';
IID_IOPCHDA_Browser: TGUID = '{1F1217B1-DEE0-11D2-A5E5-000086339399}';
IID_IOPCHDA_SyncRead: TGUID = '{1F1217B2-DEE0-11D2-A5E5-000086339399}';
IID_IOPCHDA_SyncUpdate: TGUID = '{1F1217B3-DEE0-11D2-A5E5-000086339399}';
IID_IOPCHDA_SyncAnnotations: TGUID = '{1F1217B4-DEE0-11D2-A5E5-000086339399}';
IID_IOPCHDA_AsyncRead: TGUID = '{1F1217B5-DEE0-11D2-A5E5-000086339399}';
IID_IOPCHDA_AsyncUpdate: TGUID = '{1F1217B6-DEE0-11D2-A5E5-000086339399}';
IID_IOPCHDA_AsyncAnnotations: TGUID =
'{1F1217B7-DEE0-11D2-A5E5-000086339399}';
IID_IOPCHDA_Playback: TGUID = '{1F1217B8-DEE0-11D2-A5E5-000086339399}';
IID_IOPCHDA_DataCallback: TGUID = '{1F1217B9-DEE0-11D2-A5E5-000086339399}';

CATID_OPCHDAServer10: TGUID = '{7DE5B060-E089-11d2-A5E6-000086339399}'; ---- вот эта строка должна присутствовать

// *********************************************************************//
// Declaration of Enumerations defined in Type Library //
// *********************************************************************//

процедура поиска:

procedure TForm1.EnumOPCServerClick(Sender: TObject);
var
i: integer;
begin
ListOPCServers.Clear;
ServerNames := TStringList.Create;
try
SetLength(CATIDs, 1);
CATIDs[0] := CATID_OPCHDAServer10;
OPCServerList := TOPCServerList.Create(Edit1.Text, false, CATIDs);

OPCServerList.Update;
ServerNames.AddStrings(OPCServerList.Items);

for i := 0 to ServerNames.count - 1 do
begin
ListOPCServers.Items.Add(ServerNames[i]);
end;
if ServerNames.count = 0 then
Log('Сервера необнаружены!')
else
Log('Сервера обнаружены!')
finally
ServerNames.Free;
end;
ConnectOPCServer.SetFocus; ---- это можешь убрать , это просто фокус на другую кнопочку
end;

GrozaUmnikam aka tarasdjВсе получилось!!!! Спасибо))
ну вот и я рад)
http://www.sql.ru/forum/images/happy.gif

GrozaUmnikam aka tarasdj,

чтение всех переменных сделал в цикле?
просто из списка?

GrozaUmnikam aka tarasdj,

не могу сказать со 100% уверенностью, что работать не будет, но возможно нужно проверять данные на принадлежность к типам стандарта ОРС.
а в стандарте 1.2 есть пункт Revision 1.2 Highlights, там есть изменения некоторые.
а вообще можете написать что за ошибку выдаёт ОРС сервер WinCC?
на какой функции затыкается в дебагере?
как точно называется ОРС сервер? и если можно его GUID.