JiyaHana replied to Ian Branch's topic in General Help
Hey try to use library like ImageMagick in Delphi 12 Athens on the other hand you can compress your jpeg images from online application such as https://jpegcompressor.com/. It supports various type of formats and compress images without losing their original quality.
if State in [wsfsCompleted, wsfsNotComplete] then begin
j := 0;
for i := 0 to DataBytesInBuf - 1 do begin
{$R-}
PData^ := PData^ xor Mask[j];
{$R+}
Inc(j);
if j > 3 then
j := 0;
end;
end;
Try this.