Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Servers
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #6  
Antiguo 23-09-2007
pcicom pcicom is offline
Miembro
 
Registrado: may 2003
Ubicación: MONTERREY MEXICO
Posts: 253
Poder: 24
pcicom Va por buen camino
OTRA FORMA es que CREES el XLS al vuelo como un archivo tipo HTML con extencin de EXCEL .xls, y despues lo abres..


Código PHP:
procedure SendToExcelFromHTML(aDataSetTDataSet); 
var
  
xFile:TextFile;
  
cFile:String
  
IRowInteger
begin 
  cFile 
:= 'reporte.xls';
  
AssignFile(xFile,cFile);
  
writeln(xFile,'<table border=1>');
  
writeln(xFile,'<th>');
  
  for 
:= 0 to aDataSet.Fields.Count do 
    
writeln(xFile,'<td>' aDataSet.Fields[i].DisplayLabel '</td>'); 

  
writeln(xFile,'</th>');
 
  try 
      
aDataSet.First
      while 
not aDataSet.EOF do 
      
begin
        Application
.processmessagess;
        
writeln(xFile,'<tr>');

        for 
:= 0 to aDataSet.Fields.Count do 
           
writeln(xFile,'<td>' aDataSet.Fields[i].AsString '</td>'); 
        
aDataSet.Next
        
writeln(xFile,'</tr>');
        
Inc(Row); 
      
end
  
finally 

  end


  
writeln(xFile,'</table>');
  
closeFile(xFile);
 
  
ShellExecute(Form1.Handle,nil,PChar(cFile),'','',SW_SHOWNORMAL);   
  
end

La cuestión es que al implementarlo demora mucho para mostrar el resultado, esto cuando el dataset es grande[/quote]

<table>
__________________
Poco ha de saber el que no pregunta.. Yo por eso soy un pregunton

Última edición por pcicom fecha: 23-09-2007 a las 15:22:22.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Alguien puede recomedar algun componente VCL para código de Barras ??? QuarkBcn Impresión 5 29-04-2007 14:07:55
Donde encuentro el codigo de CAERQUES dtomeysoto Conexión con bases de datos 6 19-05-2006 22:28:58
Ehm, alguien me puede facilitar éste código? gatsu PHP 3 09-07-2004 13:35:01
donde encuentro manuales de Kylix con codigo gaoss Lazarus, FreePascal, Kylix, etc. 0 25-03-2004 20:25:30
alguien sabe donde encuentro quickreport en delphi 7 pzala Impresión 2 30-11-2003 19:22:40


La franja horaria es GMT +2. Ahora son las 06:19:58.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi