
30.04.2012, 10:11
|
 |
Let Me Show You
|
|
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
|
|
Код:
uses
jpeg,
Image1.Picture.LoadFromFile('d:\Картинки\Фото - iPhone\IMG_0021.JPG');
Код:
var
AMemoryStream: TMemoryStream;
begin
AMemoryStream:=TMemoryStream.Create;
try
IdHTTP1.Get('http://grafmoto.narod.ru/apple.bmp', AMemoryStream);
AMemoryStream.Position:=0;
Image1.Picture.Bitmap.LoadFromStream(AMemoryStream);
finally
AMemoryStream.Free;
end;
end;
__________________
Пишу программы за еду.
__________________
|