java gzip delphi_Delphi中获取IE网页后，对GZIP方式的网页解压(gzip,deflate)

使用　ICS控件，我现在对这套控件简直都要爱不释手了

Code:

var

_DecompresData :string;

czlib : THttpCCodzlib;

procedure TMyClass.OnDecompresData(Buffer: Pointer; Count: Integer);

var

iLen: integer;

begin

iLen := length(_DecompresData);

SetLength(_DecompresData, iLen + Count);

CopyMemory(@_DecompresData[iLen + 1], Buffer, Count);

end;

使用：

if ContentEncoding = 'gzip' then

begin

_DecompresData := '';

czlib := THttpCCodzlib.Create(OnDecompresData);

Result := FHttpData.DataString;

czlib.WriteBuffer(@Result[1], Length(Result));

czlib.Complete;

Result := _DecompresData;

czlib.Free;

end;