Excel-Datei in Dienst + Thread erzeugen und speichern

[FBrust]

Hallo,

ich möchte in einem Thread, der in einem Dienst läuft, eine Excel-Tabelle erzeugen, mit Daten füllen und unter einem gegebenen Namen speichern.

Ich habe bereits eine Methode, die in einem "normalen" Desktop-Programm erfolgreich eingesetzt wird, für den Thread übernommen.

Allerdings erhalte ich nun die Fehlermeldung "Die Close-Methode des Workbook-Objektes konnte nicht ausgeführt werden" und habe keine Ahnung, wieso.

Hier der Code:

Delphi-Quellcode:

function TResultT.CreateExcelFile(strProgram: string; strPDFName: string; intCustID: integer): string;
var
  strFilename: string;
  Excel      : variant;
  qryTemp    : TIBCQuery;
  intRow     : integer;
  iCnt       : Integer;
  _lcid      : integer;
begin
  Result := '';
  strFileName := StringReplace(strPDFName, '.pdf', '.xls', []);

  try
    try
      OleInitialize(nil);
      Excel := CreateOleObject('Excel.Application');
    except
      ShowMessage('Excel konnte nicht gestartet werden!');
      Result := '';
      Exit;
    end;

    _lcid := GetUserDefaultLCID;
    Excel.Workbooks.Add;
    Excel.Visible := False;             // TRUE = Excel sichtbar.
    Excel.Worksheets[1].Activate;
    Excel.Cells[1,1] := 'blabla';


    // Hier werden dann Daten aus einer Abfrage in die Excel-Tabelle geschrieben

    if (FileExists(strFilename)) then
      begin
        SysUtils.DeleteFile(strFilename);
      end;

    Excel.Worksheets[1].Range['a1', 'a1'].EntireColumn.autofit;
    Excel.Worksheets[1].Range['b1', 'b1'].EntireColumn.autofit;
    Excel.Worksheets[1].Range['c1', 'c1'].EntireColumn.autofit;
    Excel.Worksheets[1].Range['d1', 'd1'].EntireColumn.autofit;
    Excel.Worksheets[1].Range['e1', 'e1'].EntireColumn.autofit;
    Excel.Worksheets[1].Range['f1', 'f1'].EntireColumn.autofit;

    Excel.DisplayAlerts := False;
    try
      Excel.ActiveWorkBook.Close(True, strFileName); // <-- Hier knallts mit der o. a. Fehlermeldung
      Excel.DisplayAlerts := True;
    except
      on E:Exception do
        begin
          WriteLog('Excel-Tabelle "' + strFileName +  '"konnte nicht erzeugt werden, Meldung: ' + E.Message, 1);
          strFileName := '';
        end;
    end;
  finally
    Excel.Quit;
    Excel := unassigned;
    OleUnInitialize;
  end;
  Result := strFilename;
end;

Wie gesagt, ich weiss nicht, wieso jetzt .Close nicht mehr funktioniert. Ich habe auch .SaveAs(strFileName) ausprobiert, mit dem gleichen Ergebnis.

In dem Ordner, in dem die XLS-Datei erzeugt werden soll, werden vorher im gleichen Thread 1 - n PDF-Dateien erzeugt. Das klappt einwandfrei, also vermute ich mal, dass es kein Rechteproblem ist. Excel ist auch installiert.

Hat vielleicht jemand eine Tipp?

Grüße
Frank

[Bernhard Geyer]

Ich hatte schon auch mal mit anderen COM-Schnittstellen die Erfahrung gemacht das man diese nur aus dem Hauptthread der Anwendung bedienen sollte. Ob hier Delphi oder Windows problem bereitet habe ich nicht weiter untersucht.

[p80286]

Zitat:

Zitat von FBrust (Beitrag 1268673)

ich möchte in einem Thread, der in einem Dienst läuft, eine Excel-Tabelle erzeugen, mit Daten füllen und unter einem gegebenen Namen speichern.

Und wohin willst Du schreiben?
'c:\'
'c:\Program files'
'c:\diesesVerzeichnisgibtesnicht'

sind grundsätzlich nicht sooo dolle.

Hat Dein Dienst auch die notwendigen Rechte um eine Datei dort zu schreiben wo Du es kannst?

Gruß
K-H

[FBrust]

Hallo,

danke für eure Antworten.

der Ordner wird in dem Thread erst erzeugt (funktioniert) und die vorher ebenfalls in diesem Thread erzeugten PDF-Dateien werden auch in diesem Ordner gespeichert. Der Dienst läuft auch als SYSTEM, also dürfte er die Rechte haben.

Braucht der Dienst Extra-Rechte, wenn über OLE eine Datei erzeugt werden soll?

Grüße
Frank

[p80286]

Zitat:

Zitat von FBrust (Beitrag 1268689)

der Ordner wird in dem Thread erst erzeugt (funktioniert) und die vorher ebenfalls in diesem Thread erzeugten PDF-Dateien werden auch in diesem Ordner gespeichert.

wenn das funktioniert, dann sollte eigentlich auch Excel funktionieren.
Ich hab das "SaveAs" von E2013 mal mitgeschnitten, u.U. mußt Du die entsprechenden Parameter mit übergeben:

Code:

ActiveWorkbook.SaveAs Filename:="C:\Temp\willi.xls", FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False

Gruß
K-H

[himitsu]

Es könnte natürlich auch sein, daß dieses Excel in einem Dienst einer Session ohne Desktop/UI richtig fnktioniert?

Und sowas wie ShowMessage oder DisplayAlerts hat in einem Dienst sowieso nichts zu suchen. (außer vielleicht mal in einem "Interactive Service")


PS: "StringReplace" -> ChangeFileExt

[FBrust]

Hallo,

vielen Dank für die Tips.

Ich habe jetzt die o. a. Methode in den Hauptthread verlagert, erhalte aber die gleiche Fehlermeldung. Auch die Angabe der zusätzlichen Parameter brachte keinen Erfolg. Vermutlich stimmt Himitsus Annahme, dass diese Vorgehensweise auf diese Art und Weise nicht funktioniert.

Evtl. muss ich das Erzeugen der Excel-Datei in ein VCL-Programm auslagern, dass dann vom Dienst aufgerufen wird, die Excel-Tabelle erzeugt und sich dann wieder beendet.

@Himitsu: Die Methode kannte ich noch garnicht, vielen Dank für den Tip. Und das "Showmessage" ist auch ersetzt.


Grüße
Frank

[Jumpy]

Je nachdem um welches Excel-Dateiformat (alt/neu) es geht und was in der Datei alles gemacht werden soll (nur Daten reinschaufeln oder auch Formatierungen vornehmen) gibt es (auch hier in der DP irgendwo) Projekte, um Excel-Dateien ohne Excel zu erzeugen.

Hier noch ein paar links bzgl. der ursprünglichen Problems:

http://bharathkumaran.wordpress.com/...ndows-service/

http://social.technet.microsoft.com/...updeploylegacy

[FBrust]

Hallo,

ich habe jetzt (auch um zu vermeiden, dass Excel als Systemvoraussetzung deklariert werden muss, aus http://www.delphipraxis.net/180747-e...ne-office.html die DLL und die Unit verwendet, um eine Testfunktion zu erstellen:

Delphi-Quellcode:

function TResultT.TestExcelfile(intCustID: integer; strResultFile: string): string;
var
  strFile: string;
  strPath: string;
  strFileName: string;
begin
  
  strFileName := 'D:\Ausgabe\test.xls');

  XLSCreate(PAnsiChar(strFileName),xlsfmcreate);
  XLSCreator(PAnsiChar('Test99'));
  XLSFontName(PAnsiChar('Segoe UI'));
  XLSWorkSheetAdd(PAnsiChar('Stichprobenergebnis'));

   // Kopfdaten
  XLSWriteStr(0,1,1, PAnsiChar('Test'));
  XLSWriteStr(0,1,3, PAnsiChar('Kunde'));

  XLSWriteStr(0,2,3, PAnsiChar(GetCustNameByID(intCustID, conData)));

  XLSWriteStr(0,1,4, PAnsiChar('Stichprobe vom:'));

  XLSWriteStr(0,1,5, PAnsiChar('Prüfer/in:'));

  XLSWriteStr(0,1,6, PAnsiChar('Vereinbartes Qualitätsniveau:'));

  XLSDestroy;

end;

Diese funktioniert in einem VCL-Testprogramm einwandfrei, aber nicht im Thread des Dienstes. Es kommt kein Fehler, auch nicht beim Durchsteppen im Debugger, es wird einfach keine Datei erzeugt. Es ist zum Haareraufen.

Eben fällt mir auf, dass FastReport keine Probleme hat, im gleichen Thread einen Bericht als PDF zu exportieren, möglicherweise funktioniert der Excel-Export von FR dann genauso. Ich werde es ausprobieren müssen, denn ansonsten müsste ich eine Lösung entwickeln, die außerhalb des Dienstes läuft :(.

Gruß
Frank

[himitsu]

Schön, daß man nicht weiß, was in der DLL passiert. :stupid:
Es war aber eher sowas wie TXLSFile gemeint, was man eigentlic in der DP finden müsste, aber welches ich grade nicht entdecke.

Ich hatte den Code aber mal versucht in einer Komponente zusammenzufassen.
Siehe anhang. (falls es Probleme gibt, dann eventuell mal in die Version in der enthaltenen 7z gucken ... hab jetzt keine Zeit zu vergleichen, ob sich da, in dem Tag nach erstellung der 7Zip, noch etwas verändert hatte)

[edit]
www.delphipraxis.net/164833-excel.html :oops: (hatte den Thread sogar in der Unit genannt)


Pssst, der Link in deinem Link ist etwas kaputt :zwinker: