Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Доброго времени суток, уважаемые эксперты!
Может, поможет, кто с такой задачкой нужно отправить файл изображения, не сохраняя на диске компьютера.
Вот я тут набросал примерно:

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); // Можно схоронить на диске компьютера
  JpegStream := TMemoryStream.Create;
  JpegIm.SaveToStream(JpegStream);
  {**********
    Отправить файл на URL
   **********
  }
  bm.Destroy; 
  JpegIm.Destroy;
  JpegStream.Free;
end;

Вопрос задал: Kyran29 (статус: Посетитель) Вопрос отправлен: 8 января 2016, 21:07 Состояние вопроса: закрыт, ответов: 0.

Мини-форум вопроса

Kyran29 (статус: Посетитель), 11 января 2016, 21:35 [#1]: спасибо всем за молчание с ВАШЕЙ помощью по данному вопросу, разобрался сам.

DNK (статус: Студент), 13 января 2016, 14:12 [#2]: Обращайся! "Digital Networked Knight"

Kyran29 (статус: Посетитель), 13 января 2016, 19:31 [#3]: DNK: begin MessageBeep(MB_ICONHAND); ShowMessage('Обязательно'); end;

12 апреля 2016, 20:55: Вопрос закрыт (решение принял DNK): На здаровье

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.