XProfan

Français

E.T.

Folgende Situation:

si mittels @RTF("LoadRTF"... une zuvor erzeugte, le vide rtf-Dossier geladen wird, wird cet pour dem magasin pas wieder freigegeben, jusqu'à cela Programme finissez wird. ca tritt im Interpreter et dans qui fertigen exe sur.

Um cela trop veranschaulichen, s'il te plaît Je l' folgenden Voir le texte source trop starten et:
1. sur den Button 1. qui 3 Boxen dans 3 Datein Sauver trop klicken
___Dann volonté qui RichEdits jeweils (sans faute) dans un Dossier geschrieben.
2. sur den Button 2. qui erzeugten 3 Datein récente einlesen trop klicken
___Hier wird ensuite faute:6?? retour

si je eh bien wieder sur den Button 1. ... klicke (aussi, si je maintenant dans Box 3 quelque chose reinschreibe), erhalte Je l' faute 32. cela heist, qui Dossier ist encore ouvert !! cela peux on entier léger nachvollziehen, si on qui Dossier RTF-Test_3.rtf (si cela Prog encore fonctionne) dans z.B. Word ouvrez et là sur Sauver klickt. il peut aussi versuchen, chez encore laufendem Prog qui 3 erzeugten rtf-Datein trop effacer, chez qui ersten et qui zweiten klappt cela, chez qui dritten wird verweigert. dans diesem Zusammenhang c'est moi aussi aufgefallen, cela un Effacer sur qui betreffende Dossier ne...aucune %ioresult mets (so suis je seulement sur elle gekommen, cela qui Dossier encore ouvert ist). intéressant ist aussi, cela qui Explorer ne...aucune Attribut "schreibgeschützt" chez cette Dossier anzeigt.

ici la fois mon Test-Code, je hoffe, je hab mich verständlich genug ausgedrückt:
Kompilieren Marque Séparation

Declare rtf_box&[], rtf_Btn&[]Ich liebe diese dynamischen Variablen
Declare Ende%, rtf_error%
Window 800,600
rtf_box&[1] = @Create("RichEdit",%HWnd,"RTF-Box 1",10,10,770,90)
rtf_box&[2] = @Create("RichEdit",%HWnd,"RTF-Box 2",10,110,770,90)
rtf_box&[3] = @Create("RichEdit",%HWnd,"",10,210,770,90)Diese Box bitte leer lassen !!
rtf_Btn&[1] = @Create("Button",%HWnd,"1.   Die 3 Boxen in 3 Datein speichern",10,350,770,25)
rtf_Btn&[2] = @Create("Button",%HWnd,"2.   Die erzeugten 3 Datein neu einlesen",10,400,770,25)
Clear Ende%

WhileNot Ende%

    waitinput

    If @Clicked(rtf_Btn&[1])Speichern

        WhileLoop 3

            rtf_error% = @RTF("SaveRTF",rtf_box&[&loop],"RTF-Test_" + @str$(&loop) + ".rtf")
            Case rtf_error% : @messagebox("RTF-Fehler : "+@str$(rtf_error%),"FEHLER BEIM SPEICHERN, Datei : "+ @str$(&loop),64)
            Clear rtf_error%

        EndWhile

    Elseif @Clicked(rtf_Btn&[2])Laden

        SetText rtf_box&[1],""
        SetText rtf_box&[2],""
        SetText rtf_box&[3],""

        WhileLoop 3

            rtf_error% = @RTF("LoadRTF",rtf_box&[&loop],"RTF-Test_" + @str$(&loop) + ".rtf")
            Case rtf_error% : @messagebox("RTF-Fehler : "+@str$(rtf_error%),"FEHLER BEIM LADEN, Datei : "+ @str$(&loop),64)
            Clear rtf_error%

        EndWhile

    EndIf

EndWhile

end

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

06.12.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Dieter
Zornow

cela ganze hat rien avec qui Freigabe trop 1faire, RTF() hat un
Problem avec vider RTF-Fichiers. Es wird oui De toute façon qui 3. le vide Dossier
angemeckert.
j'ai la fois d'abord qui Fichiers erzeugt,
cela Programme ensuite finissez et simple qui auparavant erzeugten Fichiers lire.
qui faute kam genauso.

Habe ensuite avec einem anderen Programme qui 3. le vide Dossier geladen quelque chose geschrieben,
mais cela récente geschriebene peux on aussi ici pas abspeichern.
alors peux on avec Profanmitteln une le vide bereits abgespeicherte RTF-Dossier pas récente
décrire.
cela Problem scheint mais déjà depuis qui undokumentierten Call() trop bestehen, seulement dass
autrefois une Fehlermeldung kam. dans RTF() venez aucun Fehlermeldung plus mais cela Problem
ist pas behoben

comme workaround peux du folgendes verwenden.

cas gettext$(rtf_box[&loop]) = »:settext rtf_box&[&loop]," "

si dans allen 3 Fichiers quelque chose steht, arbeitet dein Programme sans Fehlermeldung.

il peut de einem grundsätzlichen BUG dans RTF() ou bien im Richedit sortir
avec Wordpad ca va mais sans Probleme et cela verwendet doch bestimmt également
un Richedit.

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

06.12.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation