Скачать: CL | DM;

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

← →
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;

---

← →
Eraser ©   (2006-06-06 15:54) [10]

> Dicot   (06.06.06 15:42) [9]

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

---

← →
Ega23 ©   (2006-06-06 15:54) [11]

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


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

---

← →
StriderMan ©   (2006-06-06 16:58) [12]

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

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

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

---

← →
PVOzerski ©   (2006-06-06 17:12) [13]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.025 c