Получить изображение из Интернета и отображения с помощью Synapse

Question

Я хочу получить изображение из Интернета в потоке (без сохранения) и отобразить его на TImage. Следующий код выдает ошибку:

response := TMemoryStream.Create; 
try 
    HttpGetBinary('http://www.example-url/example_image.jpg', response); 
    Image.Picture.LoadFromStream(response); 
finally 
    response.Free; 
end; 

Проект ------- поднял класс исключения «EReadError» с сообщением: поток ошибка чтения

Это функция в библиотеке Synapse (в picture.inc), что ошибка указывает на:

function TPicFileFormatsList.FindByStreamFormat(Stream: TStream): TGraphicClass; 
var 
    I: Integer; 
begin 
    for I := Count - 1 downto 0 do 
    begin 
    Result := GetFormats(I)^.GraphicClass; 
    if Result.IsStreamFormatSupported(Stream) then // <<<<<< this is the error line 
     Exit; 
    end; 
    Result := nil; 
end; 

Answer 1

Вы должны включить JPEGLib блок где-то в проекте, так что графический класс JPEG регистрируется.

uses 
    JPEGLib, // to support JPEG 
    PNGcomn, // to support PNG 
    httpsend; 

response := TMemoryStream.Create; 
try 
    if HttpGetBinary('http://www.example-url/example_image.jpg', response) then 
    begin 
    response.Seek(0, soFromBeginning); 
    Image.Picture.LoadFromStream(response); 
    end; 
finally 
    response.Free; 
end;