Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by GreenHorn3600,
23. Aug 2009
hallo himitsu,
wenn ich deinen Kode nehme, den Stream am Schluß wieder freigebe und meine beiden Routinen einsetze, scheint es zu funktionieren.
Wie macht man das denn, für alle Versionen darüber und darunter freizugeben? Ich bin ja nur ein GreenHorn :roll:
Den TZC../TCD.. gibts bei D2009 und dies ist halt meine hauptsächlich verwendete Version. Darunter sind diese nicht zu finden...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by GreenHorn3600,
23. Aug 2009
Hallo himitsu,
da hast Du recht, der Code läuft aktuell nur auf D2006 und D2009. Eine Anpassung überlasse ich gerne den Freiwilligen, welche den WebUpdater verwenden möchten. Da ich mit beiden Entwicklungsumgebungen arbeite, ist es für mich derzeit gut so. Produktiv bin ich nur noch mit D2009 unterwegs.
Schau Dir mal in meinen Post, die Procedure zum Komprimieren eines Streams an. Mir...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by GreenHorn3600,
23. Aug 2009
Wenn man schon mal den Fehler hatte, lässt er sich sicher einfach lokalisieren. Aber scheint so, als ob nicht nur meine Glaskugel in den Urlaub ist.
Dank Euch
:cheers: :cheers:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by GreenHorn3600,
23. Aug 2009
So, hab den Fehler nun gefunden. Der Quellstream (Filestream) war nur zum lesen geöffnet.
{Kompremiert den Stream}
PROCEDURE CompressStream(aStream: TStream);
VAR
{$ifdef VER200} //Delphi 2009
zc: TZCompressionStream;
{$else}
{$ifdef VER180} //Delphi 2006 or Turbo Delphi
zc: TCompressionStream;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by GreenHorn3600,
23. Aug 2009
Was soll ich da erst sagen, Streams brauchte ich bisher noch nie, nur dieses mal, komme ich irgendwie nicht dran vorbei :|
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by GreenHorn3600,
23. Aug 2009
stimmt nicht ganz, wenn hier bei .copyFrom(..., 0) angegeben ist, so wird intern die Position und die Größe gesetzt. Ist eine Erleichterung.
Ups, Fehlerstelle falsch markiert: hier kommt er aStream.Size := 0; also eine Zeile früher. Das kommt davon, wenn man ständig am kämpfen ist
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by GreenHorn3600,
23. Aug 2009
Hallo,
dies ist ein TFileStream, welcher einen zuvor Komprimierten Stream enthält. Dieser soll wieder DeKomprimiert und verarbeitet werden. Daher auch die ganze hin- und herkompiererei.
Igendwo, scheint der Wurm drin zu sein.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by GreenHorn3600,
23. Aug 2009
Sicher? Zwischenzeitlich nicht mehr...
aber der Fehler kommt hier:
aStream.Size := 0;
scheint also nicht wirklich damit zusammenzuhängen :|
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by GreenHorn3600,
23. Aug 2009
Hallo Wissende,
ich bin mal wieder am verzweifeln. Weshalb lässt sich der Stream nicht dekomprimieren?
{Dekompremiert den Stream}
procedure DecrompressStream(aStream: TStream);
var
zc: TDecompressionStream;
ms: TMemoryStream;
begin