Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.02.02;
Скачать: [xml.tar.bz2];

Вниз

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

 
ORMADA   (2004-01-22 10:26) [0]

Пишу в один файл несколько Bitmap"ов
With TFileStream.Create(FileName, fmCreate Or fmOpenWrite) Do
Begin
WriteComponentRes("IMAGE1", TestImage);
WriteComponentRes("IMAGE2", image2);
Free;
End;
всё проходит на ура, когда загружаю всё компоненты а когда требуется загрузить определённый

With TFileStream.Create(ExtractFileDir(Application.ExeName) + "\" + FileName, fmOpenRead) Do
Begin
Try
ReadComponentRes(TComponent(Sender));
Finally
Free;
End;
End;

, который был записан не первым возникает ошибка типа он пытается читать первый компонент а он уже существеует!
Help как сделать выборочную загрузку


 
Строитель   (2004-01-22 10:29) [1]

Кто такой Sender:
ReadComponentRes(TComponent( Sender));?


 
ORMADA   (2004-01-22 11:21) [2]

любой объект передаваемый процедуре
Sender:TObject


 
MBo   (2004-01-22 12:29) [3]

Используй вспомогательный TMemoryStream, при записи сначала пишешь в него, потом в файл размер потока, потом содержимое. Повтор для каждого объекта.
Чтение - аналогично


 
ORMADA   (2004-01-22 12:35) [4]

2 MBo © c потоками никогда до этого не работал может накидать маленький пример



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

Форум: "Основная";
Текущий архив: 2004.02.02;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.087 c
1-2179
Grinder
2004-01-21 10:57
2004.02.02
Магнитное окно


14-2360
Тимохов
2004-01-09 19:35
2004.02.02
Вопрос по литературе по программированию.


14-2274
Polevi
2004-01-09 16:45
2004.02.02
EXCEL


1-2163
Sirakuz
2004-01-21 16:04
2004.02.02
Floating point IEEE format (80 bit) Как?


1-2111
pashtet
2004-01-19 18:15
2004.02.02
TDBGRID!!!!!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский