提个IntraWeb 中转出EXCEL的问题 现在已在服务器上生成文件,客户端上如何得到这个EXCEL文件(200分)(200分)

  • 主题发起人 主题发起人 austinjian
  • 开始时间 开始时间
A

austinjian

Unregistered / Unconfirmed
GUEST, unregistred user!
function TFormcg.DataSetToExcel(DS: TDataSet; MSExcel: OleVariant; eRange: OleVariant):Boolean;
var Count,I,Row: integer;
RangeName:string;
begin
with DS do
begin
if not Active then
begin
Result:=False;
WebApplication.ShowMessage('数据库没有打开');
Result:=False;
end;
end;
ds.first;
Result := True;
try
MyExcel:= CreateOleObject('Excel.Application');
except
WebApplication.ShowMessage('本机没有EXCEL,请安装 !');
Result:=False;
end;

MyExcel.Visible:= False;
MyExcel.WorkBooks.Add;
MyExcel.ScreenUpdating := False;
Count := DS.FieldCount-1;

eRange := MyExcel.Range['A1', 'A1']; //Excel文件的第一行
with DS do begin
for I := 0 to Count do begin
eRange.Value := Fields.DisplayLabel; //将字段头写入excel文件的第一行
eRange := eRange.Next; //Excel文件的下一列
end;
DisableControls;
First;
Row := 1;
while not eof do begin
Inc(Row); //row:=row+1; Excel文件的下一行
RangeName := 'A'+IntToStr(Row);
eRange := MyExcel.Range[RangeName, RangeName];
for I := 0 to Count do begin
eRange.Value := ''''+Fields.AsString;
eRange := eRange.Next;
end;
Next;
end;
EnableControls;
end;
MyExcel.ScreenUpdating := True;
MyExcel.Visible := True;
Result := True;
MyExcel.Quit;

end;
 
难道这个问题这么难.还是现在没人用intraweb了.
分不够可以再加,RMB也行很急!
 
输出到每天个用户的空间里,让用户下载,网上有这样的文章,我前一段有看到
 
既然已在服务器上生成了文件,那不是很好处理吗?客户端可以用Ftp、Http等方式下载或者干脆在服务端发邮件给客户都可以。
 
嘿嘿 搞好了.方法很笨但是OK了.
是实时下载,查询出来的数据马上下载下来.
顶着有分
 
多人接受答案了。
 
我也想做这样一个东西,请问怎么实时下载呢?谢谢!
 

Similar threads

后退
顶部