利用dxSpreadSheet制作DLL方便其它程序生成Excel电子档

最新推荐文章于 2023-12-28 13:56:02 发布
最新推荐文章于 2023-12-28 13:56:02 发布
阅读量1.1k 收藏
点赞数
分类专栏： Delphi 文章标签： Excel Delphi 导出excel
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/bigwell918/article/details/86516918
版权


 //方便经典的Delphi 6/7 调用使用，输出速度杠杠的

//代码在Delphi XE下编译，必须先装Dev套件哦

library exportxlsx;


{ Important note about DLL memory management: ShareMem must be the
  first unit in your library's USES clause AND your project's (select
  Project-View Source) USES clause if your DLL exports any procedures or
  functions that pass strings as parameters or function results. This
  applies to all strings passed to and from your DLL--even those that
  are nested in records and classes. ShareMem is the interface unit to
  the BORLNDMM.DLL shared memory manager, which must be deployed along
  with your DLL. To avoid using BORLNDMM.DLL, pass string information
  using PChar or ShortString parameters. }

uses
  Winapi.Windows,
  System.SysUtils,
  System.Classes,
  vcl.Graphics,
  Forms,
  dxCore,
  dxCoreClasses,
  dxHashUtils,
  dxSpreadSheetCore,
  dxSpreadSheetCoreHistory,
  dxSpreadSheetConditionalFormatting,
  dxSpreadSheetConditionalFormattingRules,
  dxSpreadSheetClasses,
  dxSpreadSheetContainers,
  dxSpreadSheetFormulas,
  dxSpreadSheetHyperlinks,
  dxSpreadSheetFunctions,
  cxGraphics,
  dxSpreadSheetGraphics,
  dxSpreadSheetPrinting,
  dxSpreadSheetTypes,
  dxSpreadSheetUtils,
  dxBarBuiltInMenu,
  dxSpreadSheet;

{$R *.res}
var
xlsDoc: TdxSpreadSheet=nil;
ASheet: TdxSpreadSheetTableView;
xlsFileName:string;
DefaultBorder:Boolean;
docCodePage:Cardinal=0;

function CreateExportFileA(AFilename,ATitle:PAnsiChar;ACodePage:Cardinal):LongInt;stdcall;
var
sn:string;
begin
  docCodePage:=ACodePage;
  if Assigned(xlsDoc) then
  begin
    xlsDoc.Free;
    xlsDoc:=nil;
  end;
  try
    xlsFileName:=dxAnsiStringToString(afilename);
    xlsDoc:=TdxSpreadSheet.Create(nil);
    xlsdoc.Visible:=false;
    ASheet:=xlsdoc.Sheets[0] as TdxSpreadSheetTableView;
    sn:=dxAnsiStringToString(atitle,ACodePage);
    if sn='' then
      sn:=extractfilename(xlsFilename);
    Asheet.Caption:=changefileext(sn,'');

    xlsdoc.DefaultCellStyle.Font.Name:='Tahoma';
    xlsdoc.DefaultCellStyle.Font.Size:=11;
    result:=LongInt(Pointer(xlsDoc));
  except
    result:=0;
  end;
end;
function CreateExportFile(AFilename,ATitle:PChar;ACodePage:Cardinal):LongInt;stdcall;
var
sn:string;
begin
  docCodePage:=ACodePage;
  if Assigned(xlsDoc) then
  begin
    xlsDoc.Free;
    xlsDoc:=nil;
  end;
  try
    xlsFileName:=strpas(afilename);
    xlsDoc:=TdxSpreadSheet.Create(nil);
    xlsdoc.Visible:=false;
    ASheet:=xlsdoc.Sheets[0] as TdxSpreadSheetTableView;
    sn:=strpas(atitle);
    if sn='' then
      sn:=extractfilename(xlsFilename);
    Asheet.Caption:=changefileext(sn,'');
//    xlsdoc.DefaultCellStyle.Font.Charset
    xlsdoc.DefaultCellStyle.Font.Name:='Tahoma';
    xlsdoc.DefaultCellStyle.Font.Size:=11;
    result:=LongInt(Pointer(xlsDoc));
  except
    result:=0;
  end;
end;
procedure BeginExport;stdcall;
begin
  ASheet.BeginUpdate;
end;
procedure EndExport;stdcall;
begin
      try
        try
          ASheet.EndUpdate;
          xlsDoc.savetofile(xlsfilename);
        except
          on e:exception do
            Application.MessageBox(pchar(e.Message),'错误',MB_OK + MB_ICONERROR);
        end;
      finally
        xlsDoc.Free;
        xlsDoc:=nil;
      end;
end;
procedure SetCellDefaultStyle(ACharset:Byte;fontName:PChar;fontSize:Integer;ABorder:Boolean);stdcall;
begin
    xlsdoc.DefaultCellStyle.Font.Charset:=ACharset;
    xlsdoc.DefaultCellStyle.Font.Name:=strpas(fontname);
    xlsdoc.DefaultCellStyle.Font.Size:=fontSize;
    DefaultBorder:=ABorder;
end;
procedure SetCellDefaultStyleA(ACharset:Byte;fontName:PAnsiChar;fontSize:Integer;ABorder:Boolean);stdcall;
begin
    xlsdoc.DefaultCellStyle.Font.Charset:=ACharset;
    xlsdoc.DefaultCellStyle.Font.Name:=dxAnsiStringToString(fontname,docCodePage);
    xlsdoc.DefaultCellStyle.Font.Size:=fontSize;
    DefaultBorder:=ABorder;
end;
Procedure CreateDataCells(AColCC,ARowCC:Integer;ABorder:Boolean);stdcall;
var
c,r:integer;
acell:TdxSpreadSheetCell;
begin
   for r := 0 to aRowCC-1 do
     for c := 0 to acolcc-1 do
     begin
       ACell:=ASheet.CreateCell(r,c);
        if aborder or DefaultBorder then
        with acell.Style do
        begin
          Borders[bLeft].Style:=sscbsThin;
          Borders[bRight].Style:=sscbsThin;
          Borders[bTop].Style:=sscbsThin;
          Borders[bBottom].Style:=sscbsThin;
          Borders[bLeft].Color:=clGray;
          Borders[bRight].Color:=clGray;
          Borders[bTop].Color:=clGray;
          Borders[bBottom].Color:=clGray;
          AlignHorz:=ssahLeft;
          AlignVert:=ssavCenter;
        end;

     end;
end;
procedure SetColumnWidth(const ACol, ARow: Integer;AWidth:Integer);stdcall;
begin
  with ASheet.CreateCell(arow,acol) do
  begin
    column.Size:=Awidth;
  end;
end;


procedure SetCellStyle(const ACol, ARow: Integer;ABorder:Boolean;AWidth,AHAlign,AVAlign:Integer;AWordWrap:Boolean);stdcall;
begin
  with ASheet.CreateCell(arow,acol) do
  begin
    column.Size:=Awidth;
    with style do
    begin
        if aborder then
        begin
          Borders[bLeft].Style:=sscbsThin;
          Borders[bRight].Style:=sscbsThin;
          Borders[bTop].Style:=sscbsThin;
          Borders[bBottom].Style:=sscbsThin;
        end;
        WordWrap:=AWordWrap;
        AlignHorz:=TdxSpreadSheetDataAlignHorz(AHAlign);
        AlignVert:=TdxSpreadSheetDataAlignVert(AVAlign);
    end;
  end;
end;

procedure SetCellDataBoolean(const ACol, ARow: Integer; const AValue: Boolean);stdcall;
begin
  with ASheet.CreateCell(arow,acol) do
  begin
    AsBoolean:=Avalue;
    if DefaultBorder then
    with Style do
    begin
      Borders[bLeft].Style:=sscbsThin;
      Borders[bRight].Style:=sscbsThin;
      Borders[bTop].Style:=sscbsThin;
      Borders[bBottom].Style:=sscbsThin;
      Borders[bLeft].Color:=clGray;
      Borders[bRight].Color:=clGray;
      Borders[bTop].Color:=clGray;
      Borders[bBottom].Color:=clGray;
    end;
  end;
end;
procedure SetCellDataCurrency(const ACol, ARow: Integer; const AValue: Currency);stdcall;
begin
  with ASheet.CreateCell(arow,acol) do
  begin
    AsCurrency:=Avalue;
    Style.AlignHorz:=ssahRight;
    if DefaultBorder then
    with Style do
    begin
      Borders[bLeft].Style:=sscbsThin;
      Borders[bRight].Style:=sscbsThin;
      Borders[bTop].Style:=sscbsThin;
      Borders[bBottom].Style:=sscbsThin;
      Borders[bLeft].Color:=clGray;
      Borders[bRight].Color:=clGray;
      Borders[bTop].Color:=clGray;
      Borders[bBottom].Color:=clGray;
    end;
  end;
end;
procedure SetCellDataDouble(const ACol, ARow: Integer; const AValue: Double);stdcall;
begin
  with ASheet.CreateCell(arow,acol) do
  begin
    AsFloat:=Avalue;
    Style.AlignHorz:=ssahRight;
    if DefaultBorder then
    with Style do
    begin
      Borders[bLeft].Style:=sscbsThin;
      Borders[bRight].Style:=sscbsThin;
      Borders[bTop].Style:=sscbsThin;
      Borders[bBottom].Style:=sscbsThin;
      Borders[bLeft].Color:=clGray;
      Borders[bRight].Color:=clGray;
      Borders[bTop].Color:=clGray;
      Borders[bBottom].Color:=clGray;
    end;
  end;
end;
procedure SetCellDataDateTime(const ACol, ARow: Integer; const AValue: TDateTime);stdcall;
begin
  with ASheet.CreateCell(arow,acol) do
  begin
    AsDateTime:=Avalue;
    if DefaultBorder then
    with Style do
    begin
      Borders[bLeft].Style:=sscbsThin;
      Borders[bRight].Style:=sscbsThin;
      Borders[bTop].Style:=sscbsThin;
      Borders[bBottom].Style:=sscbsThin;
      Borders[bLeft].Color:=clGray;
      Borders[bRight].Color:=clGray;
      Borders[bTop].Color:=clGray;
      Borders[bBottom].Color:=clGray;
    end;
  end;
end;
procedure SetCellDataInteger(const ACol, ARow: Integer; const AValue: Integer);stdcall;
begin
  with ASheet.CreateCell(arow,acol) do
  begin
    AsInteger:=Avalue;
    Style.AlignHorz:=ssahRight;

    if DefaultBorder then
    with Style do
    begin
      Borders[bLeft].Style:=sscbsThin;
      Borders[bRight].Style:=sscbsThin;
      Borders[bTop].Style:=sscbsThin;
      Borders[bBottom].Style:=sscbsThin;
      Borders[bLeft].Color:=clGray;
      Borders[bRight].Color:=clGray;
      Borders[bTop].Color:=clGray;
      Borders[bBottom].Color:=clGray;
    end;
  end;
end;
procedure SetCellDataStringA(const ACol, ARow: Integer; AText: PAnsiChar);stdcall;
var
s:string;
begin
  s:=dxAnsiStringToWideString(atext,docCodePage);
  //if strtointdef(s,0)>0 then
  //  s:=''''+s;
  with ASheet.CreateCell(arow,acol) do
  begin
    //settext(s,false);
    asString:=s;
    Style.AlignHorz:=ssahLeft;

    if DefaultBorder then
    with Style do
    begin
      Borders[bLeft].Style:=sscbsThin;
      Borders[bRight].Style:=sscbsThin;
      Borders[bTop].Style:=sscbsThin;
      Borders[bBottom].Style:=sscbsThin;
      Borders[bLeft].Color:=clGray;
      Borders[bRight].Color:=clGray;
      Borders[bTop].Color:=clGray;
      Borders[bBottom].Color:=clGray;
    end;
  end;
end;
procedure SetCellDataString(const ACol, ARow: Integer; AText: PChar);stdcall;
var
s:string;
begin
  s:=strpas(atext);
  //if strtointdef(s,0)>0 then
  //  s:=''''+s;
  with ASheet.CreateCell(arow,acol) do
  begin
    //settext(s,false);
    asString:=s;
    Style.AlignHorz:=ssahLeft;

    if DefaultBorder then
    with Style do
    begin
      Borders[bLeft].Style:=sscbsThin;
      Borders[bRight].Style:=sscbsThin;
      Borders[bTop].Style:=sscbsThin;
      Borders[bBottom].Style:=sscbsThin;
      Borders[bLeft].Color:=clGray;
      Borders[bRight].Color:=clGray;
      Borders[bTop].Color:=clGray;
      Borders[bBottom].Color:=clGray;
    end;
  end;
end;

procedure SetHeaderStringA(const ACol, ARow: Integer; AText: PAnsiChar);stdcall;
var
s:string;
begin
  s:=dxAnsiStringToWideString(atext,docCodePage);
  with ASheet.CreateCell(arow,acol) do
  begin
    asString:=s;//settext(s,false);
    Style.AlignHorz:=ssahCenter;

    if DefaultBorder then
    with Style do
    begin
      Borders[bLeft].Style:=sscbsThin;
      Borders[bRight].Style:=sscbsThin;
      Borders[bTop].Style:=sscbsThin;
      Borders[bBottom].Style:=sscbsThin;
      Borders[bLeft].Color:=clGray;
      Borders[bRight].Color:=clGray;
      Borders[bTop].Color:=clGray;
      Borders[bBottom].Color:=clGray;
    end;
  end;
end;
procedure SetHeaderString(const ACol, ARow: Integer; AText: PChar);stdcall;
begin
  with ASheet.CreateCell(arow,acol) do
  begin
    //settext(strpas(atext),false);
    asString:=strpas(atext);
    Style.AlignHorz:=ssahCenter;

    if DefaultBorder then
    with Style do
    begin
      Borders[bLeft].Style:=sscbsThin;
      Borders[bRight].Style:=sscbsThin;
      Borders[bTop].Style:=sscbsThin;
      Borders[bBottom].Style:=sscbsThin;
      Borders[bLeft].Color:=clGray;
      Borders[bRight].Color:=clGray;
      Borders[bTop].Color:=clGray;
      Borders[bBottom].Color:=clGray;
      font.Charset:=xlsdoc.DefaultCellStyle.Font.Charset;
      font.Name:=xlsdoc.DefaultCellStyle.Font.Name;
      font.Size:=xlsdoc.DefaultCellStyle.Font.Size;
    end;
  end;
end;

procedure SetCellMerged(const ACol, ARow: Integer; W, H: Integer);stdcall;
var
r:Trect;
begin
  r:=Asheet.MergedCells.CheckCell(arow,acol);
  r.Right:=r.left+W;
  r.Bottom:=h;
  Asheet.MergedCells.Add(r);
end;
procedure SetCellValue(const ACol, ARow: Integer; const AValue: Variant);stdcall;
begin
  with ASheet.CreateCell(arow,acol) do
  begin
    AsVariant:=Avalue;
    Style.AlignHorz:=ssahLeft;

    if DefaultBorder then
    with Style do
    begin
      Borders[bLeft].Style:=sscbsThin;
      Borders[bRight].Style:=sscbsThin;
      Borders[bTop].Style:=sscbsThin;
      Borders[bBottom].Style:=sscbsThin;
      Borders[bLeft].Color:=clGray;
      Borders[bRight].Color:=clGray;
      Borders[bTop].Color:=clGray;
      Borders[bBottom].Color:=clGray;
    end;
  end;
end;

procedure SetCellFormulaA(const ACol, ARow: Integer; const AValue: PAnsiChar);stdcall;
var
s:string;
begin
  s:=dxAnsiStringToWideString(AValue,docCodePage);
  with ASheet.CreateCell(arow,acol) do
  begin
    settext(s,true);
    Style.AlignHorz:=ssahRight;

    if DefaultBorder then
    with Style do
    begin
      Borders[bLeft].Style:=sscbsThin;
      Borders[bRight].Style:=sscbsThin;
      Borders[bTop].Style:=sscbsThin;
      Borders[bBottom].Style:=sscbsThin;
      Borders[bLeft].Color:=clGray;
      Borders[bRight].Color:=clGray;
      Borders[bTop].Color:=clGray;
      Borders[bBottom].Color:=clGray;
    end;
  end;
end;
procedure SetCellFormula(const ACol, ARow: Integer; const AValue: PChar);stdcall;
var
s:string;
begin
  s:=strpas(Avalue);
  with ASheet.CreateCell(arow,acol) do
  begin
    settext(s,true);
    Style.AlignHorz:=ssahRight;

    if DefaultBorder then
    with Style do
    begin
      Borders[bLeft].Style:=sscbsThin;
      Borders[bRight].Style:=sscbsThin;
      Borders[bTop].Style:=sscbsThin;
      Borders[bBottom].Style:=sscbsThin;
      Borders[bLeft].Color:=clGray;
      Borders[bRight].Color:=clGray;
      Borders[bTop].Color:=clGray;
      Borders[bBottom].Color:=clGray;
    end;
  end;
end;

exports
CreateExportFileA,CreateExportFile,EndExport,BeginExport,
SetCellDefaultStyle,SetCellDefaultStyleA,CreateDataCells,SetCellStyle,SetColumnWidth,SetCellMerged,
SetCellDataBoolean,SetCellDataCurrency,SetCellDataDouble,SetCellDataInteger,SetCellDataDatetime,
SetCellDataStringA,SetCellDataString,SetHeaderStringA,SetHeaderString,
SetCellValue,SetCellFormulaA,SetCellFormula;
begin

end.
 

bigwell918
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
dxSpreadSheet的报表demo-关于设计报表模板的Datagroup问题
GuoGuoABC
07-06 181
2-分组表，通过datagroup设定分组字段，可以多层分组。需要detailLevel的section，也一定要注意参数也是有层次的，这个搞错了，数据表格结果就不对了。1-主从表，通过MasterSection和DetailSection设定。问题：可是自己在实现数据分组时，一旦设定分组字段就出现了混乱的数据记录。看随机的报表DEMO，主从表也好，数据分组也好。页头 Header（headerSection）页脚Footer（FooterSection）看一下一个报表页面设计时需要理清的概念。
Delphi使用SpreadSheet
GuoGuoABC
11-19 2001
1、开发环境 以Delphi7为例，使用DevExpress套件中的ExpressSpreadSheet组件1.38版本进行开发设计。 2、控件安装 控件源码： DevExpress.ExpressSpreadSheet.v1.38.for.Delphi.BCB.Full.Source-SSG.rar 这个源码在CSDN上也有，请直接点击下面的超链接自行下载： DevExpress.ExpressSpreadSheet.v1.38.for.Delphi.BCB源代码-Delphi文档类资源-CS
delphi 导出EXCEL XLSX
zxf668的博客
12-28 783
/加后缀名，确保最后是EXCEL文件。dlgSave1.Filter:= 'Excel文件(*.xlsx)|*.xlsx';//断开与EXCEL的连接。//row1:=0;//初始化行，定位在第一 行。ShowMessage('导出完毕');ShowMessage('没有数据');//以下是导出完毕后的动作，//清除不必要的字符。
dxSpreadSheetDemo.rar
07-17
dxSpreadSheetDemo.rar、
dxSpreadSheet取数问题
05-31
dxSpreadSheet取数问题
dxSpreadSheetReportDesigner使用笔记
GuoGuoABC
07-06 458
1.新建主从表主表为tab1,从表为tab2,二表通过设置从表的mastersource及MasterFields与从表联动.并要设置 dxSpreadSheetReportDesigner1.FieldChooser.Show;5.设置DetailLevel0一定要用这句.否则设置的是DetailLevel1刚无法显示从表。在DataBinding中的datasource关联主从.通过该控件达到显示主从表,效果如下图所示.3.要想显示右边的数据集及字段.需要设置。在details中关联从表,如下图所示.
TDXSpreadSheet中自定义公式函数三大步骤
GuoGuoABC
11-19 2698
在报表系统中，特别是财务等报表系统中。需要对固定格式的报表中cell定义取数公式。 如新中大中： 公式 返回值 gs_dwmc(预算单位代码/名称简写,账套,年度) 预算单位名称 gs_mjkm(末级科目代码/名称简写,账套,年度) 末级科目名称　　 如果我们使用dxSpreadSheet时，如何定义自己的函数公式，以取得数据库等相关数据记录和计算结果呢？ 三大步： 1 resourcestring sTriang...
QT生成dll供其他程序调用-源码示例-qtwinmigrate
12-26
当QT程序中包含界面或者信号槽时，生成的dll不能直接被其他程序调用，因为QT 必须有调用 QApplication 的 exec 方法，这样才能产生消息循环，信号与槽才能连接起来，界面才可以不断被刷新，这样QT 的dll才可以运行，...
dll.rar_DLL制作_dll_制作DLL_生成dll
09-23
DLL（Dynamic Link Library）是Windows操作系统中的一个重要组件，它是一种共享库，包含了可被多个程序同时使用的函数和资源。DLL文件允许开发人员将代码和数据分离，使得代码重用更加高效，同时也减小了应用程序的...
ExpressSpreadSheet 2014 使用说明.pdf
07-19
ExpressSpreadSheet 2014 使用说明.pdf
dll.rar_Java 生成dll_Java程序转为c#调用时需要的dll包_jdk 生成 dll
09-15
标题“dll.rar_Java生成dll_Java程序转为c#调用时需要的dll包_jdk生成dll”揭示了这个过程的关键步骤，而描述中的“ikvm库”则是实现这一目标的关键工具。 首先，我们需要理解DLL是什么。DLL是Windows操作系统中的...
C# 编译生成dll文件供程序调用的两种方法
08-27
C# 编译生成 dll 文件供程序调用的两种方法 C# 编译生成 dll 文件供程序调用的两种方法是开发者在实际项目中常用的技术...通过这两种方法可以生成 dll 文件，并在其他程序中调用该文件，提高了开发效率和代码重用性。
DEV插件--Spreadsheet1电子表格
lhadmin的博客
01-08 2119
常用操作 Spreadsheet常用属性 标题栏是否可见 Spreadsheet1.TitleBar.Visible=true 标题栏背景颜色 Spreadsheet1.TitleBar.Interior.Color="Green" 标题栏标题内容 Spreadsheet1.TitleBar.Caption="test" 标题栏字体颜色 Spreadsheet1.TitleBa
Delphi控件DEV插件--Spreadsheet1电子表格使用说明
阳光有点冷
12-03 1914
常用操作 Spreadsheet常用属性 标题栏是否可见 Spreadsheet1.TitleBar.Visible=true 标题栏背景颜色 Spreadsheet1.TitleBar.Interior.Color="Green" 标题栏标题内容 Spreadsheet1.TitleBar.Caption="test" 标题栏字体颜色 Spreadsheet1.TitleBar.Font.Color="Red" 标题栏字体名称 Spreadsheet1.TitleBar.Font.Name="Vendan
dxSpreadSheet动态切换Sheet
weixin_30617737的博客
04-29 460
procedure TForm1.btnShowCaptionClick(Sender: TObject);var objWorksheet: TdxSpreadSheetTableView; i: integer; strList: TStringlist;begin strList := TStringlist.Create; strList.Add('当前工作簿包括以下工作表：')...
Devexpress Spreadsheet 中文教程（4）
隔壁王叔叔
01-21 8612
条件格式 格式化单元格是高于还是低于平均值 ConditionalFormattingCollection conditionalFormattings = worksheet.ConditionalFormattings; // Create the rule highlighting values that are above the average in cells C2 through
《传感器及应用》课程试题(A卷).doc
最新发布
07-16
传感器
DLL制作介绍
11-20
DLL制作介绍 静态库lib 动态库dll 静态加载 动态加载 mfc动态库 mfc扩展动态库

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值