| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Delphi: Для новичков > Создание отчетов в Delphi 7 |
| Автор: DZ509 21.2.2008, 15:14 |
| Привет Delphi-программерам! Есть проблема: Имеется бланк А4, на нем текст и всякие таблицы... Треб. сделать этот бланк в электронном виде, а в ячейки таблиц вставить данные из ComboBox'ов и распечатать... Попробовал использовать компонент TRvNDRWriter( страничка Rave) который сохр. отчет в двоичной форме в файле .NDR потом через поток с помощью компонентов RvRenderPDF, RvRenderRTF, RvRenderHTML, RvRenderTEXT преобразовывал этот файл в соответствующие форматы и... увидел следующее: в .TXT естественно линии таблиц не отобразились, текст впорядке, в .HTML - тоже самое, в RTF(Word) - таблицы впоряде, только толщину линии не видит, однако русский текст отобр. в виде каракуль, .PDF - тоже самое, только видит толщину линии... ВОПРОС: КАК сделать ,чтоб русский текст в .RTF и .PDF отображался нормально?????? Я уж че не делал.... Прилагаю код, на всякий случай: procedure TForm1.Button1Click(Sender: TObject); begin With Form1.RvNDRWriter1 do begin Start; SetFont('Arial',8); OriginX:=0.0; OriginY:=0.0; MoveTo(5,5); LineTo(5,20); LineTo(a+190,b+160); PrintXY(a+20,b+65,'Пример'); Finish; end; ReportStream:=TMemoryStream.Create; try ReportStream.LoadFromFile('Primer1'); Form1.RvRenderRTF1.NDRStream:=ReportStream; Form1.RvRenderRTF1.PrintRender(ReportStream,'Primer2'); Form1.RvRenderPDF1.NDRStream:=ReportStream; Form1.RvRenderPDF1.PrintRender(ReportStream,'Primer2'); finally ReportStream.Free; end; end; Кстати, когда я сюда перенес этот код произошла такая же фигня - русский текст превратился в каракули... может это вам о чем то говорит? Помогите пожалуйста!!!! |