[kyran29]

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

Код:

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;