Excel-Datei in Dienst + Thread erzeugen und speichern

[FBrust]

Hallo Markus,

es funktioniert

ich habe jetzt (nach einem erneuten tiefen Blick in das Testprogramm) die usbiff8.dcu in die Uses-Klausel des Dienstes aufgenommen und die Testfunktion so umgeschrieben:

Delphi-Quellcode:

   
function TResultT.TestExcelfile(intCustID: integer; strResultFile: string): boolean;
var
  strFile: string;
  XLSFile: TXLSExport;
begin
  Result := True;

   strFile := 'D:\Ausgabe\Test.xls';

   XLSFile:= TXLSExport.Create(strFile,xlsfmcreate);
   XLSFile.Creator := AnsiString('Test');
   /////// FÜLLMUSTER //////////
   XLSFile.WorkSheetAdd(AnsiString('Füllmuster'));
   XLSFile.SetColWidth(0,0,20);
   XLSFile.SetColWidth(0,1,20);
   XLSFile.Pattern.Style := TXLSPatternstyle(0);
   XLSFile.Font.Name:=AnsiString('Times New Roman');
   XLSFile.Write(0,0,0,AnsiString('test:'));

   XLSFile.Free;
end;

Dies wäre nach meinem Verständnis die Variante ohne DLL.

Die obige Funktion macht jetzt auch, was sie soll, d. h. es wird eine test.xls im angegebenen Verzeichnis erzeugt, die auch lesbar ist

Jetzt muss ich sie nur noch so ausbauen, dass sie die geforderten Daten enthält, aber das sollte machbar sein.

Jedenfalls nochmals vielen Dank für Euer aller Mühe (wg. "Mail an Outlook in Dienst und Thread übergeben" melde ich mich dann in einem neuen Thread ).

Grüße
Frank