Ver Mensaje Individual
  #3  
Antiguo 07-06-2006
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.285
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Por pasos:

(1) Crea un hoja de Excel; Supongamos test.xls
(2) Crea un archivo .rc; Datos.rc
(3) Escribe dentro:
EXCEL RCDATA .\test.xls
(4) Compilalo desde la línea de comandos con:
brcc32 datos.Rc
(5) Debe generar un fichero .RES llamado Datos.res con un tamaño casi igual al fichero test.xls
(6) En el fichero DPK de tu proyecto, donde está el código:
Código Delphi [-]
  {$R *.res}
Añade:
Código Delphi [-]
  {$R Datos.res}

(7) Pon un botón y en el evento OnClik escribe:
Código Delphi [-]
var
  // Steam para recuperar el recurso
  RS : TResourceStream;
begin
  // Crear a partir del recurso
  RS := TResourceStream.Create( 0, 'EXCEL', RT_RCDATA);
  try
    // Grabar en un fichero
    RS.SaveToFile('c:\temp\Salida.xls');
  finally
    // Liberar
    RS.Free;
  end;

(8) Al ejecutarlo y pulsar el botón se te habrá creado el fichero de excel en el directorio especificado.

Creo que no me dejo nada; Pruébalo y ya dirás...
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita