[YoYo]

Я хотел сделать передачу скрина по TIdUDPClient, но она вызывает вышеуказанную ошибку. В настройках сокета вроде все OK, код:

Код:

procedure TForm1.FormActivate(Sender: TObject);
var
  dc: HDC;
  FS: TfileStream;
begin
  dc := GetDC(0);
  Image1.Width := Screen.Width;
  Image1.Height := Screen.Height;
  bitblt(Image1.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, dc, 0, 0, SRCCOPY);
  Image1.Picture.Bitmap.SaveToFile('c:\temp.jpg');
  IdUDPClient1.Send('begin');
  FS := TFileStream.Create('c:\temp.jpg',fmOpenReadWrite);
  IdUDPClient1.Binding.SendTo('10.0.232.32',1035,fs,fs.size);
  FS.Free;
  IdUDPClient1.Send('end;');
end;

Вот так. Ошибку выдает в выделенной строке.