Dobra mam taką procedurkę:
var
I: Integer;
M: TMemoryStream;
Buf: Array[0..1024] of Char;
begin
M := TMemoryStream.Create;
Image1.Picture.Graphic.SaveToStream(M);
I := 0;
repeat
M.Position := (I*1024);
Buf := '';
if (M.Size-M.Position>=1024) then
M.ReadBuffer(Buf, 1024)
else begin
M.ReadBuffer(Buf, M.Size-M.Position);
M.Position := M.Size;
end;
Inc(I);
{ Tu wysyłam pakiet JPEGa - Buf }
until M.Position=M.Size;
end;
Może mi ktoś powiedzieć dlaczego nie daje mi to oczekiwanego efektu, którym z założenia ma być podzielenie JPEGa na poakiety po 1024 bajtów i wysłanie ich (nie ważne czym ;) chodzi o podzielenie )