SysCreateObject von echten Directories
Lüko Willms
Von diesem Objektkram hab ich mich ja bisher immer ferngehalten, aber
jetzt wird es wohl n�ｿｽtig: nach der Neuinstallation von DrDialog (nach
einer Neuinstallation von OS/2) gibt es einen Ordner "DrDialog" auf
der Arbeitsoberfl�ｿｽche (bzw. gleich verschoben nach "PDev" f�ｿｽr "Program
Development"), aber die Unterverzeichnisse des Directory DrDialog, die
fr�ｿｽher immer in diesem Folder sichtbar waren, sind es nicht mehr.
In diesen Unterverzeichnissen sind meine DrDialog-Programme, und ich
brauche die als Icons oder Objekte in so einem Folder, um die mit
Drag-und-Drop auf REStoEXE z.B. zu ziehen.
Jetzt will ich in dem DrDialog-Folder die drei Unterverzeichnisse des
Verzeichnisses DrDialog erzeugen, und versuche das mit REXX
(nat�ｿｽrlich), aber es klappt nicht. Diese Sub-Folder sollen nat�ｿｽrlich
automatisch alle Dateien anzeigen, die in diesen Verzeichnissen
enthalten sind. Fr�ｿｽher war das alles da, ohne Probleme...
Die Beschreibung der Funktion SysCreateObject in IBM's Handbuch zu
REXX (das allerdings noch aus der "OS/2 2.0 Technical Library" stammt)
pa�ｿｽt anscheinend nicht mehr zu dem, was heutzutage gefordert ist
(jetzt OS/2 Warp 4 mit FP15).
Welche Paramter mu�ｿｽ ich dem SysCreateObject mitgeben? Mein letzter
Versuch sieht so aus (die Zitatzeichen am Zeilenanfang sollen ein
Umbrechen der Zeilen verhindern):
------- schnipp --------------------
> /* REXX */
> /* Register subdirectories as WP Objects */
>
> CALL RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
> Call SysLoadFuncs
>
> verzeichnisAktuell = DIRECTORY()
> erg = SysFileTree(verzeichnisAktuell"\*.*","subdir","DO")
> DO i = 1 TO subdir.0
> rc = SysCreateObject("WPfolder",FILESPEC(subdir.i, "NAME"),"<DRDIALOG>",subdir.i||"\")
> IF rc = 1 THEN
> SAY "Erfolg: " subdir.i
> ELSE
> SAY "Fehler: " subdir.i
> END
> EXIT
---------------- schnapp ------------------
-- -----------------------------------------------------
Was Ahmadinejad wirklich sagte:
<http://www.presstv.ir/detail.aspx?id=92046>
Lüko Willms
<l.wi...@domain.invalid> auf de.comp.os.os2.programmer :
> Von diesem Objektkram hab ich mich ja bisher immer ferngehalten, aber
> jetzt wird es wohl n�tig: nach der Neuinstallation von DrDialog (nach
> einer Neuinstallation von OS/2) gibt es einen Ordner "DrDialog" auf
> der Arbeitsoberfl�che (bzw. gleich verschoben nach "PDev" f�r "Program
> Development"), aber die Unterverzeichnisse des Directory DrDialog, die
> fr�her immer in diesem Folder sichtbar waren, sind es nicht mehr.
wobei mir inzwischen d�mmert, da� das nicht schon durch die
Neuinstallation geschehen sein kann, denn vor kurzem erst habe ich ein
altes DrDialog-Programm ge�ndert, und bin dazu ziemlich sicher durch
die Unterfolder von dem "DrDialog"-Folder gegangen. Es k�nnte ein
grunds�tzlicheres Problem sein mit dem WPS-Zugriff auf die Laufwerke;
ein Klick auf das Laufwerke-Symbol in der Klickleiste oben
(Warpcenter?) resultiert n�mlich in einem unendlich langen Warten oder
sogar H�ng.
Das wiederum k�nnte von SAMBA verursacht sein, weil einer der
Computer in der Domain derzeit nicht erreichbar ist.
OS/2 macht immer wieder riesige Probleme...
MfG,
L.W.
Lüko Willms
<l.wi...@domain.invalid> auf de.comp.os.os2.programmer :
Jetzt hab ich endlich Erfolg gehabt! Rumprobieren, und eine alte
Ausgabe von "IBM Developer Connection", die ich vor langer Zeit mal
von zweiter Hand gekauft, aber nie angeschaut hatte, haben geholfen.
> Welche Paramter mu� ich dem SysCreateObject mitgeben?
Die Syntax sieht so aus:
---------- schnipp ---------------------------------
Syntax: SysCreateObject(class_name,
title,
location,
<setup_string>,
<option>)
where
class_name Name of the Workplace Shell class of which the
object
is a member of, such as WPFolder.
title New object's title.
location Either an object ID, such as <WP_DESKTOP>, or a
fully
qualified path name.
setup_string A series of keynames that change the behavior of the
object. The keynames are separated by a semicolons
and values are separated by commas.
option An action to be taken if the object class already
exists. The action could be FAIL, REPLACE, or
UPDATE.
----------------------- schnapp ---------------------------
> Mein letzter
jetzt erfolgreicher
> Versuch sieht so aus:
------------ schnipp ------------------------------------
/* REXX */
/* Register subdirectories as WP Objects */
CALL RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
Call SysLoadFuncs
verzeichnisAktuell = DIRECTORY()
erg = SysFileTree(verzeichnisAktuell"\*.*","subdir","DO")
DO i = 1 TO subdir.0
rc = SysCreateObject("WPShadow",FILESPEC("NAME", subdir.i),,
"<DRDIALOG>","SHADOWID="||subdir.i,"R")
IF rc = 1 THEN
SAY "Erfolg: " subdir.i
ELSE
SAY "Fehler "||rc||": " subdir.i " als " FILESPEC("NAME",
subdir.i)
END
EXIT
------------------------ schnapp ------------------------
Wie �blich: man mu� nur mal jemanden fragen, dann findet man es auch
selbst heraus.
MfG,
L.W.
Lüko Willms
<l.wi...@domain.invalid> auf de.comp.os.os2.programmer :
> wobei mir inzwischen d�mmert, da� das nicht schon durch die
> Neuinstallation geschehen sein kann, denn vor kurzem erst habe ich ein
> altes DrDialog-Programm ge�ndert, und bin dazu ziemlich sicher durch
> die Unterfolder von dem "DrDialog"-Folder gegangen. Es k�nnte ein
> grunds�tzlicheres Problem sein mit dem WPS-Zugriff auf die Laufwerke;
> ein Klick auf das Laufwerke-Symbol in der Klickleiste oben
> (Warpcenter?) resultiert n�mlich in einem unendlich langen Warten oder
> sogar H�ng.
Das resultiert zwar immer noch in einer l�ngeren Wartezeit, aber
kein System Hang.
Inzwischen vermute ich, da� ich ein Objekt vom Typ "WPShadow"
erzeugen m��te, mit dem kompletten Pfad als "location", aber was ich
da so an Beispielen sehe, l��t mich nicht ein klares Muster erkennen,
wie das gehen sollte.
Und es ist immer noch ein R�tsel, warum das Verzeichnis da
verschwunden ist.
Andreas Schnellbacher
[DrDialog-Probleme mit Programmobjekten und Zuordnungen]
Ja, installier doch einfach DrDialog nochmal. Das hilft.
(Alternativ dazu k�nntestest Du auch mit einem beliebigen Werkzeug die
alten Einstellungen auf die Neuinstallation [oder was auch immer]
uebertragen.)
BTW: Du koenntest Deinen Ton mal ueberdenken/ueberarbeiten.
--
Andreas Schnellbacher
Lüko Willms
<as...@despammed.com> auf de.comp.os.os2.programmer :
> installier doch einfach DrDialog nochmal. Das hilft.
Nein, es hat nicht geholfen. Ich hab mehrfach "install.cmd"
aufgerufen, ohne gew�nschtes Ergebnis.
> BTW: Du koenntest Deinen Ton mal ueberdenken/ueberarbeiten.
Wiebitte?
MfG,
L.W.
Lars Erdmann
1.) keyword OBJECTID fehlte
2.) jede OBJECTID muss eindeutig sein
Lars
"L�ｿｽko Willms" <l.wi...@domain.invalid> schrieb im Newsbeitrag
news:czd2LKcn8EGd-p...@lueko.willms.dialin.t-online.de...
Lüko Willms
<as...@despammed.com> auf de.comp.os.os2.programmer :
Ein Nachtrag:
> [DrDialog-Probleme mit Programmobjekten und Zuordnungen]
>
> Ja, installier doch einfach DrDialog nochmal. Das hilft.
Nu, ich hab mich durchgebissen und etwas gelernt. Und zwar die
WPS-Objektwelt, mit der ich bisher nicht zu tun hatte.
> (Alternativ dazu k�nntestest Du auch mit einem beliebigen Werkzeug die
> alten Einstellungen auf die Neuinstallation [oder was auch immer]
> uebertragen.)
Es ist irgendwas anderes passiert, und Einstellungen von vorigen
Installationen zu �bernehmen, klappt bei OS/2 leider nicht, oder es
erfordert besondere Kenntnisse, die man von einem gew�hnlichen
Anwender nicht verlangen kann. Windows �bersteht eine Neuinstallation
des Betriebssystems mit wesentlich weniger Schwierigkeiten.
MfG,
L.W.
Robert Berghaus
[...]
> Anwender nicht verlangen kann. Windows �bersteht eine Neuinstallation
> des Betriebssystems mit wesentlich weniger Schwierigkeiten.
Wie ist das denn gemeint? Wenn ich *Windows* neu installiere, ist
vom alten *System* nichts mehr da.
Meinst Du vielleicht eine Reparaturinstallation?
[...]
Gr��e aus dem Bergischen Land
Robert
Willms
<Robert....@gmx.de> auf de.comp.os.os2.programmer :
> > Anwender nicht verlangen kann. Windows �bersteht eine Neuinstallation
> > des Betriebssystems mit wesentlich weniger Schwierigkeiten.
>
> Wie ist das denn gemeint? Wenn ich *Windows* neu installiere, ist
> vom alten *System* nichts mehr da.
Ja? Ich hab schon x-mal ein Windows �ber ein vorhandenes
dr�bergeb�gelt, und die Arbeitsoberfl�che war so wie vorher, oder u.U.
von den vorher eingeschmuggelten Fehlern befreit.
> Meinst Du vielleicht eine Reparaturinstallation?
N�, ich meinte nur "einfach dr�berb�geln". OK, bei neueren Versionen
von Windows gibt es auch solche "Reparaturinstallationen".