[positivesmile]

У меня есть ms (tmemorystream).
В ней храниться иконка (.ico).
Я могу без проблем сохранить иконку на жестком и загрузить в Image.
Но возникает вопрос: можно ли как-то сразу из ms загрузить иконку в image?

[poli-smen]

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

У меня есть ms (tmemorystream).
В ней храниться иконка (.ico).
Я могу без проблем сохранить иконку на жестком и загрузить в Image.
Но возникает вопрос: можно ли как-то сразу из ms загрузить иконку в image?

Код:

  Image1.Picture.Icon := TIcon.Create;
  Image1.Picture.Icon.LoadFromStream(ms);

UPD
Кстати можно даже проще:

Код:

  Image1.Picture.Icon.LoadFromStream(ms);

[positivesmile]

Сообщение от poli-smen

Код:

  Image1.Picture.Icon := TIcon.Create;
  Image1.Picture.Icon.LoadFromStream(ms);

UPD
Кстати можно даже проще:

Код:

  Image1.Picture.Icon.LoadFromStream(ms);

procedure TForm1.Button1Click(Sender: TObject);
var
ms: TMemoryStream;
begin
ms := TMemoryStream.Create;
idHttp1.Get('http://www.delphisources.ru/favicon.ico', ms);
//ms.SaveToFile('d:\delphisources.ico');
Image1.Picture.Icon.LoadFromStream(ms);
end;

Пишет "stream read error"

[poli-smen]

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

procedure TForm1.Button1Click(Sender: TObject);
var
ms: TMemoryStream;
begin
ms := TMemoryStream.Create;
idHttp1.Get('http://www.delphisources.ru/favicon.ico', ms);
//ms.SaveToFile('d:\delphisources.ico');
Image1.Picture.Icon.LoadFromStream(ms);
end;

Пишет "stream read error"

Перед загрузкой в Image1 сбрасывай позицию потока в 0 чтобы чтение шло с начала потока:

Код:

ms.Position := 0;

[positivesmile]

Ок, спасибо. Теперь все работает!