Hi!
Ich habe also einen String, der recht lang ist um ihn über einen Socket zu schicken. Ich brauch also ne Methode, um den kleiner zu machen, komprimieren. Müsste doch auch gehen?
Danke!
gefunden bei google:
uses zlib;
function CompressFrom(const instring : string) : string;
var p : pointer;
size : integer;
begin
CompressBuf(addr(instring[1]),length(instring),p,size);
Setlength(Result,size);
Move(p^,Result[1],size);
FreeMem§;
end;
function DecompressFrom(const instring : string) : string;
var p : pointer;
size : integer;
begin
DecompressBuf(addr(instring[1]),length(instring),trunc(length(instring)/0.7)
,p,size);
Setlength(Result,size);
Move(p^,Result[1],size);
FreeMem§;
end;