Re: Just filter doc file

Return to index

Author

Message

Sergey Tkachenko

Posted: 06/17/2003 10:17:37

Hi,

There are (at least) 2 *.doc converters on my computer:

"Word 6.0-95 for Windows & Macintosh" - it can open files saved by MS Word

6.0/95, and cannot open files saved by MS Word 97/2000/XP;

"Word 97-2002" - it can open files saved by MS Word 97/2000/XP and cannot

open MS Word 6.0/95 files.

You cannot search converters by

- extension (there are many converters for *.doc, not all of them for MS

Word);

- by displayable name (it depends on the language of MS Word and on its

version)

But you can still search by the file name of converter library.

On my computer, the first converter (of listed above) has name mswrd632.cnv

(or mswrd632.wpc in different localization), the second - mswrd832.cnv.

You can try to search:

function FindConverterByFileName(rvoc: TRVOfficeConverter; const name:

String): Integer;

var i: Integer;

     fn: String;

begin

  Result := -1;

  for i := 0 to rvoc.ImportConverters.Count-1 do

  begin

    fn := rvoc.ImportConverters[i].Path;

    fn := ExtractFileName(fn);

    if Pos(LowerCase(name), LowerCase(fn))=1 then begin

      Result := i;

      exit;

    end;

  end;

end;

function GetWord6ImportConverterIndex: Integer;

begin

  Result := FindConverterByFileName('mswrd632');

end;

function GetWord97ImportConverterIndex: Integer;

begin

  Result := FindConverterByFileName('mswrd832');

end;

These functions return an index of the converter, or -1 if not found.

I just typed them in my newsgroup client, I did not tested these functions,

misprints are possible.

> Hi,

> I want to insert a file (function is same as Insert File action) and

> RVOfficeConverter only filters file *.doc.

> I'll use the importRV function, but I don't know how ConverterIndex is.

> Please help me.

>

>