Ver Mensaje Individual
  #2  
Antiguo 05-08-2005
Avatar de apicito
apicito apicito is offline
Miembro
 
Registrado: may 2003
Ubicación: Ourense
Posts: 341
Reputación: 22
apicito Va por buen camino
Por si alguien consulta este hilo voy a exponer como solucioné el tema:
Hice un cgi (ahora quiero cambiarloa un apache share module) que hace la consulta a la base de datos y a través de streams trapaso el valor del campo a un objeto TRichview para que formatee el texto y, desde este, con el metodo para exportar a htmlstream lo devuelvo a la web.
A pesar de que TRichview en principio no está hecho para funcionar en web esto funcionó. Pongo un código de ejemplo:
Código:
procedure TWebModule1.WebModule1WebActionItem3Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var f : TStream;
    s : TMemoryStream;
    Rve: TRichView;
    Rvs : TRVStyle;
begin
  Rvs:=TRVStyle.Create(self);
  Rve:=TRichView.Create(self);
  Rve.Visible:=False;
  Rve.Style:=Rvs;
  with Query do
    begin
      Sql.Clear;
      Sql.Add('Select MOD_TEXTO from MOD where MOD_CODIGO=1007');
      try
        Open;
      except
        Response.Content:='<h1> tabla</h1><p><p>No se encuentran datos</p>';
        Exit;
      end;
    end;
  f:=TMemoryStream.Create;
  f := Query.CreateBlobStream(Query.FieldByName('MOD_TEXTO'), bmRead);
  rve.LoadRVFFromStream(f);
  f.Free;
  s:=TMemoryStream.Create;
  rve.SaveHTMLToStream(s,'','','',[]);
  s.Position:=0;
  Response.ContentStream:=s;
end;
y en el php
Código:
include("http://localhost/cgi-bin/p1/texto");
donde p1 es el cgi y texto el nombre de la acción (pathinfo).
Espero que le sirva a alguien.
Responder Con Cita