XProfan

RGH

Au cours de je früher den Copy dans Delphi selbst geschrieben hatte, so benutze je à cause de qui Attributgeschichte depuis 9.x qui Windows-API. cela mag cet Changement expliquer.
chez Assign, etc. baue je toujours sur solide travail manuel. ;) Daher devrait Du avec BlockRead/BlockWrite une Zweizeiler hinbekommen, qui cela Copy avec alten Qualitäten (et Unzulänglichkeiten bezüglich qui Attribute) hinbekommt.

Salut
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

Jupp hab je hab mir grad hierfür nen fcopy geschrieben:
Kompilieren Marque Séparation

proc fcopy(from$,to$)

    casenot fileexists(from$) : return false
    var fmode&:=get("FileMode")
    set("FileMode",2)
    var fh&:=assign(from$)

    if fh&

        openrw fh&
        var siz&:=getfilesize(fh&)

        if siz&

            declare mem#
            dim mem#,siz&
            var bytesRead&:=blockread(fh&,mem#,0,siz&)
            closerw fh&
            fh&:=assign(to$)
            openrw fh&
            blockwrite fh&,mem#,0,bytesRead&
            closerw fh&
            dispose mem#

        else

            closerw fh&
            fh&:=assign(to$)
            openrw fh&
            closerw fh&

        endif

        assign fh&,""

    endif

    set("FileMode",fmode&)
    return true

endproc

Klappt eh bien wieder bestens.

<offtopic>
Kompilieren Marque Séparation

proc FCOPY

    PARAMETERS FROM$,TO$

    IFNOT FILEEXISTS(FROM$)

        RETOUR 0

    ENDIF

    VAR FMODE&=GET("FileMode")
    SET("FileMode",2)
    VAR FH&=ASSIGN(FROM$)

    IF FH&

        OPENRW FH&
        VAR SIZ&=GETFILESIZE(FH&)

        IF SIZ&

            DECLARE MEM#
            DIM MEM#,SIZ&
            VAR BYTESREAD&=BLOCKREAD(FH&,MEM#,0,SIZ&)
            CLOSERW FH&
            FH&=ASSIGN(TO$)
            OPENRW FH&
            BLOCKWRITE FH&,MEM#,0,BYTESREAD&
            CLOSERW FH&
            DISPOSE MEM#

        ELSE

            CLOSERW FH&
            FH&=ASSIGN(TO$)
            OPENRW FH&
            CLOSERW FH&

        ENDIF

        ASSIGN FH&,»

    ENDIF

    SET("FileMode",FMODE&)
    RETOUR 1

endproc

</offtopic>

RGH

... et qui erweiterten Fonctionnalité de XProfan 10 pour BlockWrite/BlockRead ca va encore dfeutlich kürzer chez exakt gleicher Fonctionnalité:
Kompilieren Marque Séparation

!Proc fcopy
parameters from$,to$
CaseNot FileExists(from$) : Return 0
Var siz& = FileSize(from$)
Case siz& = 0 : return 0
Declare mem#
Dim mem#,siz&
Var bytesRead& = BlockRead(from$, mem#, 0, siz&)
BlockWrite to$, mem#, 0, bytesRead&
Return 1

Salut
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

Faible mem#,0 führt doch mais zum Absturz... ^ ^

Irgendwie glaube je toutefois mir chez chacun la ligne meiner Programmierungen quelque chose dabei gedacht trop avons ^ ^

qui Set-Geschickte la hâte Du aussi ausser huit gelassen - sommes qui Bemühungen dans meiner Proc unnütz?

Dein FCopy ist dank qui neuen XProfan10-Funktionalitäten (quelle je wohl seulement alle encore inne avons doit) quand même schicker.

Jörg
Sellmeyer

Hab je maintenant eigentlich irgendwas verpasst?
Kompilieren Marque Séparation

Var siz& = FileSize(from$)

David hat cela Var aussi déjà des öfteren benutzt et je dachte, cela sei un XPSE-Feature.
mais wenns qui Scheff selber déjà benutzt

qui Aider sagt jedenfalls rien en supplément...
Salut
Jörg

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

essayer allez sur étudier.

RGH

[quote-part:c5a4b2e81b=iF]Faible mem#,0 führt doch mais zum Absturz... ^ ^[/quote-part:c5a4b2e81b]
cela sollte zwar pas zum Absturz mener, mais je erweitere meinen Code dessus entsprechend.

[quote-part:c5a4b2e81b]qui Set-Geschickte la hâte Du aussi ausser huit gelassen[/quote-part:c5a4b2e81b]
Habe je pas. Relatif à la Filemode pouvoir mais déjà BlockRead selbst.

Salut
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

Du meinst un Blockwrite écrit aussi si zuvor un seulement Lesen avec Set(FileMode... gesetzt ist?

RGH

[quote-part:3bb5d4f872=iF]Du meinst un Blockwrite écrit aussi si zuvor un seulement Lesen avec Set(FileMode... gesetzt ist?[/quote-part:3bb5d4f872]
oui, BlockWrite(Dossier) mets den Filemode temporär sur 2 et anschließend wieder zurück.
chez BlockRead(Dossier) mets je ihn allerdings sur seulement Lesen, um aussi schreibgeschützte Fichiers lesen trop peut!

Nachtrag: cela gilt naturellement seulement chez den Varianten, wohin es um ganze Fichiers allez! Ansonsten doit qui FileMode vom Programmierer gesetzt volonté, bevor il qui Dossier mir OpenRW ouvrez.

Salut
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

Ok verstehe.

Dein obiges Beispiel ist mais toujours pas entier korrekt ^ ^ - Fichiers avec qui Taille de 0 Byte volonté pas kopiert... *duck*