Excel-Datei in Delphi 5 einbetten

Question

Ich versuche, eine Excel-Datei in meine Delphi 5-Anwendung einzubetten, so dass ich vermeiden kann, dass meine Benutzer die Datei versehentlich löschen.

Mithilfe der eingebetteten Datei, ich erstelle es auf der Festplatte mit einem Speichern-Dialog, und öffnen Sie es dann mit der Excel := CreateOleObject('Excel.Application'); Methode. Ich habe Beispiele zum Laden einer Ressource mit THandles gesehen, aber ich glaube nicht, dass es funktioniert mit Excel.WorkBooks.Open(EmbeddedExcelFile);.

Haben Sie so etwas schon einmal gemacht? Wie würdest du es machen?

Danke!

Answer 1

Sie müssen die Datei als Ressource einschließen. Angenommen, Sie haben ein blah.xls

erstellen blah.rc Datei mit folgendem Inhalt

blah RCDATA blah.xls 

es mit der Ressource-Compiler

betten die RES-Datei innerhalb der ausführbaren

{$R 'blah.res'} 

kompilieren in blah.res

extrahieren Sie die Datei in Ihrem Anwendungscode und führen Sie sie mit diesem Code

01 aus

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; 

Sie ShellAPI Klausel in Ihrer uses

vielleicht müssen hinzufügen müssen Sie diese Funktion GetTempDir

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

aufrufen, um die Funktion wie diese

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

Answer 2

Ich bin mir ziemlich sicher, es wird nicht funktionieren. Sie müssen die Datei in einem temporären Ordner speichern, ändern und dann tun, was Sie wollen.