UDP Sockets

         How many size data sending from UDP sockets using UDP.SendStream
methods.

( I don't sending data this code, Jpeg size is 56 KB)

procedure TForm1.BitBtn1Click(Sender: TObject);
Var
  Jpeg          : TJpegImage;
  Stream        : TMemoryStream;
  Size          : Integer;
begin
  Stream        := TMemoryStream.Create;
  Jpeg          := TJpegImage.Create;

  Open.Execute;

  If Trim(Open.FileName)<>'' Then Jpeg.LoadFromFile(Open.FileName);

  Jpeg.SaveToStream(Stream);
  Size  := Stream.Size;
  UDP.ReportLevel := Status_Basic;

  Stream.Position :=0;
  UDP.SendStream(Stream);

  Stream.Free;
  Jpeg.Free;
end;