Как открыть в Richedit кодированный rtf

← →
Dimich1978 (2008-07-22 11:06) [0]

Вообщем есть rtf, вордом открывается как кодированный текст, Richedit его открывает коряво. Как нормально открыть данный текст.
Заранее спасибо.
Долго не программил, поэтому сильно не пинать.

← →
Dimich1978 (2008-07-22 11:32) [1]

Если кому интересно, сделал так(не мое на авторство не претьендую)
type
TOEMTextConv = class(TConversion)
public
function ConvertReadStream(Stream: TStream; Buffer: PChar; BufSize: Integer): Integer; override;
end;

{ TOEMTextConv }
function TOEMTextConv.ConvertReadStream(Stream: TStream; Buffer: PChar;
BufSize: Integer): Integer;
begin
Result := Stream.Read(Buffer^,BufSize);
OEMToCharBuff(Buffer,Buffer,Result);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.RegisterConversionFormat("txt",TOEMTextConv);
RichEdit1.Lines.LoadFromFile("c:\1.txt");
end;

← →
Anatoly Podgoretsky © (2008-07-22 11:47) [2]

> Dimich1978 (22.07.2008 11:32:01) [1]

А где здесь кодирование?

← →
brother © (2008-07-22 11:57) [3]

конвертация однако)

конвертация и мкодирование - это разные вещи.
Для показа OEM конвертирование не требуется,
я думаю, что это не конвертация, а ремонт испорченого RTF

Как открыть в Richedit кодированный rtf Найти похожие ветки