Показать сообщение отдельно
  #3  
Старый 28.09.2015, 14:02
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Код:
var
  MemoryStream: TMemoryStream;
  JPEGImage: TJPEGImage;
begin
  MemoryStream:=TMemoryStream.Create;
  JPEGImage:=TJPEGImage.Create;
  try
    IdHTTP1.Get('http://cam.pddd.perm.ru:81/?c=385', MemoryStream);
    MemoryStream.Position:=0;
    JPEGImage.LoadFromStream(MemoryStream);
    Image1.Picture.Assign(JPEGImage);
  finally
    JPEGImage.Free;
    MemoryStream.Free;
  end;
end;
у Image1 свойство AutoSize лучше включить
__________________
Пишу программы за еду.
__________________
Ответить с цитированием