请问如何在自己的程序中调用OFFICE软件的文档转换器?(200分)

lighttop · 2002-10-29

请问如何在自己的程序中调用OFFICE软件的文档转换器? (注意:不是通过OLE控制WORD来实现转换) 比如把WORD文档转换成RTF文档等.

yanghai0437 · 2002-10-29

看看VBA中是否有相关函数，然后就可以调用了

lighttop · 2002-10-29

如果使用VBA,就要在后台启动WORD, 这样速度就很慢,而且大量占用资源. 我看到一个"文档管理助手"软件(作者:吴联民)  , 它的导入功能好象调用了OFFICE带 的转换程序,而不需要启动任何一个OFFICE程序, 速度很快.

jlutt-sadan · 2003-01-22

安装office后文本转换单元在 C:/Program Files/Common Files/Microsoft Shared/TextConv 图形转换单元在C:/Program Files/Common Files/Microsoft Shared/Grphflt 其中Doc->rtf使用TextConv下的MsWord832.cnv 导入Html使用html32.cnv 导入excel表格使用Excel32.cnv 这些个路径在注册表下有说明 HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Shared Tools/Text Converters HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Shared Tools/Graphics Filters 下面是使用转换器的单元 unit Converters; { -----------------------------------------------------------------------------} { Unit: Converters                                                             } { Purpose: import and export to Office known formats                           } { Required: the TRichEdit98. See enclosed zip. This demo could also use        } {           an imported RICHTX32.OCX, but you'll have to modify the form for   } {           this to work.                                                      } { Authors: Fred Jansma, Paul te Bokkel                                         } {          Incontrol Business Engineers                                        } { -----------------------------------------------------------------------------} { Copyright (c) 1998 Paul te Bokkel & Fred Jansma, Incontrol Business Engineers} { This program is free software; you can redistribute it and/or                } { modify it under the terms of the GNU General Public License                  } { as published by the Free Software Foundation; either version 2               } { of the License, or (at your option) any later version.                       } { This program is distributed in the hope that it will be useful,              } { but WITHOUT ANY WARRANTY; without even the implied warranty of               } { MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the                } { GNU General Public License for more details.                                 } { You should have received a copy of the GNU General Public License            } { along with this program; if not, write to the Free Software                  } { Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.  } interface uses   Registry, Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls, FileCtrl, OleCtrls, ComCtrls, ExtCtrls, AxCtrls, RichEdit2; // ----------------------------------------------------------------- // Functions to call when you want to convert something // ----------------------------------------------------------------- // Function to import a file to a WideString. function ImportAsRTF(FileName: String; Converter: String; rtbApp: TRichEdit98): Boolean; // Function to export RTF to a file. function ExportRTF(FileName: String; Converter: String; rtbApp: TRichEdit98): Boolean; // ----------------------------------------------------------------- // Functions to call if you want to know what can be converted // ----------------------------------------------------------------- // Function to build a filter list, with available import and export converters. function BuildFilterList(ForImport: Boolean): string; // Function to build a list with available conveters. function BuildConverterList(ForImport: Boolean; StrLst: TStringList): Boolean; // ----------------------------------------------------------------- // Supportive functions - not to be called direct, unless you // know what you are doing // ----------------------------------------------------------------- // Initialize the selected converter. function LoadConverter(Description: string; Import: boolean): HWND; // Check if current file is of right format. function IsKnownFormat(FileName: string): Boolean; // Convert string to HGLOBAL. function StringToHGLOBAL(const str: string): HGLOBAL; // Procedure to free the converters. procedure DoFreeConverters; // Function to obtain the directory of WordPad. Not needed to be public, but maybe // someone is looking for it. function WordPadDir: string; // Callback functions for reading and writing. function Reading(CCH, nPercentComplete: integer): Integer; stdcall; function Writing(flags, nPercentComplete: integer): Integer; stdcall; implementation type   // Our functions to convert the RTF-format to a foreign format, or a foreign format to the RTF-format.   // These functions are hidden in the converters.   RTF_CALLBACK = function(CCH, nPercentComplete: integer): Integer; stdcall;   TInitConverter = function(ParentWin: THandle; ParentAppName: LPCSTR): integer; stdcall;   TIsFormatCorrect = function(FileName, Desc: HGLOBAL): integer; stdcall;   TForeignToRtf = function(FileName: HGLOBAL; void: pointer{LPSTORAGE}; Buf, Desc, Subset: HGLOBAL; Callback: RTF_CALLBACK): integer; stdcall;   TRtfToForeign = function(FileName: HGLOBAL; void: pointer{LPSTORAGE}; Buf, Desc: HGLOBAL; Callback: RTF_CALLBACK): integer; stdcall; var   CurrentConverter: HWND;   InitConverter: TInitConverter = nil;   IsFormatCorrect: TIsFormatCorrect = nil;   ForeignToRtf: TForeignToRtf = nil;   RtfToForeign: TRtfToForeign = nil;   hBuf: HGLOBAL;   bytesRead: integer = 0;   WritePos: integer = 0; // in Char, not WChar   WriteMax: integer = 0; // in Char, not WChar   RTFToWrite: string;   mstream: TMemorystream = nil; const   nBufSize: integer = 4096;   MSTextConvKey = 'SOFTWARE/Microsoft/Shared Tools/Text Converters/'; function ImportAsRTF(FileName: String; Converter: String; rtbApp: TRichEdit98): Boolean; var   // Variables used for the actual conversion.   hSubset,   hFileName,   hDesc: HGLOBAL;   res: integer; begin   Result := False; // We are very pessimistic.   try     if LoadConverter(Converter, True) <> 0 then       begin         // Check selected file format.         if IsKnownFormat(FileName) then           begin             // prepare parameters             hSubset := StringToHGLOBAL('');             hDesc := StringToHGLOBAL('');             hFileName := StringToHGLOBAL(FileName);             hBuf := GlobalAlloc(GHND, nBufSize + 1);             try               Screen.Cursor := crHourGlass;               mstream := TMemoryStream.Create;               mstream.SetSize(512 * 1024); // initial: 512 kB, seems reasonable.               if Assigned(ForeignToRtf) then                 res := ForeignToRtf(hFileName, nil, hBuf, hDesc, hSubset, Reading)               else                 res := -1; // no valid entry point for DLL               if res = 0 then // Don't know any other states. Might be boolean.                 begin                   mstream.SetSize(mstream.Position); // shrink to right size                   mstream.Position := 0;                   rtbApp.Lines.LoadFromStream(mStream);                   mStream.Free;                   Result := True;                 end               else                 Result := False;             finally               GlobalFree(hBuf);               GlobalFree(hFileName);               GlobalFree(hDesc);               GlobalFree(hSubset);               Screen.Cursor := crDefault;             end;           end         else           begin             ShowMessage('Not the correct file format');             Result := False;           end;       end;   except     Result := False;   end; end; function ExportRTF(FileName: String; Converter: String; rtbApp: TRichEdit98): Boolean; var   hSubset,   hFileName,   hDesc: HGLOBAL;   res: integer;   iSelStart, iSelLength: Integer; begin   if LoadConverter(Converter, False) <> 0 then     begin       if not (Assigned(InitConverter)          and LongBool(InitConverter(Application.Handle, PChar(Uppercase(Application.ExeName))))) then         begin           ShowMessage('Please report: InitConverter failed');           Result := False;           Exit;         end;       hSubset := StringToHGLOBAL('');       hDesc := StringToHGLOBAL('');       hFileName := StringToHGLOBAL(FileName);       hBuf := GlobalAlloc(GHND, nBufSize + 1);       try         Screen.Cursor := crHourGlass;         WritePos := 0;         if Assigned(RtfToForeign) then           begin             iSelStart := rtbApp.SelStart;             iSelLength := rtbApp.SelLength;             rtbApp.SelectAll; // This is done quick-and-dirty, but at the moment it works.             RTFToWrite := rtbApp.RTFSelText;             rtbApp.SelStart := iSelStart;             rtbApp.SelLength := iSelLength;             WriteMax := length(RTFToWrite);             res := RtfToForeign(hFileName, nil, hBuf, hDesc, Writing);             RTFToWrite := '';             if res = 0 then               Result := True             else               Result := False;           end         else           begin             ShowMessage('Coult not export document');             Result := False;           end;       finally         GlobalFree(hBuf);         GlobalFree(hFileName);         GlobalFree(hDesc);         GlobalFree(hSubset);         Screen.Cursor := crDefault;       end;     end   else     Result := False; end; // Try to obtain the WordPad directory. function WordPadDir: string; var   reg: TRegistry; begin   reg := TRegistry.Create;   with reg do     try       RootKey := HKEY_LOCAL_MACHINE;       Result := '';       if OpenKey('/SOFTWARE/Microsoft/Windows/CurrentVersion/App Paths/WORDPAD.EXE', False) then         Result := ReadString('');       Result := ExtractFilePath(Result); // leaves the trailing backslash intact     finally       Free;     end; end; // The function "BuildFilterList" creates a string, that we can use as a filterlist // in the dialog. function BuildFilterList(ForImport: Boolean): string; const   saImEx: array[False..True] of string = ('Export', 'Import'); var   regTxtConv: TRegistry;   regConvEntry: TRegistry;   slEntries: TStringList;   x,   i: integer;   extensions: string; begin   regTxtConv := TRegistry.Create;   regConvEntry := TRegistry.Create;   slEntries := TStringList.Create;   Result := '';   with regTxtConv do     try       RootKey := HKEY_LOCAL_MACHINE;       if OpenKey(MSTextConvKey + saImEx[ForImport], False) then         GetKeyNames(slEntries);     finally       CloseKey;       Free;     end;   regConvEntry.RootKey := HKEY_LOCAL_MACHINE;   try     for i := 0 to slEntries.Count-1 do       begin         if regConvEntry.OpenKey(MSTextConvKey + saImEx[ForImport] + '/' + slEntries, false) then           try             extensions := '*.' + regConvEntry.ReadString('Extensions');             x := pos(' ', extensions);             while x > 0 do               begin                 delete(extensions, x, 1);                 insert(';*.', extensions, x);                 x := pos(' ', extensions);               end;             Result := Result + regConvEntry.ReadString('Name') + '|' + extensions + '|';           except             // catch a faulty key mismatch           end;         regConvEntry.CloseKey;       end;   finally     regConvEntry.Free;     slEntries.Free;   end;   // We can always im/export RTF, but there is no (trivial) converter for,   // but we do want to show it...   Result := 'Rich Text Format|*.rtf|' + Result;   // Since the WordPad converters are identically to the Office converters,   // we test if WordPad is installed and if so, if we did find Word and/or   // Write format. If not, add them.   // NB: these are valid for both im- and export.   if WordPadDir <> '' then   begin     if (pos('Windows Write', Result) = 0) and        (FileExists(WordPadDir + 'write32.wpc')) then       Result := 'Windows Write|*.wri|' + Result;     if FileExists(WordPadDir + 'mswd6_32.wpc') then // do we have W6 converter?       if (pos('Word 6.0/95', Result) = 0) then         // no office converter for W6, add Wordpad as default converter         Result := 'Word 6.0/95|*.doc|' + Result       else         // Since Office converter seems buggy, add Wordpad converter as default         Result := 'Word 95 via WordPad|*.doc|' + Result;   end;   if (Result <> '') and (Result[Length(Result)] = '|') then     Delete(Result, Length(Result), 1); // strip trailing | end; // The function "BuildConverterList" creates a stringlist, in which all available // converters are stored. function BuildConverterList(ForImport: Boolean; StrLst: TStringList): Boolean; const   saImEx: array[False..True] of string = ('Export', 'Import'); var   regTxtConv: TRegistry;   regConvEntry: TRegistry;   slEntries: TStringList;   i: integer; begin   if not Assigned(StrLst) then     begin       Result := False;       Exit; // StrLst must be initialized.     end;   regTxtConv := TRegistry.Create;   regConvEntry := TRegistry.Create;   slEntries := TStringList.Create;   try     with regTxtConv do       try         RootKey := HKEY_LOCAL_MACHINE;         if OpenKey(MSTextConvKey + saImEx[ForImport], False) then           GetKeyNames(slEntries);       finally         CloseKey;         Free;       end;     regConvEntry.RootKey := HKEY_LOCAL_MACHINE;     try       for i := 0 to slEntries.Count-1 do         begin           if regConvEntry.OpenKey(MSTextConvKey + saImEx[ForImport] + '/' + slEntries, False) then             try               StrLst.Add(regConvEntry.ReadString('Name'));             except               // catch a faulty key mismatch             end;           regConvEntry.CloseKey;         end;     finally       regConvEntry.Free;       slEntries.Free;     end;     // We can always im/export RTF, but there is no (trivial) converter for,     // but we do want to show it...     StrLst.Insert(0, 'Rich Text Format');     // Since the WordPad converters are identically to the Office converters,     // we test if WordPad is installed and if so, if we did find Word and/or     // Write format. If not, add them.     // NB: these are valid for both im- and export.     if WordPadDir <> '' then       begin         if (pos('Windows Write', StrLst.Text) = 0) and            (FileExists(WordPadDir + 'write32.wpc')) then            StrLst.Insert(0, 'Windows Write');         if FileExists(WordPadDir + 'mswd6_32.wpc') then // do we have W6 converter?           if (pos('Word 6.0/95', StrLst.Text) = 0) then             // no office converter for W6, add Wordpad as default converter             StrLst.Insert(0, 'Word 6.0/95')           else             // Since Office converter seems buggy, add Wordpad converter as default             StrLst.Insert(0, 'Word 95 via WordPad');       end;     Result := True;   except     Result := False;   end; end; // The function "LoadConverter" loads a specific converter. // We set the converter-functions as well. function LoadConverter(Description: string; Import: boolean): HWND; const   saImEx: array[false..true] of string = ('Export', 'Import'); var   regTxtConv: TRegistry;   regConvEntry: TRegistry;   slEntries: TStringList;   i: integer;   ConverterDLL: string; begin   regTxtConv := TRegistry.Create;   regConvEntry := TRegistry.Create;   slEntries := TStringList.Create;   Result := 0;   ConverterDLL := '';   with regTxtConv do     try       RootKey := HKEY_LOCAL_MACHINE;       if OpenKey(MSTextConvKey + saImEx[Import], false) then         GetKeyNames(slEntries);     finally       CloseKey;       Free;     end;   regConvEntry.RootKey := HKEY_LOCAL_MACHINE;   try     for i := 0 to slEntries.Count - 1 do       begin         regConvEntry.OpenKey(MSTextConvKey + saImEx[Import] + '/' + slEntries, False);         try           if regConvEntry.ReadString('Name') = Description then // we've found our dll             ConverterDLL := regConvEntry.ReadString('Path'); // get dll-location & name         except           // catch a faulty key mismatch to be able to continue         end;         regConvEntry.CloseKey;       end;   finally     regConvEntry.Free;     slEntries.Free;   end;   if ConverterDLL = '' then // It could be a Wordpad provided converter   begin     if pos('Word 6.0/95', Description) > 0 then       ConverterDLL := WordPadDir + 'mswd6_32.wpc'     else if pos('Windows Write', Description) > 0 then       ConverterDLL := WordPadDir + 'write32.wpc'     else if pos('WordPad', Description) > 0 then       ConverterDLL := WordPadDir + 'mswd6_32.wpc';   end;   if ConverterDLL <> '' then     begin       if CurrentConverter <> 0 then // Unload the current loaded converter.         FreeLibrary(CurrentConverter);       Result := LoadLibrary(PChar(ConverterDLL)); // Load the new converter.       if Result <> 0 then         begin           CurrentConverter := Result; // Try to initialize our functions.           @InitConverter := GetProcAddress(Result, 'InitConverter32');           @IsFormatCorrect := GetProcAddress(Result, 'IsFormatCorrect32');           @ForeignToRtf := GetProcAddress(Result, 'ForeignToRtf32');           @RtfToForeign := GetProcAddress(Result, 'RtfToForeign32');         end;     end;   if Result = 0 then     begin // On failure, reset...       @InitConverter := nil;       @IsFormatCorrect := nil;       @ForeignToRtf := nil;       @RtfToForeign := nil;     end; end; // The function "StringToHGlobal" converts a string in HGLOBAL. function StringToHGLOBAL(const str: string): HGLOBAL; var   new: PChar; begin   Result := GlobalAlloc(GHND, Length(str) * 2 + 1);   new := GlobalLock(Result);   if new <> nil then     strcopy(new, PChar(str));   GlobalUnlock(Result); end; // The function "IsKnownFormat" is used to check if a selected file // matches a converter-type. function IsKnownFormat(FileName: string): Boolean; var   hFileName,   hDesc: HGLOBAL; begin   Result := False;   if not (Assigned(InitConverter)      and LongBool(InitConverter(Application.Handle, PChar(Uppercase(Application.ExeName))))) then     ShowMessage('Please report: InitConverter failed') // Question only is: report to who?   else     begin       hFileName := StringToHGLOBAL(FileName);       hDesc := StringToHGLOBAL('');       try         if Assigned(IsFormatCorrect) then           Result := LongBool(IsFormatCorrect(hFileName, hDesc)); // hDesc gets like 'MSWord6'       finally         GlobalFree(hDesc);         GlobalFree(hFileName);       end;     end; end; // The function "Reading" is used by the converter-DLL's. // It is used to import a foreign format to the RTF-format. function Reading(CCH, nPercentComplete: integer): Integer; stdcall; var   tempBuf: PChar; begin   tempBuf := GlobalLock(hBuf);   if CCH > 0 then     begin       if mstream.Position + CCH >= mstream.Size then // enlarge stream         mstream.SetSize(mstream.size + (mstream.size div 4)); // by .25       mstream.Write(tempBuf^, CCH);     end;   GlobalUnlock(hBuf);   inc(BytesRead, CCH);   Result := 0; // everything OK end; // The function "Writing" is used by the converter-DLL's. // It is used to export the RTF-format to a foreign format. function Writing(flags, nPercentComplete: integer): Integer; stdcall; var   tempBuf: PChar; begin   tempBuf := GlobalLock(hBuf);   if tempBuf = nil then     begin       Result := -8; // out of memory?       Exit;     end;   if writePos < writeMax then     begin       if (writeMax - writePos) < nBufSize then         bytesRead := writeMax - writePos       else         bytesRead := nBufSize;       move(RTFToWrite[WritePos+1], tempBuf^, bytesRead);       inc(writePos, bytesRead);     end   else     bytesRead := 0;   GlobalUnlock(hBuf);   Result := bytesRead; end; procedure DoFreeConverters; begin   if CurrentConverter <> 0 then     begin       FreeLibrary(CurrentConverter);       CurrentConverter := 0;     end; end; initialization finalization   DoFreeConverters; end. 具体的用法，有点大了，留个地址吧，sorry

zwh · 2003-01-22

to jlutt-sadan:   请问能发一份给我吗？ Email:xzuse@szonline.net 谢谢！

lighttop · 2003-01-24

接受答案了.

real2001 · 2003-11-10

to jlutt-sadan:    终于找到你了.

这几天正为word与html之间的转换发愁呢.能否帮小弟一把呀,把单元Converters的具体用法发给我一份?先谢了.Email:real200180@sina.com

请问如何在自己的程序中调用OFFICE软件的文档转换器?(200分)

lighttop

Unregistered / Unconfirmed

yanghai0437

Unregistered / Unconfirmed

lighttop

Unregistered / Unconfirmed

jlutt-sadan

Unregistered / Unconfirmed

zwh

Unregistered / Unconfirmed

lighttop

Unregistered / Unconfirmed

real2001

Unregistered / Unconfirmed

Similar threads