[poli-smen]

Сообщение от zx230

в продолжении темы. новый вопрос:

У меня есть компонент IdHTTPServer.
При запросе IdHTTPServer1CommandGet я отправляю с диска изображение:
IdHTTPServer1.ServeFile(AThread, AResponseInfo, ProgramPath+'\1.bmp');

А можно ли как то отправить изображение прямо из компонента image?

Сообщение от iks

в данный момент столкнулся с этим и меня, тоже, заинтересовал этот вопрос...

Вот так можно отправить изображение прямо из TImage:

Код:

procedure TForm1.IdHTTPServer1CommandGet(Thread: TIdPeerThread;
  RequestInfo: TIdHTTPRequestInfo; ResponseInfo: TIdHTTPResponseInfo);
var
  sl: TStringList;
  gc: TGraphicClass;
  ext: String;
begin
.....
  if AnsiSameText(RequestInfo.Document, '/image1') then
  begin
    gc := TGraphicClass(Image1.Picture.Graphic.ClassType); // Получаем класс графического объекта в Image1
    ext := '.'+GraphicExtension(gc); // По этому классу определяем расширение файлов этого типа
    ResponseInfo.ContentType := IdHTTPServer1.MIMETable.GetFileMIMEType(ext); // По расширению получаем строку "Content-Type"
    ResponseInfo.ContentStream := TMemoryStream.Create; // Создаём новый поток
    Image1.Picture.Graphic.SaveToStream(ResponseInfo.ContentStream); // И выгружаем в него картинку из Image1
  end;
.....
end;

p.s. Естественно если заранее известно в каком формате картинка в Image1, то можно не "городить огород" с получением и переводом графического типа в "Content-Type", а сразу присваивать этот "Content-Type" в ResponseInfo.ContentType.
p.p.s. Так как это просто пример, то тут отсутствуют проверки на корректность. В рабочем коде их конечно же нужно добавить.