Привіт 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;
До речі, коли я сюди переніс цей код сталася така ж фігня - російський текст перетворився в каракулі. може це вам про щось говорить?