String komprimieren dekomprimieren

[SleepyMaster]

Delphi-Quellcode:

uses 
  ZLib; 

function CompressString(input:string):string; 
var 
  InpBuf, OutBuf: Pointer; 
  OutBytes: Integer; 
begin 
  InpBuf := nil; 
  OutBuf := nil; 
  try 
    GetMem(InpBuf, Length(input)); 
    Move(input[1], InpBuf^, Length(input)); 
    CompressBuf(InpBuf, Length(input), OutBuf, OutBytes); 
    SetLength(result,OutBytes); 
    Move(OutBuf^, result[1], OutBytes); 
  finally 
    if InpBuf <> nil then FreeMem(InpBuf); 
    if OutBuf <> nil then FreeMem(OutBuf); 
  end; 
end; 

function DeCompressString(input:string):string; 
var 
  InpBuf, OutBuf: Pointer; 
  OutBytes: Integer; 
begin 
  InpBuf := nil; 
  OutBuf := nil; 
  try 
    GetMem(InpBuf, Length(input)); 
    Move(input[1], InpBuf^, Length(input)); 
    DeCompressBuf(InpBuf, Length(input),0,OutBuf, OutBytes); 
    SetLength(result,OutBytes); 
    Move(OutBuf^, result[1], OutBytes); 
  finally 
    if InpBuf <> nil then FreeMem(InpBuf); 
    if OutBuf <> nil then FreeMem(OutBuf); 
  end; 
end;

[CenBells]

hallo,

ich habe dazu noch eine frage.
Ich habe nun einen MemoryStream, in dem prinzipiell auch nur text steht.
Ich dachte dann, hmm, schreibe ich den stream in einen string.
Das klappt leider nicht,

hier der code, den ich verwende

Delphi-Quellcode:

        LStream.Position := 0;
        SetLength(LString, LStream.Size);
        LStream.Write(LString, LStream.Size);// hier gibt es den fehler Zugriffsverletzung...

        LCompressed := CompressString(LString);

        LStream.Clear;

Weiß wer, was ich falsch mache und kann mich korrigieren?

Gruß
Ken

[SleepyMaster]

Delphi-Quellcode:

        LStream.Position := 0;
        SetLength(LString, LStream.Size);
        LStream.Write(LString[1], LStream.Size);// hier gibt es den fehler Zugriffsverletzung...

        LCompressed := CompressString(LString);

        LStream.Clear;

Damit söllte es gehen!