Hallo
Habe wiedermal ein Problem
und zwar bekomme ich immer diesen Fehler:
E2033 Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen
aber ich sehe nicht den Fehler?
kann mir einer sagen bitte was ich ändern muss wo das Problem ligt?
Code:
procedure DecompressStream(inpStream, outStream: TStream);
var
InpBuf, OutBuf: Pointer;
OutBytes, sz: LongInt;
begin
InpBuf := nil;
OutBuf := nil;
sz := inpStream.Size - inpStream.Position;
if sz > 0 then
try
GetMem(InpBuf, sz);
inpStream.Read(InpBuf^, sz);
ZDecompress(InpBuf, sz, 0, OutBuf, OutBytes);
outStream.Write(OutBuf^, OutBytes);
finally
if InpBuf <> nil then FreeMem(InpBuf);
if OutBuf <> nil then FreeMem(OutBuf);
end;
outStream.Position := 0;
end;