Skapa, redigera, granska, beräkna och exportera Excel-arbetsböcker direkt från Delphi- eller C++Builder-kod. HotXLS är ett nativt Object Pascal-bibliotek med källkod för XLS- och XLSX-flöden, avsett för skrivbordsverktyg, batchjobb, rapportsystem och serversidig dokumentgenerering utan Microsoft Excel-automatisering.
Den här artikeln är skriven för teams that need fast workbook triage before loading formulas, styles, and cell data. Den behandlar sheet listing and lightweight workbook inspection som produktionsnära dokumentteknik, inte som ett isolerat komponentanrop.
Den praktiska risken är att opening full workbook content just to list sheets wastes time and memory, and it can expose unsupported features too late in the process. Därför behöver flödet ett skrivet kontrakt, observerbar diagnostik och realistiska regressionsfiler.
Arkitekturbeslut
Inspect package facts before full parsing. which facts are required before full workbook load / handling for hidden sheets, very hidden sheets, chart sheets, and unsupported sheet types
- which facts are required before full workbook load
- handling for hidden sheets, very hidden sheets, chart sheets, and unsupported sheet types
- maximum package size, sheet count, and intake timeout
- routing rules for files that only need metadata versus full calculation
Implementeringsflöde
Use sheet inventory as an intake gate. The order below keeps the workflow reviewable for Delphi and C++Builder teams.
- open the workbook in an inspection path that avoids unnecessary cell materialization
- read format, package metadata, sheet list, visibility, and rough dimensions
- classify the workbook as preview, audit, convert, reject, or full-load
- show sheet inventory to operators when routing depends on workbook structure
- log inspection facts before deeper processing mutates state
Valideringsbevis
Inspection evidence for routing decisions. Keep these fields with the output or support record.
- format, file size, sheet count, sheet order, visibility, and sheet type
- metadata such as creator, modified time, and application when available
- routing result and reason based on lightweight facts
- warnings for encrypted, damaged, macro-enabled, or oversized packages
Triage should be cheap and trustworthy
A lightweight inspection step should capture workbook format, sheet names, visibility, order, types, dimensions when available, and package-level warnings. That information is enough to route many files before deep processing.
Implementeringsanteckningar för produktion
Behandla HotXLS: sheet listing and lightweight workbook inspection som ett tydligt servicekontrakt runt HotXLS-anropen, med separerad indatavalidering, arbetsboksskrivning, utdata kontroll och supportbevis
- Bestäm datakälla, cellområden och utdataformat innan arbetsboken skapas
- Logga rader, blad, varningar och utdata sökväg i granskningsbar supportevidens
- Kapsla applikationsdetaljer i testbara helpers i stället för UI-händelser
- Öppna eller inspektera den sparade filen innan den lämnas till ett annat system eller kunden
Felmoder att öva
- En lyckad SaveAs bevisar inte att affärskontraktet fortfarande är korrekt
- Typsnitt, behörigheter och regionala inställningar kan skilja mellan server och utvecklingsdator
- Loggar får inte exponera lösenord, kunddata eller interna länkar
Detaljerat Delphi-exempel
Följande Delphi-exempel visar en praktisk servicegräns för ämnet och håller policy, loggning och validering testbart separerade
procedure WriteWorkbookInspectionIndex(const SourceFile, OutputFile: string);
var
Wb: TXLSXWorkbook;
IndexSheet: IXLSWorksheet;
Sh: IXLSWorksheet;
SheetIndex: Integer;
RowIndex: Integer;
begin
RequireFileExists(SourceFile);
Wb := TXLSXWorkbook.Create;
try
Wb.Open(SourceFile);
IndexSheet := AddWorksheet(Wb, 'Inspection Index');
WriteHeaderRow(IndexSheet, ['No', 'Sheet', 'UsedRange', 'FormulaCells', 'Warnings']);
RowIndex := 2;
for SheetIndex := 0 to Wb.Sheets.Count - 1 do
begin
Sh := Wb.Sheets[SheetIndex];
IndexSheet.Range['A' + IntToStr(RowIndex)].Value := SheetIndex + 1;
IndexSheet.Range['B' + IntToStr(RowIndex)].Value := Sh.Name;
IndexSheet.Range['C' + IntToStr(RowIndex)].Value := GetUsedRangeAddress(Sh);
IndexSheet.Range['D' + IntToStr(RowIndex)].Value := CountFormulaCells(Sh);
IndexSheet.Range['E' + IntToStr(RowIndex)].Value := BuildSheetWarnings(Sh);
Inc(RowIndex);
end;
AddAutoFilterToHeader(IndexSheet, 'A1:E' + IntToStr(RowIndex - 1));
WriteInspectionAudit(Wb, SourceFile, RowIndex - 2);
if Wb.SaveAs(OutputFile) <> 1 then
RaiseWorkbookSaveError(OutputFile);
finally
Wb.Free;
end;
end;
Produktionschecklista
- 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