在Delphi 5中嵌入Excel文件

  • Z时代
  • 2024-01-10
  • 分类：问答

我想嵌入一个Excel文件到我的Delphi 5应用程序，所以我可以避免我的用户只是意外删除文件。在Delphi 5中嵌入Excel文件

使用嵌入文件，我使用保存对话框在磁盘上创建它，然后用Excel := CreateOleObject('Excel.Application');方法打开它。我见过如何使用THandles加载资源的例子，但我似乎没有得到它与Excel.WorkBooks.Open(EmbeddedExcelFile);的工作。

你有没有做过这样的事情？你会怎么做？

谢谢！

回答：

您必须将该文件包含为资源。假设你有一个blah.xls

与以下内容创建blah.rc文件

blah RCDATA blah.xls

与资源编译器编译成blah.res

嵌入可执行

{$R 'blah.res'}

内的RES文件在您的应用程序代码中，提取文件并使用此代码运行它

procedure ExtractAndRun(resourceID:string; resourceFn:string); 
var 
    resourceStream: TResourceStream; 
    fileStream: TFileStream; 
    tempPath: string; 
    fullFileName: string; 
begin 
    tempPath:=GetTempDir; 
    FullFilename:=TempPath+'\'+resourceFN; 
    if not FileExists(FullFilename) then 
    begin 
    resourceStream := TResourceStream.Create(hInstance, resourceID, RT_RCDATA); 
    try 
     fileStream := TFileStream.Create(FullFilename, fmCreate); 
     try 
     fileStream.CopyFrom(resourceStream, 0); 
     finally 
     fileStream.Free; 
     end; 
    finally 
     resourceStream.Free; 
    end; 
    end; 
    ShellExecute(0,'open', pchar(FullFilename), nil, nil, SW_SHOWNORMAL); 
end;

你就必须添加在ShellAPI的用途的条款

也许你会需要这个GetTempDir功能

function GetTempDir: string; 
var 
    Buffer: array[0..MAX_PATH] of char; 
begin 
    GetTempPath(SizeOf(Buffer) - 1, Buffer); 
    result := StrPas(Buffer); 
end;

调用函数，这样

extractAndRun('blah','blah.xls');

回答：

我很确定它不会工作。你必须将文件保存在一个临时文件夹中，修改它，然后做任何你想要的。

以上是 在Delphi 5中嵌入Excel文件 的全部内容， 来源链接： utcz.com/qa/258053.html

回到顶部