Nutzung Im Script - Siemens SINUMERIK840D sl Handbuch

Rückgabe-Wert:
0
-1
-2
-4
-5
-6
-7

Nutzung im Script:

If S7Ext.Magic("") < 0 Then
Wscript.Quit(1)
End If
Set Proj1 = s7.Projects("neu")
set S7Prog = Nothing
Set s7prog = Proj1.Programs.Item(1) 'wenn es nur ein Programm gibt
For Each cont In s7prog.Next
If (Cont.ConcreteType = S7BlockContainer) Then
' Bausteincontainer prüfen
Exit For
End if
Cont = Nothing
Next
Fehler = S7Ext.MakeSerienIB("f:\dh\arc.dir\PLC.arc", 0, Cont)
'Jetzt Fehlerauswertung
Der oben programmierte For Each...Next Block kann in der Programmiersprache Delphi wie
folgt programmiert werden (ähnliche Programmierung gilt auch für die Programmiersprache
C, C++):
Var
EnumVar: IEnumVariant;
rgvar: OleVariant;
fetched: Cardinal;
//For Each Next
EnumVar := (S7Prog.Next._NewEnum) as IEnumVariant;
While (EnumVar.Next(1,rgvar,fetched) = S_OK) Do Begin
Cont := IS7Container(IDispatch(rgvar)); // Bausteincontainer,
Quellen prüfen
If (Cont.ConcreteType = S7BlockContainer) Then Break;
Cont := NIL;
End;
PLC-Grundprogramm solution line (P3 sl)
Funktionshandbuch, Ausgabe 03/2006, 6FC5397-0BP10-1AA0
= OK
= Funktion nicht verfügbar, Funktion Magic vorher aufrufen
= Filename nicht erzeugbar
= Parameter Container ungültig oder BausteinContainer leer
= interner Fehler (Speicheranforderung durch Windows abgelehnt)
= interner Fehler (Problem im STEP7 Projekt)
= Schreibfehler beim Erzeugen des SerienIB Files (z. B. Diskette voll)
Ausführliche Beschreibung
2.4 Inbetriebnahme PLC-Programm
2-15