VPF::Преобразование unicode файла в windows

Alexeis

Дата 21.10.2005, 10:54 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

Функция преобразует unicode текстовый файл в Windows

Код


procedure TForm1.Button1Click(Sender: TObject);
 var
   S1 : WideString;
   s2 : AnsiString;
   I  : Integer;
   
   inpf   : TFileStream;
   Reader : TReader;
   outpf  : TFileStream;
   Writer : TWriter;

begin
  if opendialog1.Execute
  then
    Begin
      inpf    := TFileStream.Create(opendialog1.FileName, fmOpenRead);
      Reader := TReader.Create(inpf, $FF);
      
      outpf   := TFileStream.Create(opendialog1.FileName + '_1',
                           fmCreate or fmOpenWrite or fmShareDenyNone);
      Writer := TWriter.Create(outpf, $FF);


      Reader.ReadListBegin;  //Здесь происходит исключение
      Writer.WriteListBegin;
      
      while not Reader.EndOfList
      do
        Begin
          s1 := Reader.ReadWideString;
          s2 := WideCharToString(PWideChar(s1));
          Writer.WriteString(s2);
        end;

     Writer.WriteListEnd;
     Writer.Destroy;
     Outpf.Destroy;

     Reader.ReadListEnd;
     Reader.Destroy;
     inpf.Destroy;
  end;
end;

Возникает исключение в Reader.ReadListBegin
объясните почему smile

Это сообщение отредактировал(а) alexeis1 - 21.10.2005, 10:57

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

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

_hunter

Дата 21.10.2005, 11:02 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

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

во-первых: что за ошибка указать нужно.
во-вторых: читаем справку:

Цитата

Do not create reader objects. Readers are automatically created in a stream object’s methods or in global routines that initiate the streaming process. These include:

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

Tempora mutantur, et nos mutamur in illis...

Alexeis

Дата 21.10.2005, 11:23 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

Решение нашел в старых темах форума

Код


procedure TForm1.Button1Click(Sender: TObject);
 var
   S1 : WideString;
   s2 : AnsiString;
   I  : Integer;
   
   inpf   : TFileStream;
   outpf  : TFileStream;

   FileSize : Cardinal;

begin
  if opendialog1.Execute
  then
    Begin
      inpf     := TFileStream.Create(opendialog1.FileName, fmOpenRead);
      FileSize := GetFileSize(inpf.Handle ,nil);
      SetLength(S1 ,FileSize div 2);
      inpf.ReadBuffer((@S1[1])^, FileSize);

      outpf   := TFileStream.Create(opendialog1.FileName + '_1',
                           fmCreate or fmOpenWrite or fmShareDenyNone);

      s2 := WideCharToString(PWideChar(s1));
      Outpf.WriteBuffer((@S2[2])^, FileSize div 2 - 1);

     Outpf.Destroy;
     inpf.Destroy;
  end;
end;

Всем спасибо - топик можно закрывать

Это сообщение отредактировал(а) alexeis1 - 21.10.2005, 12:15

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

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