|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Снимок экрана отправить по сети не сохраняя на диск
Доброго времени суток, уважаемые.
Обращаюсь к Вам за подсказкой (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; Последний раз редактировалось kyran29, 07.01.2016 в 20:09. |