Вниз
Скачать: CL | DM;

TFileStream, Variant   Найти похожие ветки 

← →
Lamerr ©   (2003-08-27 09:17) [0]

Мастаки, просветите глупого.

Нужно сохранить Variant (точнее его ДАННЫЕ) в FileStream.
Тип данных на этапе компиляции не известен. Но это либо Single, либо Real.
Проблема в том, что данные в Variantе хранятся в последних 8 байтах.
То есть проблему можно свести к сохранению в FileStream последние 8 байт переменной.

Заранее спасибо.


← →
Reindeer Moss Eater ©   (2003-08-27 09:21) [1]

TWriter.WriteVariant не подходит?
Инкремент PByte тоже не помогает?


← →
Lamerr ©   (2003-08-27 09:26) [2]

TWriter.WriteVariant не подойдет.
А вот PByte может и поможет, спасибо. :о)
Именно это я искал.


← →
Lamerr ©   (2003-08-27 11:50) [3]

Х-м...
Похоже поторопился.
Что такое PByte? PByteArray? Если да, то все-равно не понятно как мне его использовать...


← →
clickmaker ©   (2003-08-27 11:54) [4]

Stream.WriteBuffer(TVarData(V).VDouble, SizeOf(double));


← →
Lamerr ©   (2003-08-27 11:57) [5]

Ага, попробую, спасибо...


← →
Reindeer Moss Eater ©   (2003-08-27 12:00) [6]

Что такое PByte? PByteArray? Если да, то все-равно не понятно как мне его использовать...

PByte - указатель на байт.
Присваиваем переменной этого типа адрес варианта, увеличиваем значение переменной на нужное смещение (последние 8 байт)
Пришем в поток блок P^,8


← →
Lamerr ©   (2003-08-27 12:26) [7]

Спасибо и это тоже попробую.


← →
Serginio666   (2003-08-27 12:54) [8]

Посмотри unit SConnect реализацию TDataBlockInterpreter.
В принципе можешь напрямую и использовать


← →
Lamerr ©   (2003-08-28 09:07) [9]

Обязательно погляжу



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

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



Память: 0.46 MB
Время: 0.011 c
9-24293
com2003
2003-03-04 20:08
2003.09.08
Вращение


1-24432
electric
2003-08-25 14:35
2003.09.08
Как сохранить ЕХЕ файл из ресурса на харде?


7-24726
Diamond Dog
2003-06-25 19:35
2003.09.08
Отключение выбора режима загрузки винды при нажатии F8


1-24545
Jineura
2003-08-26 16:44
2003.09.08
tSendMail в Delphi7


6-24596
INTAARI
2003-07-02 12:59
2003.09.08
Не удается прочитать строку из сети протоколом UDP




   Наверх