Эн не интересно, там конвертирование через Word сделано, причем как-то слишко навороченно, я в своем продукте делал конвертирование так:
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | function DocToHTML(const pFileNameFrom, pFileNameTo: TFileName): Boolean;
var
WordAppl : OleVariant;
begin
Result := True;
WordAppl := CreateOleObject('Word.Basic');
if VarIsEmpty(WordAppl) then
begin
Result := False;
Exit;
end;
try
WordAppl.FileOpen(pFileNameFrom);
WordAppl.FileSaveAs(Name := pFileNameTo, Format := 8);
finally
try
WordAppl.AppClose;
except
end;
end;
end;
|
Вот если бы там конвертирование делалось без ворда, то цены бы этому исходнику не было
