XProfan

- Seite 1 -

Dieter
Zornow

Hallo Thomas,

das funktioniert auch nicht, hängt wohl mit den virtuellen Verzeichnissen von Win 7 zusammen. Das Verzeichnis Programme heißt ja echt Program Files, wird aber als Programme angezeigt. Ich denke das wird unter 64 bit noch schlimmer, da es da ja zwei Program Files gibt. Da muss wohl die ganze Einleseroutine des Treeviews umgeändert werden. Es werden nur alle Systemverzeichnisse falsch eingelesen, die normalen gehen.

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

Thomas
Freier

Hallo Dieter,

geht denn die "Ordnerwahl" für die "Dateipfade" unter "Einstellung ändern" im "A5 Heft Tool" ? Werden da die Ordner angezeigt und können ausgewählt werden?
Hatte zum Filebrowser schon "Pascal" kontaktiert, ob ihm Probleme, was er verneinte, bekannt sind. Er arbeitet aber an einer neuen Version.

Gruß Thomas
Windows XP SP2, XProfan X2

Uwe
''Pascal''
Niemeier

Hi Thomas!

Hatte zum Filebrowser schon "Pascal" kontaktiert, ob ihm Probleme, was er verneinte, bekannt sind. Er arbeitet aber an einer neuen Version.

Habe aber auch nur XP

SeeYou
Pascal

Dieter
Zornow

Hallo Thomas,

beim A5 Heft Tool hatte ich nichts getestet, da ich mich nur auf deine vorgegebenen Dateien konzentriert hatte.

@Pascal

der Filebrowser macht unter XP auch Probleme, wenn es in Documente und Einstellungen geht. Im Userbereich kommen auch hier falsche Verzeichnisse, teste mal alles durch. Das hatte ich damals schon festgestellt. Unter Programme ist bei XP alles ok.

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

Thomas
Freier

Also bei Pascals Treeview fehlen mir unter XP in der Auflistung "schreibgeschützte", bzw. "versteckte", Ordner und Dateien.
Dieter, meine Frage war: listet WIN 7 bei @ChooseDir$("Verzeichnis wählen:")
alle Ordner auf?

Gruß Thomas
Windows XP SP2, XProfan X2

Kompilieren Markieren Separieren

Thomas
Freier

Guten Morgen Dieter,
hast du Lust die d&d-Variante zu testen?
Bin nicht glücklich damit. Durch GetMessage habe ich reichlich Probleme mit shell und LoadFile$. Wird dann endlos wieder geöffnet. Habe ein WaitMouse eingebaut aber das kann nicht die Lösung sein. Oft hilft nur einmal die Hinweise zu öffnen und zu schließen damit d&d wieder geht. Z.Z. habe ich keine Lösung parat. Subproc?

while 1

    '  waitinput 1
    GetMessage
    case %umessage=16:break
    Case (Menuitem(109)) OR (Menuitem(2006)):BREAK
    '--------------------------------------------------------------weitere Abfragen
    plv_HitSortsLV(hList&)

    IF (%message=563)

        Let anzahl&= DragQueryFile(&WParam,$FFFFFFFF,PFilename#,261);
        Let i%=0

        While Lt(i%,anzahl&)

            DragQueryFile(&WParam,i%,PFilename#,261);
            filename$=String$(PFilename#,0)' Vorsicht, max 255 Zeichen
            AddString filename$
            Inc i%

        Wend

        DragFinish(&WParam);

        WhileLoop GetCount(0)

            find$= @GetString$(0,(&loop-1))

            If substr$(find$,-1,".")="pdf"

                pfad$ = removeFileSpec(find$)+"\"
                x%=-1
                IS_ITEM

                if x%=-1

                    plv_SetRow(hList&, GetCount(hList&),(pfad$ + "|" + substr$(find$,-1,"\")),-1,0)

                endif

            EndIf

        EndWhile

        Clearlist
        setfocus(%hwnd)

    Elseif Menuitem(2002)

        shell "control printers"
        WaitMouse
        setfocus(%hwnd)

    Elseif Menuitem(2004)

        clear PDF_Druck$
        text$=LoadFile$("Acrobat.exe, AcroRd32.exe, PDFXCview.exe","exe | *.exe")
        case substr$(text$,-1,"\")="Acrobat.exe" : PDF_Druck$=text$
        case substr$(text$,-1,"\")="AcroRd32.exe" : PDF_Druck$=text$
        case substr$(text$,-1,"\")="PDFXCview.exe" : PDF_Druck$=text$
        SetText Stat&, 1, "PDF-Software: " + substr$(PDF_Druck$,-1,"\")
        WaitMouse
        setfocus(%hwnd)
        ' ......weiter Abfragen

    EndIf

EndWhile

pdf-serien-print-dd.exe	569 kB

Hochgeladen:	08.01.2011

Ladeanzahl:
		Herunterladen

Gruß Thomas
Windows XP SP2, XProfan X2

08.01.2011 ▲

Dieter
Zornow

Hallo Thomas,

@ChooseDir$("Verzeichnis wählen:") zeigt alles richtig an. Bei mir funktioniert dein D&D nicht. ich bringe keine Dateien ins Programm.

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

08.01.2011 ▲

Thomas
Freier

Hallo Dieter,
ich hatte diesen Quelltext [...]

verwendet. Geht der bei dir solo?

Ich lege das erst mal beiseite und da wir keinen Frost mehr haben werde ich im Fluß den "Grönländern" nachstellen. Nach Erfolg endlich wieder ein frisch gebeitztes Filet.

Gruß Thomas
Windows XP SP2, XProfan X2

08.01.2011 ▲

Dieter
Zornow

Hallo Thomas,

der Code funktioniert bei mir auch nicht zuverlässig. Ich verwende für mich einen etwas anderen Code und wichtig, ich definiere WM_Dropfiles (563) als usermessage, das geht dann bei mir sehr zuverlässig.

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

09.01.2011 ▲

Kompilieren Markieren Separieren

- Seite 2 -

Thomas
Freier

Hallo Dieter, das mit usermessage hatte ich auch versucht und keine Verhaltensänderung festgestellt. Die Verbesserung ist wohl dein Code.
Könntest du mal unter deinem Code diese Abfrage

Elseif Menuitem(2002)'OR  Menuitem(103) '.......Druckereinstellung

shell "control printers"
setfocus(%hwnd)

testen. Bei mir ging danach d&d nicht mehr. Erst nach weiteren Klicks.
Nun bin ich mir im Moment nicht sicher, wie die Druck-Datein in die Liste übernommen werden könnten,
da wäre:
- Treeview > selbst zusammenstellen, ist sicher eine Frage der Auflistungszeit
- d&d > aber wie besser
- Loadfile$($,$,1) > ist jetzt ja mehrfach Auswahl möglich
- über einen Ordner, der über "senden an" vom Explorer gefüllt werden könnte

Watt nu bra ??

Gruß Thomas
Windows XP SP2, XProfan X2

09.01.2011 ▲

Dieter
Zornow

Hallo Thomas,

ich würde Loadfile$() mit Mehfachauswahl nehmen ist die einfachste und beste Lösung. Auch ein Choosedir mit automatischem Einladen eines Verzeichnisses eventuell mit Unterverzeichnissen wäre noch einfach und denkbar. Ich finde D&D ist sowieso etwas umständlich, da man immer erst die Fenster zurecht rücken muss. Ich denke das D&D funktioniert wegen der usermessage zuverlässig, da man im anderen Fall nie sicher sein kann, ob die Message mit getmessage auch zuverlässig abgefangen wird, denn am Code selbst ist ja nichts so wesentliches veränderbar.

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

09.01.2011 ▲

Thomas
Freier

Eine neue Variante der PDF-Batch-Print hochgeladen.
Dateien werden über Ordnerwahl oder aus einen bestimmten (angelegten) Ordner, der in "Senden an" verknüpft wurde, übernommen.
Wie sieht's unter WIN 7 aus? Und oder klemmt es noch an anderen Stellen?

Wenn's soweit geht, werde ich mich zum Thema 'Multiprozessing' einarbeiten und mich mit Andreas 'Druckerüberwachung' beschäftigen.

Gruß Thomas
Windows XP SP2, XProfan X2

12.01.2011 ▲