Эн не интересно, там конвертирование через Word сделано, причем как-то слишко навороченно, я в своем продукте делал конвертирование так:
Код:
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;
Вот если бы там конвертирование делалось без ворда, то цены бы этому исходнику не было
