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

Hallo,

die DLL liegt im gleichen Verzeichnis, in dem auch die exe des Dienstes liegt (D:\Ausgabe, also nicht das Programmverzeichnis).

Ich habe wiederum ein Testprogramm erstellt, das auch dort liegt und die gleiche Funktion zum Erstellen der Excel-Datei verwendet - das funktioniert, aber aus dem Dienst heraus passiert nichts, keine Datei, keine Fehlermeldung.


Gruß
Frank

Hast du mal im VirtualStore nachgesehn, ob sie nicht vielleicht dort liegt?

Bzw. in Taskmanager/Prozesse kann man sich auch so Spalten einblenden, ala UAC-Virtualisierung und Datenausführungsverhinderung.
Letzteres sollte hier aber eigentlich egal sein und UAC steht vermutlich auf Deaktiviert, aber das sollte so auch OK sein.


Die DLL wird im Hauptthread geladen und dann im Thread verwendet, oder nur im Thread ge- und entladen?

Zitat von FBrust:

passiert nichts, ..., keine Fehlermeldung.

Sicher?
http://www.delphipraxis.net/181427-f...ml#post1268581
http://www.delphipraxis.net/180673-s...ml#post1261638
http://www.delphipraxis.net/179601-d...ml#post1252483

Hallo,

ich hab mich an dem Beispielprogramm orientiert, dort wird die DLL auch nicht explizit ge- und entladen, ich vermute, dass dies in der Unit passiert, aber da kann Markus sicher mehr dazu sagen.

Ansonsten wird die Unit UXLSV2 nur in diesem einen Thread (der ja nur ein Unterthread ist) verwendet.

Hab gerade nachgesehen, im Virtualstore ist die Datei auch nicht.


Gruß
Frank

Zitat von FBrust:

ich vermute, dass dies in der Unit passiert,

:nachseh:

"external"
Jupp, wird von der Unit, genauer von Windows (dem Loader) beim Programmstart geladen, also im Haupthtread.