Ver Mensaje Individual
  #3  
Antiguo 24-11-2004
Avatar de sitrico
[sitrico] sitrico is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Caracas, Venezuela
Posts: 295
Reputación: 22
sitrico Va por buen camino
Bueno Gracias (aunque la parte del interface escapa de mis posibilidades actuales ) creo que has dado en el clavo.

Por suerte, el trabajo de crear los html lo realizo dentro de un objeto:

Código Delphi [-]
Type
TGenHTML = class(TObject)
  Private
  Public
    Procedure   FiltrarTextos(db:TDataSet;Encabezados:Integer;Codigo: String;IdLibro:Integer);
    Function    GetURL(db:TDataSet;Encabezados:Integer;Codigo,Destino:String;IdLibro:Integer): String;
    Function    GetText(db:TDataSet;Codigo:String): String;
    Procedure   ResaltarBusqueda(f,ElTextoBuscado: String);
    Procedure   ComprimirHtml(db:TDataSet;Origen:String);
   End;

Ahora se me ocurre que puedo cambiar el objeto padre de TObject a TMemoryStream (que cuenta con los Métodos LoadFromStream y LoadFromFile (y los save...) entonces lo unico que tendría que hacer es modificar las rutinas para que en lugar de terminar creando un archivo temporal cargen el stream en el propio objeto derivado de TMemoryStream y no tendría que usar una función para obtener el resultado sino que mi objeto TGenHTML seria un "TStreamGenHTML"

Voy a probar a ver que sale. Gracias nuevamente.
__________________
Sitrico
Responder Con Cita