HotXLS: workbook metadata and document properties in Delphi

Dieser deutsche Artikel behandelt HotXLS: workbook metadata and document properties in Delphi für Teams, die mit Delphi, C++Builder, Lazarus/FPC und losLab-Komponenten arbeiten

Der Fokus liegt auf praxisnahen Entscheidungen, Fallstricken und Prüfpunkten, damit die Lösung im produktiven Einsatz verlässlich bleibt

Architekturentscheidungen

Own metadata as delivery data. standard properties such as title, subject, author, company, category, and keywords / custom properties needed for customer, job, retention, version, or workflow state

• standard properties such as title, subject, author, company, category, and keywords
• custom properties needed for customer, job, retention, version, or workflow state
• whether metadata can expose personal data, internal IDs, or confidential notes
• revision, generated-by, and template-version strategy

Implementierungsablauf

Set properties from the business record. The order below keeps the workflow reviewable for Delphi and C++Builder teams.

1. clear template metadata that should not reach generated output
2. populate standard and custom properties from the business record
3. validate required properties before saving or uploading the workbook
4. include metadata in search or DMS hand-off checks
5. audit final properties when support bundles are created

Validierungsnachweise

Metadata evidence for document management. Keep these fields with the output or support record.

• standard property values, custom property names, and required-property status
• template version, generator version, job identifier, and retention category
• privacy review for metadata fields that may expose sensitive values
• DMS or search-index acceptance result

Workbook metadata is visible outside Excel

Document properties are consumed by search indexes, records systems, portals, DMS workflows, and support staff. They should be generated deliberately rather than inherited accidentally from a designer's template file.

Implementierungshinweise für die Produktion

Behandle HotXLS: workbook metadata and document properties in Delphi als klaren Servicevertrag rund um die HotXLS-Aufrufe, mit getrennten Schritten für Eingabeprüfung, Arbeitsmappenaufbau, Ausgabekontrolle und Support-Evidenz

• Datenquelle, Zellbereiche und Ausgabeformat festlegen, bevor die Arbeitsmappe erzeugt wird
• Zeilenanzahl, Blattanzahl, Warnungen und Ausgabepfad in ein prüfbares Support-Protokoll schreiben
• Anwendungsspezifische Details in testbare Helper kapseln, statt sie in UI-Ereignissen zu verteilen
• Die gespeicherte Datei erneut öffnen oder prüfen, bevor sie an ein anderes System oder an Kunden geht

Fehlerfälle, die getestet werden sollten

• Ein erfolgreicher SaveAs-Aufruf beweist noch nicht, dass der fachliche Vertrag stimmt
• Schriftarten, Rechte und regionale Einstellungen können auf Servern anders sein als auf Entwicklerrechnern
• Logs dürfen keine Passwörter, Kundendaten oder internen Links offenlegen

Ausführliches Delphi-Beispiel

Das folgende Beispiel zeigt eine praktische Servicegrenze für dieses Thema und hält Policy, Logging und Validierung testbar getrennt

procedure StampWorkbookMetadata(const InputFile, OutputFile: string; const Props: TWorkbookDocumentProperties);
var
  Wb: TXLSXWorkbook;
  Cover: IXLSWorksheet;
begin
  RequireFileExists(InputFile);
  Wb := TXLSXWorkbook.Create;
  try
    Wb.Open(InputFile);
    ApplyDocumentProperties(Wb, Props);
    Cover := EnsureWorksheet(Wb, 'Document Info');
    Cover.Range['A1'].Value := 'Document owner';
    Cover.Range['B1'].Value := Props.Owner;
    Cover.Range['A2'].Value := 'Classification';
    Cover.Range['B2'].Value := Props.Classification;
    Cover.Range['A3'].Value := 'Retention profile';
    Cover.Range['B3'].Value := Props.RetentionProfile;
    Cover.Range['A1:B3'].ApplyBuiltinStyle(xbsGood);

    AssertMetadataPolicy(Wb, Props);
    WriteMetadataAudit(Wb, Props);

    if Wb.SaveAs(OutputFile) <> 1 then
      RaiseWorkbookSaveError(OutputFile);
  finally
    Wb.Free;
  end;
end;

Produktionscheckliste

• Run the workflow on an empty workbook, a normal customer workbook, and a worst-case workbook
• Open the output with the target spreadsheet application or downstream importer
• Log product version, template version, profile, row count, output path, elapsed time, and warning count
• Keep passwords, temporary files, customer data, and support bundles under explicit retention rules
• Add regression workbooks when a customer file exposes a new edge case

Product documentation

HotXLS Component

Zusätzliche Codebeispiele

var
  Legacy: IXLSWorkbook;     // reference-counted interface: no manual Free
begin
  Legacy := TXLSWorkbook.Create;
  if Legacy.Open('archive-1999.xls') <= 0 then
    raise Exception.Create('Cannot open archive file');

  Legacy.Title := 'FY1999 ledger (migrated copy)';
  Legacy.Author := 'Archive Migration Batch';
  Legacy.Company := 'Northwind Financial';
  Legacy.Comments := 'Migrated 2026-06-11; source retained in cold storage';
  Legacy.LastSavedBy := 'migration-svc';   // BIFF WRITEACCESS record

  Legacy.SaveAs('archive-1999-stamped.xls');
end;

var
  Book: TXLSXWorkbook;
begin
  Book := TXLSXWorkbook.Create;
  try
    if Book.Open(FileName) = 1 then
    begin
      Writeln(Format('%s | title="%s" author="%s" created=%s',
        [ExtractFileName(FileName), Book.Title, Book.Author,
         FormatDateTime('yyyy-mm-dd', Book.Created)]));
      if Book.Created = 0 then
        Writeln('  no creation date recorded');
    end;
  finally
    Book.Free;
  end;
end;