типизированные файлы

← →
Dicot (2006-06-06 15:06) [0]

Уважаемые мастера. Объясните пожалуйста, можно ли в типизированном файле сохранить объект типа TPicture и если можно, то как? Процедура Write записывает в файл что-то непонятное...

← →
StriderMan © (2006-06-06 15:07) [1]

лучше всего TFileStream использовать, ИМХО

← →
Сергей М. © (2006-06-06 15:07) [2]

У TPicture нет "процедуры Write"

← →
Ega23 © (2006-06-06 15:23) [3]

> Уважаемые мастера. Объясните пожалуйста, можно ли в типизированном
> файле сохранить объект типа TPicture и если можно, то как?
> Процедура Write записывает в файл что-то непонятное...
>

Чем record от class отличается знаешь?

← →
Ega23 © (2006-06-06 15:24) [4]

> У TPicture нет "процедуры Write"

При чём тут TPicturre? Есть просто процедура Write

← →
StriderMan © (2006-06-06 15:27) [5]

TFileStream.WriteComponent...

← →
Джо © (2006-06-06 15:29) [6]

> [5] StriderMan © (06.06.06 15:27)
> TFileStream.WriteComponent...

TPicture не компонент.

← →
Ega23 © (2006-06-06 15:30) [7]

> TFileStream.WriteComponent...
>

TPicture, вообще-то, не компонент...

← →
Ega23 © (2006-06-06 15:31) [8]

> Джо © (06.06.06 15:29) [6]

:-)

← →
Dicot (2006-06-06 15:42) [9]

А почему так нельзя?
var f :File of TPicture; p :TPicture; Begin AssignFile(f, "MyFile.myf"); p:=TPicture.Create; p.LoadFromFile("my.bmp"); Rewrite(f); Write(f, p); CloseFile(f); p.Free; End;

> Dicot (06.06.06 15:42) [9]

потому что идентификатор экземпляра класса это ни что иное, как указатель на этот экземпляр, длина которого 4 байта.

> А почему так нельзя?

А ты попробовал?

> Ega23
> TPicture не компонент

Да, правда, .. надо же... :))

значит TPicture.Graphic.SaveToFile или TPicture.Graphic.SaveToStream

Если во что бы то ни стало надо реализовать сабж - создаем какой-нибудь TMemoryStream, далее TGraphic SaveToStream, далее - из потока побайтно в file of byte. Будет весьма медленно, но в точности как в сабже.

типизированные файлы Найти похожие ветки