[kyran29]

Доброго времени суток, уважаемые.
Обращаюсь к Вам за подсказкой (HELP)
Необходимо отправить снимок экрана на сайт, но при этом полученное изображение на диске компьютера сохранять не нужно. Мысли меня наводят на - JpegStream:=TMemoryStream.Create; Но вот что делать дальше???

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

uses Jpeg; procedure TForm1.PrintScreen; const  URL  : String = 'http://xxxxxx.xx/xxx.php'; var  bm: TBitMap;  JpegIm: TJpegImage;  ImgName: String;  //JpegStream : TMemoryStream; begin   ImgName := 'skrin.jpg';   bm := TBitMap.Create;   bm.Width := Screen.Width;   bm.Height := Screen.Height;   BitBlt(bm.Canvas.Handle, 0, 0, bm.Width, bm.Height, GetDC(0), 0, 0, SRCCOPY);   JpegIm := TJpegImage.Create;   JpegIm.Assign(bm);   JpegIm.CompressionQuality := 95; // от 0 до 100 качество   JpegIm.Compress;   //JpegIm.SaveToFile(ImgName);   bm.Destroy;   JpegIm.Destroy; end;