VPF::Кердык с файловым потоком. - Форум программистов

m_averick

Дата 23.4.2007, 12:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 32
Регистрация: 11.12.2006
Где: Одесса

Репутация: нет
Всего: нет

Люди, помогите кто чем может. Я лично ничего не понимаю. Вроде написал код верно, а происходит всякая фигня. Первый раз строки читпется, только с 0 в конце, а второй раз вместо записанной строки прсто читается 1. :dash1

Код


        AnsiString Text = "Thit text must be loaded to file";
        //AnsiString Text = "Abs defgkfjsdghkjfhgkjfsgfbgfjg";
        int Len = Text.Length();
        int iTempLength = sizeof(int);
        TFileStream * FileStream = new TFileStream("fa.dat",fmCreate);
        FileStream->Write(&Len,iTempLength);
        FileStream->Write(&Text,Len);
        FileStream->Free();

считывания использую

Код


        AnsiString Text = "";
        int Len = Text.Length();
        int iTempLength = sizeof(int);
        TFileStream * FileStream = new TFileStream("fa.dat",fmOpenRead);
        //FileStream->Seek(0,soFromBeginning);
        FileStream->ReadBuffer(&Len,iTempLength);
        FileStream->ReadBuffer(&Text,Len);
        Edit1->Text = Text;
        FileStream->Free();

ечсть и второй вариант с использованием TMemoryStream.

Код


AnsiString Text = "";
        int Len = Text.Length();
        int iTempLength = sizeof(int);
        TMemoryStream * MemStream = new TMemoryStream();
        MemStream->LoadFromFile("fa.dat");
        //MemStream->Seek(0,soFromBeginning);
        MemStream->Read(&Len,iTempLength);
        char * string = new char[Len];
        MemStream->Read(&Text,Len);
        Edit1->Text = Text;
        MemStream->Free();

чтение аналогично первому варианту

Код


AnsiString Text = "Thit text must be loaded to file";
        int Len = Text.Length();
        int iTempLength = sizeof(int);
        TMemoryStream * MemStream = new TMemoryStream();
        MemStream->Seek(0,soFromBeginning);
        MemStream->Write(&Len,iTempLength);
        MemStream->Write(&Text,Len);
        MemStream->SaveToFile("fa.dat");
        MemStream->Free();

Да, самое интересное. Прога прописана в автозагрузку, и там я использую стандартные ::CreateFile/ С ним все нормально, но при первой подгрузке, чтение из файла не происходит :( ниче не понял. Библиотеки что-ли не подгружаются...(относительно ::CreateFile). В общем, чспасите, утопаю!!!!!!!!

Bima

Дата 23.4.2007, 12:08 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 518
Регистрация: 15.8.2006

Репутация: 2
Всего: 2

Дело скорее всего в "путях".
Поробуй прописать полный путь, или первоночально считывай имя папки, куда записываешь и откуда считываешь файл.

--------------------

Чтобы дойти до цели, надо идти.

Клавиатура и мышь - это главные инструменты прогресса.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »