Zugriff mit Win32::OLE und PI-SDK auf PI-DB (Datenbanken und Verzeichnisdienste)

[thread]19463[/thread]

Zugriff mit Win32::OLE und PI-SDK auf PI-DB

Tags: perl5 Win32::OLE PISDK Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+3 replies
mmrwe

2015-01-16 10:35
User since
2014-10-13
5 Artikel
BenutzerIn
Hallo,

ich versuche, mit OLE und dem PI-SDK der Firma Osisoft Daten aus deren PI-Datenbank zu lesen.
Es gelingt mir, Snapshotdaten eines PI-Tags zu lesen, aber beim Aufruf der Methode "RecordedValues" erhalte ich immer die Fehlermeldung
"win32::OLE(0.1711) error 0x80020005: "Typkonflikt"
in METHOD/PROPERTYGET "RecordedValues" argument "BoundaryType" at Pi.pl line ..
Möglicherweise liegt der Fehler darin, daß Perl Parameter immer per Referenz übergibt, das Argument "BoundaryType" aber per Value übergeben werden muß.

Im PI-Help-Utility findet man:
---
RecordedValues Method (PIData object)

This method returns compressed values for the requested time range from the archive as a PIValues collection.
Syntax
object.RecordedValues StartTime, EndTime, BoundaryType, [FilterExp], [ShowFiltered], [AsyncStatus]

The RecordedValues method syntax has these parts:
Part Description
object An object expression that evaluates to a PIData object.
StartTime A Variant containing the time. See the Settings section for allowable values.
EndTime A Variant containing the time. See the Settings section for allowable values. When ...
BoundaryType A value from the BoundaryTypeConstants enumeration type that determines how the times and values of the returned end points are determined.
---

Die BoundaryTypeConstants kann man auslesen (my $piConst = Win32::OLE::Const->Load($PI);),
mögliche Werte sind 0,1,2,3 und sollten als .NET-Enumeration vom Typ int sein (4 Bytes).

Ich habe mehrere Aufrufmöglichkeiten ausprobiert, aber die Fehlermeldung bleibt.
Hier ein Auszug der Perl-Codes:
Code (perl): (dl )

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

#! /usr/bin/perl use warnings; use strict; use Win32::OLE; use Win32::OLE::Const; use Win32::OLE::Variant; my $PI = Win32::OLE->new('PISDK.PISDK') or die "PISDK Error: ",Win32::OLE->LastError(); my $piConst = Win32::OLE::Const->Load($PI); #print "PiConst: $_ \t= $piConst->{$_}\n" for (sort(keys(%$piConst))); # print all constants my $server = $PI->Servers->Item("Servername") or die "No PI server Objekt: ",Win32::OLE->LastError(),"\n"; my $status = $server->Open("UID=Username;PWD=Userpassword"); print_point ('PI-Tag_Name'); sub print_point { my $piTag = $_[0]; my $point = $server->PIPoints->item($piTag); print "\npiTag: $piTag Point: $point\n"; unless ($point) { print "piTag $piTag kann nicht gelesen werden\n"; return; } print "\t$_ = $point->{$_}\n" for(sort(keys(%$point))); # ok print "\tData: $_ = $point->Data->{$_}\n" for(sort(keys(%{$point->{Data}}))); # ok print "\tData-Snapshot: $_ = $point->Data->Snapshot->{$_}\n" for(sort(keys(%{$point->Data->{Snapshot}}))); # ok my $startTime = Variant(VT_DATE,'05.01.2015 12:00:00'); my $endTime = Variant(VT_DATE,'07.01.2015 23:45:00'); my $btFlag = Variant(VT_I4,$piConst->{btInside}); $Win32::OLE::Warn = 3; my $recValues = $point->Data->RecordedValues($startTime,$endTime,$btFlag); # error "Typkonflikt" at argument "BoundaryType" my $recValues = $point->Data->RecordedValues($startTime,$endTime,$piConst->{btInside}); # same error my $recValues = $point->Data->RecordedValues('05.01.2015 12:00:00','07.01.2015 12:00:00',0); # same error my $recValues = $point->Data->RecordedValues( {StartTime => "05.01.2015 12:00:00", # same error EndTime => "07.01.2015 12:00:00", BoundaryType => Variant(VT_I4,0)} ); # BoundaryType => 0} }
Ich vergaß zu ergänzen:
Bei Microsoft findet sich ein Hinweis auf den Fehler (http://support.microsoft.com/kb/507620/de):
Die Fehlermeldung tritt nur auf, wenn folgende Bedingungen erfüllt sind:
*Der Parameter wird by-reference übergeben
*Der korrespondierende Visual Basic-Datentyp ist entweder Byte, Integer, Single oder Double
Dies Verhalten ist beabsichtigt.

Aber wie den Fehler vermeiden?

Editiert von mmrwe: Hinweis auf Microsoft Fehler-Beschreibung
Last edited: 2015-02-02 17:53:41 +0100 (CET)
- +2 replies
- rosti
  
  2015-02-03 08:35
  
  User since
  2011-03-19
  3743 Artikel
  BenutzerIn
  
  Quote
  Die BoundaryTypeConstants kann man auslesen (my $piConst = Win32::OLE::Const->Load($PI);),
  mögliche Werte sind 0,1,2,3 und sollten als .NET-Enumeration vom Typ int sein (4 Bytes).
  
  Importiert hast Du die Konstanten, OK. Damit sollte auch die Byte-Order stimmen, aber möglicherweise liegt gerade hier der Fehler in der Implementierung der PI-DB. Ich würde den BoundaryType (4 Byte Integer) mal händisch als BigEndian oder LittleEndian (pack Schablone "N" bzw. "V") setzen (also nicht die Konstante nehmen).
  https://www.rolfrost.de/
  
  Forum zu Fragen unserer Zeit
  - mmrwe
    
    2015-02-10 15:46
    
    User since
    2014-10-13
    5 Artikel
    BenutzerIn
    
    Ich verwende BoundaryType=0 und für Hex 0 ist BigEndian gleich LittleEndian. Wie kann ich den 3. Parameter by value übergeben oder händisch die für die OLE-Methode passende Parameterstruktur erzeugen?

View all threads created 2015-01-16 10:35.