웹에서 이미지를 가져 와서 시냅스를 사용하여 표시

Question

웹에서 이미지를 저장하지 않고 (저장하지 않고) TImage에 표시하고 싶습니다. 메시지와 함께

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

프로젝트 ------- 발생한 예외 클래스 'EReadError': 다음 코드는 오류가 발생 스트림이 냅 라이브러리에있는 함수 오류

을 읽을합니다 (에 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

당신은 JPEG 그래픽 클래스가 등록 가도록 (듯이), 프로젝트에 어딘가에 JPEGLib 장치를 포함해야합니다.

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;