|
Как работать с IOPCHDA_Server из проекта opcdelphi
#37630263
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
|
|
|
|
for_kav,
Я Вам даю рабочий кусочек кода которым можна считать тег:
А Вас я хочу попросить кусочек кода которым Вы определяете список серверов на компьютере спомощю Enum. Если не жалко!!!
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Коннект
function HDAConnectRemoteFromSynthRead(ComputerName: String; ServerName: string): Boolean;
begin
if Trim(ServerName) <> '' then
begin
ServerProgID:=StringToOleStr(ServerName);
Res:=CLSIDFromProgID(ServerProgID,ServerCLSID);
try
HDASyncRead:=CreateRemoteComObject(ComputerName, ServerCLSID) as IOPCHDA_SyncRead;
except
HDASyncRead := nil;
ShowMessage('Класс не зарегистрирован');
Exit;
end;
HDASyncRead.QueryInterface(iid,Container);
Result:=true;
end;
end;
Скормим тег чтобы получить СерверХандл
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
function GetItemServerHandle(ServerIf: IUnknown;
sItem: string; iClient: DWORD; var iServer: DWORD): HRESULT;
var
sItemW: WideString;
PsItemW: POleStr;
arrPsItemW: array [0..0] of pointer;
arrClient: array [0..0] of DWORD;
phClient, pphServer: POPCHANDLEARRAY;
Errors: PResultList;
ServIf: IOPCHDA_Server;
begin
Result := E_FAIL;
iServer:=0;
try
ServIf := ServerIf as IOPCHDA_Server;
except
ServIf := nil;
end;
if ServIf <> nil then
begin
sItemW:=sItem; PsItemW:=POleStr(sItemW);
arrPsItemW[0]:=PsItemW;
arrClient[0]:=iClient;
phClient:=@arrClient;
Result := ServIf.GetItemHandles(1,
@arrPsItemW, phClient, pphServer, Errors);
if Succeeded(Result) then
begin
Result := Errors[0];
CoTaskMemFree(Errors);
iServer:=pphServer^[0];
CoTaskMemFree(pphServer);
end;
end;
end;
Само считывание
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
HDAConnectRemoteFromSynthRead('ComputerName','ServerName');
Res:=GetItemServerHandle(HDASyncRead ,'TagNAme',iServerH);
htStartTime.bString:=false;
htStartTime.ftTime := DateTimeToFileTime(EncodeDateTime(CYear, CMonth, CDAy, 00, 00, 00, 000));
arrServer[0]:=iServerH;
phServer:=@arrServer;
Res:=HDASyncRead.ReadRaw(htStartTime, htEndTime, vt+1 , false, 1 ,phServer, ppItemValues, ppErrors);
if ppItemValues = nil then ListBox1.Items.Add(timetostr(now)+' Error! ');
if Res=E_FAIL then ShowMessage('fail');
dataarray.Clear;
datearray.Clear;
newdataarray.Clear;
ppItemValuesItem:=ppItemValues^[0];
pvDataValues:=ppItemValuesItem.pvDataValues;
pftTimeStamps:=ppItemValuesItem.pftTimeStamps;
haAggregate:=ppItemValuesItem.haAggregate;
dwCount:=ppItemValuesItem.dwCount;
for i := 0 to vt do
begin
dataarray.Append(pvDataValues[i]);
end;
for i := 0 to vt-1 do begin
datearray.Append(DateTimeToStr(FileTimeToDateTime(pftTimeStamps[i])));
end;
Ну а вот так завершить Сервер
1.
2.
3.
HDASyncRead._AddRef;
Res := HDASyncRead._Release;
HDASyncRead := nil;
Преображение:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
function DateTimeToFileTime(FileTime: TDateTime): TFileTime;
var
LocalFileTime, Ft: TFileTime;
SystemTime: TSystemTime;
begin
Result.dwLowDateTime := 0;
Result.dwHighDateTime := 0;
DateTimeToSystemTime(FileTime, SystemTime);
SystemTimeToFileTime(SystemTime, LocalFileTime);
LocalFileTimeToFileTime(LocalFileTime, Ft);
Result := Ft;
end;
Ну и чтобы вообще было щастье переменные. Тут должно быть для Вас есть лишние, я разбираться не буду. Это уж Вы сами уже!!
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
var
Form1: TForm1;
HDAServerIf: IOPCHDA_Server;
HDASyncRead: IOPCHDA_SyncRead;
i: integer;
iServerH: DWORD;
Res: HRESULT;
// чтение
htStartTime: OPCHDA_TIME;
htEndTime: OPCHDA_TIME;
dwNumValues: DWORD;
bBounds: BOOL;
dwNumItems: DWORD;
phServer: POPCHANDLEARRAY;
arrServer: array [0..0] of DWORD;
ppItemValues: POPCHDA_ITEMARRAY;
ppErrors: PResultList;
ppItemValuesItem: OPCHDA_ITEM;
pvDataValues: POleVariantArray;
pftTimeStamps: PFileTimeArray;
haAggregate: DWORD;
dwCount: DWORD;
newdataarray: TStrings;
dataarray: TStrings;
datearray: TStrings;
CountArray, List: TStrings;
AggregateArray: TStrings;
Computers, ListHDA: TStringList;
szNode: POleStr;
pszItemID: PWideChar;
pszName: PWideChar;
pdwAttrID: PDWORDARRAY;
pOperator: POPCHDA_OPERATORCODESARRAY;
Ini: TIniFile;
m, n, j: Integer;
fltree, flin: bool;
FlDb, flauto: bool;
Container: IConnectionPointContainer;
ServerProgID: POLeStr;
ServerCLSID: TCLSID;
pdwCount: DWORD;
ppdwAttrID: PDWORDARRAY;
ppszAttrName: POleStrList;
ppszAttrDesc: POleStrList;
ppvtAttrDataType: PVarTypeList;
|
|
|
