Проблема с кодировкой при печати, С++ Builder 6 Опции

[Neon6868]

Необходимо при нажатии кнопки распечатать текст, находящийся в окне Memo. Проблема в том, что текст этот в кодировке DOS.
После распечатывания таким способом

   int lines_kol = Memo1->Lines->Count;
  TPrinter *Prntr = Printer();
  TRect r = TRect(200, 200, Prntr->PageWidth - 200, Prntr->PageHeight - 200);
  Prntr->BeginDoc();
  Prntr->Canvas->TextRect(r, 200, 200,Memo1->Lines->Text);
  Prntr->EndDoc();

вместо русских букв печатаются иероглифы.

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

void __fastcall TForm1::Button3Click(TObject *Sender)
{
   int lines_kol = Memo1->Lines->Count;
  TPrinter *Prntr = Printer();
  TRect r = TRect(200, 200, Prntr->PageWidth - 200, Prntr->PageHeight - 200);
  Prntr->BeginDoc();
  for(int i = 0; i < lines_kol; i++)
  {
  char *newstr;
  AnsiString st=Memo1->Lines->Strings[i];
  OemToChar(st.c_str(),newstr);
  Prntr->Canvas->TextRect(r, 200, 200,AnsiString(newstr));

  }
  Prntr->EndDoc();
}

Сообщение отредактировано: Neon6868 - 22.08.2009 13:44

[volvo]

Подскажите из-за чего она возникает.

Из-за того, что не выделил память под строку... Вот так:

  for(int i = 0; i < lines_kol; i++)
  {
    AnsiString st=Memo1->Lines->Strings[i];
    char *newstr = new char[st.Length() + 1];

    OemToChar(st.c_str(),newstr);
    Prntr->Canvas->TextRect(r, 200, 200, AnsiString(newstr));
    delete newstr;
  }

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

[Neon6868]

При использовании этой строки

OemToChar(st.c_str(),newstr);

вылетает ошибка

Код

---------------------------
Information
---------------------------
Project G:\Documents and Settings\Владелец\Рабочий стол\POISK\Project2.exe faulted with message: 'access violation at 0x7c92ab1b: write of address 0x00030ffc'. Process Stopped. Use Step or Run to continue.
---------------------------
OK  
---------------------------

Если перед ней поставить знак коментария, то ошибки нету.

Сообщение отредактировано: Neon6868 - 22.08.2009 14:17

[volvo]

вылетает ошибка

У меня не вылетает, у тебя вылетает? Ну, тогда не знаю, что тебе сказать...

[Neon6868]

Все, разобрался. Ошибка появлялась почему-то при использовании функции OemToChar, но не из-за нее. Оказалось до этого был выход за пределы массива.

volvo, Спасибо за помощь!

Сообщение отредактировано: Neon6868 - 22.08.2009 19:45