Problem: Modifizieren der KLasse WPDataFile ---> WPPrintDriver
Voraussetzung: Das Objekt wurde mit SysCreateOBject erstellt und existiert
Aktion: Aufruf von SysCreateObject mit der Option UPDATEEXISTS bzw 'U'
Programm:
/* Modifikation eines existierenden Objects mit SysCreateObjects */
F RxFuncQuery("SysCreateObject") THEN
DO
RC = RxFuncAdd("SysCreateobject","RexxUttil","SysCreateObject")
IF (RC) THEN DO
SAY "REXX - Funktion SysCreateObject konnte nicht registriert werden"
EXIT
END
ELSE
CALL SysCreateObject
END
CLASS = 'WPPrintDriver'
TITEL= 'EPSON - XYZ'
FOLDER = '<TESTFOLDER>'
OPTIONS= 'OBJECTID=<TESTfDRIV>ER>' || 'EXENAME=X:DRIVERSEP05.DRV'
ACTION = 'U'
RC = SySCreateObject(CLASS,TITEL,FOLDER,OPtIONS, ACTION)
IF( RC) THEN say ' Das Objekt mit dem Titel ' , TITEL , 'konnte nicht modifiziert werden'
EXIT
Hinweis:
Einige Informationen, wie .CLASSINFO aufgebaut ist, findet man hier. Aber dies zu lesen, würde ein C++ Programm mit biärenOperationen bedeuten. Das ist aber jedoch nicht erforderlich, wenn schon ein EA für ein Object existiert. Dann kann man es eben wie gezeigt mit SysCreateObject modifizieren.
Die Quelle:
http://www.cs.wayne.edu/~tom/guide/os2.html
[ Leser: 91 ] |