
17.08.2012, 14:03
|
 |
Профессионал
|
|
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
|
|
Цитата:
Сообщение от Snake22
что? как это работает.пример можно?
|
Код:
var
Stream: TMemoryStream;
png: TPNGObject;
begin
Stream := TMemoryStream.Create;
try
...
// загружаем что-то в Stream
...
png:=TPNGObject.Create;
try
png.LoadFromStream(Stream);
Image1.Picture.Assign(png);
finally
png.Free;
end;
finally
Stream.Free;
end;
end;
|