Zitat von FBrust:

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:

markieren

Code:

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

Gruß
K-H

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

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

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

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:

zusammenfalten · markieren

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

Schön, daß man nicht weiß, was in der DLL passiert.
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 (hatte den Thread sogar in der Unit genannt)


Pssst, der Link in deinem Link ist etwas kaputt

Hallo,

in der DLL wird eigentlich nichts Besonderes gemacht.
Es sind folgende Units eingebunden - betrifft die Version V2, die ja verwendet wurde:

uses
SysUtils,math,Windows,
Classes;

Ich kann mir jedenfalls nicht erklären, warum es nicht geht, bzw. nicht gehen soll.

Kann es sein, dass Du aus einem Dienst heraus die DLL nicht aufrufen kannst oder darfst,
z.B. aufgrund des Verzeichnisses, in dem die DLL liegt?

Gruß Markus