Zitat von
jokerfacehro:
ähm ich arbeite mit CompressBitmap, nicht mit CompressBitmap_slow
Hallo jokerfacehro, da war ich wohl mit meinen Gedanken schneller als im Code stand, sorry, meinte dies in etwa so.
Delphi-Quellcode:
procedure TForm1.sendStream(pic: TBitmap);
var
MStream:TMemoryStream;
pOutBuf : pointer;
cbOutSize:integer;
begin
pOutBuf :=
nil;
cbOutSize := 0;
MStream := TMemoryStream.Create;
try
pic.SaveToStream(MStream);
ZCompress(MStream.memory, MStream.size, pOutBuf, cbOutSize, zcMax);
finally
MStream.Free;
end;
if (pOutBuf <>
nil)
and (cbOutSize > 0)
then begin
IdTCPClient1.Socket.
Write(pOutBuf, cbOutSize, 0);
FreeMem(pOutBuf);
end else
raise exception.Create('
u should never see this.');
end;
lg. Astat