Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
Exp-Soft
Anmeldungsdatum: 10.09.2004 Beiträge: 79
|
Verfasst am: 28.09.2004, 21:09 Titel: Datei Kopieren Fehler?! |
|
|
Code: |
open quelle$ for binary as #1
open ziel$ for binary as #2
get #1, einbyte$
put #1, einbyte$
do
get #1, einbyte$
put #2, einbyte$
loop until eof(1)
close
|
bei get kommt unverträgliche datentypen wieso? sollte doch richtig sein oder? quelle ist eine BMP Datei
Thx 4 Help schonmal. |
|
Nach oben |
|
|
Mecki Igel
Anmeldungsdatum: 10.09.2004 Beiträge: 985 Wohnort: Niederbayern
|
|
Nach oben |
|
|
Exp-Soft
Anmeldungsdatum: 10.09.2004 Beiträge: 79
|
Verfasst am: 28.09.2004, 21:16 Titel: |
|
|
Tippfehler von mir ist #2 also, so gesehn sollte der Code eigentlich funzen, liegt es ggf. an Windows NT?! bzw. XP? |
|
Nach oben |
|
|
Mecki Igel
Anmeldungsdatum: 10.09.2004 Beiträge: 985 Wohnort: Niederbayern
|
|
Nach oben |
|
|
Exp-Soft
Anmeldungsdatum: 10.09.2004 Beiträge: 79
|
Verfasst am: 28.09.2004, 21:24 Titel: |
|
|
Ja nu gehts, ich weiß ja net wer für die QB Monsterfaq zuständigt ist aber dieser auszug ist dann falsch.
Zitat: |
*** Methode 2: Byteweises Kopieren über binäre Datei
Eine primitive Methode, das Kopieren einer Datei zu beschleunigen, ist das
byteweise Kopieren mit Hilfe einer binären Datei. Das funktioniert wie folgt:
open quelle$ for binary as #1
open ziel$ for binary as #2
do
get #1, einbyte$
put #2, einbyte$
loop until eof(1)
close
Mit FertigAnteil! = LOC(1) / LOF(1) kannst Du herausbekommen, wie weit der
Kopiervorgang bereits fortgeschritten ist. (0 < FertigAnteil! < 1)
Aber auch diese Methode läuft immer noch noch grottenlangsam!! Kopiert mir bitte
einmal einen CD-Audio-Track (.WAV-Datei) mit dieser Methode...
|
|
|
Nach oben |
|
|
MisterD
Anmeldungsdatum: 10.09.2004 Beiträge: 3071 Wohnort: bei Darmstadt
|
Verfasst am: 29.09.2004, 12:57 Titel: |
|
|
Ist es wirklich schneller eine Datei in Ein-Byte-Stücken zu kopieren? Wie wäre es denn wenn man 4 oder so nimmt, ist das dann wirklich langsamer? _________________ "It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra |
|
Nach oben |
|
|
Mecki Igel
Anmeldungsdatum: 10.09.2004 Beiträge: 985 Wohnort: Niederbayern
|
|
Nach oben |
|
|
Sebastian Administrator
Anmeldungsdatum: 10.09.2004 Beiträge: 5969 Wohnort: Deutschland
|
Verfasst am: 29.09.2004, 14:06 Titel: Gepuffertes Kopieren |
|
|
Hi!
Hurra, "Gepuffertes Kopieren & Mergen" ist eine meiner Lieblingssachen in QB.
Code: | SUB FastFileCopy (From$, To$, PufferSize%)
DIM teil AS INTEGER
teil = PufferSize%
OPEN From$ FOR BINARY ACCESS READ AS #1
OPEN To$ FOR BINARY ACCESS WRITE AS #2
bytes$ = ""
DO UNTIL LOC(1) = LOF(1)
IF LOF(1) - LOC(1) < teil THEN
bytes$ = SPACE$(LOF(1) - LOC(1))
ELSE
bytes$ = SPACE$(teil)
END IF
GET #1, , bytes$
PUT #2, , bytes$
LOOP
CLOSE #1
CLOSE #2
END SUB |
Ist jetzt nicht getestet, aber sollte funktionieren. (Hab ich jetzt im phpBB Eingabefeld geschrieben. )
edit: Beim Cargu-Quiz 1.4 werden auch vor jedem Start innerhalb von Sekundenbruchteilen mehrere MB entpackt. Ungepuffert, also mit 1 Byte oder so würde das fast Minuten dauern.
Viele Grüße!
Sebastian _________________
Der Markt regelt das! | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen! |
|
Nach oben |
|
|
Exp-Soft
Anmeldungsdatum: 10.09.2004 Beiträge: 79
|
Verfasst am: 29.09.2004, 16:17 Titel: |
|
|
Für meine sache reicht aber ein Byte kopieren P.s. ändert das mal jemand in der Monster FAQ ab, was sollen denn die Newbies von halten wenn die codes net ma gehen |
|
Nach oben |
|
|
Sebastian Administrator
Anmeldungsdatum: 10.09.2004 Beiträge: 5969 Wohnort: Deutschland
|
|
Nach oben |
|
|
Sebastian Administrator
Anmeldungsdatum: 10.09.2004 Beiträge: 5969 Wohnort: Deutschland
|
|
Nach oben |
|
|
Exp-Soft
Anmeldungsdatum: 10.09.2004 Beiträge: 79
|
Verfasst am: 29.09.2004, 21:38 Titel: |
|
|
Aber genau das ist ja der sinn daran bei mir ich brauch mehrere get Put anweisungen
Sagen wir mal so hat auch noch mit einen effekt, das das Prg auf Super Rechnern net so rennen tut naja nachteil das man auf nem P 75 mit 32 MB Ram etwas länger braucht, aber egal. |
|
Nach oben |
|
|
|