AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

gzip und zip entpacken

Ein Thema von itashadow · begonnen am 21. Aug 2008 · letzter Beitrag vom 26. Aug 2008
Antwort Antwort
Seite 2 von 2     12   
itashadow

Registriert seit: 22. Apr 2008
Ort: Hattingen
86 Beiträge
 
#11

Re: gzip und zip entpacken

  Alt 26. Aug 2008, 09:02
juhu nu klappts auch mit der gzip

allerdings

wenn der programm ordner aufm desktop ist und ordner +filename so ca 170 zeichen lang ist dann liest er zwar die datei aber
gibt mir nur 1 zeichen zurück und das auch noch falsch.

wenn es jedoch nur nen kurzer pfad ist: d:\test\test.txt.gz
dann klappt es ohne probleme...
habs mit der selben datei ausprobiert...

btw gzgetc liefert in dem fall immer -1 zurück
  Mit Zitat antworten Zitat
gammatester

Registriert seit: 6. Dez 2005
999 Beiträge
 
#12

Re: gzip und zip entpacken

  Alt 26. Aug 2008, 13:24
Zitat von itashadow:
juhu nu klappts auch mit der gzip

allerdings

wenn der programm ordner aufm desktop ist und ordner +filename so ca 170 zeichen lang ist dann liest er zwar die datei aber
gibt mir nur 1 zeichen zurück und das auch noch falsch.

wenn es jedoch nur nen kurzer pfad ist: d:\test\test.txt.gz
dann klappt es ohne probleme...
habs mit der selben datei ausprobiert...

btw gzgetc liefert in dem fall immer -1 zurück
Jetzt hast Du doch wohl ein Feature entdeckt!

In gzio.pas, function gzopen (Zeile 407) sollte statt
system.assign(zfile, path); besser
system.assign(zfile, fpath); stehen. Man kann auch in der Typdeklaration

Delphi-Quellcode:
type
  gz_stream = record
                stream : z_stream;
                z_err : int; {error code for last stream operation          }
                zs_eof : boolean; {set if end of input file                      }
                zfile : file; {.gz file                                      }
                inbuf : pBytef; {input buffer                                  }
                outbuf : pBytef; {output buffer                                 }
                crc : uLong; {crc32 of uncompressed data                    }
                msg, {error message - limit 79 chars                }
                path : string[79]; {path name for debugging only - limit 79 chars }
                transparent : boolean; {true if input file is not a .gz file          }
                mode : char; {'w' or 'r'                                    }
                startpos : long; {start of compressed data in file (header skipped)}
              end;
den Type für path auf string[255] setzen!

Besser

Gruß Gammatester
  Mit Zitat antworten Zitat
itashadow

Registriert seit: 22. Apr 2008
Ort: Hattingen
86 Beiträge
 
#13

Re: gzip und zip entpacken

  Alt 26. Aug 2008, 14:50
na toll
hab so viel ausprobiert...
aber an die path/msg deklaration hab ich nicht gedacht
danke

läuft nun alles bestens
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 2     12   


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:47 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz