14 respuestas en este tema

[razadi]

Saludos amigos, eme aquí con un problema, necesito hacer un CGI que al pasarle un valor como parametro este CGI me imprima un reporte en formato PDF y lo muestre en una pagina web., esto por que el CGI será invocado por un sistema hecho en php y nomas llamará al CGI y recibira como respuesta el pdf.

Estoy usando DELPHI 2007 y QuickReports 4

Alguna idea, una sugerencia???

HELP

[enecumene]

A ver amigo, ¿qué quieres invocar desde PHP?, un reporte hecho en Delphi + Quick y/o un reporte PDF desde BD???.

Saludos.

[razadi]

A ver amigo, ¿qué quieres invocar desde PHP?, un reporte hecho en Delphi + Quick y/o un reporte PDF desde BD???.

Saludos.

SI amigo, mira, yo tengo un sistema que genera un reporte y bueno ya lo puedo pasar a PDF, esto esta en delphi con quickreports, ahora mi cliente me solicita ver cierta información en web, bueno ya desarrolle un módulo que muestra la info requerida, pero ahora el cliente me solicito el mismo reporte, y este es por ID de la info que muestro, pero como ya lo tengo, lo único que quiero es pasar este reporte a un CGI para asi poder llamarlo desde la aplicaicon web (hecha en php).

si me explique?

y pos no sé ni por donde empezar, alguna idea?

[poliburro]

Hola amigo, te comento que yo tengo algo parecido. Hice un CGI en delphi que corre con apache, es cgi devuelve al navegador una imagen JPG que se visualiza en el navegador.

Quiero imaginar que en tu caso es muy parecido, necesitas un cgi  que envie el archivo pdf al navegador para su visualización. De ser así el criterio debe ser el mismo que el vio de la imagen desde mi cgi

[razadi]

Hola amigo, te comento que yo tengo algo parecido. Hice un CGI en delphi que corre con apache, es cgi devuelve al navegador una imagen JPG que se visualiza en el navegador.

Quiero imaginar que en tu caso es muy parecido, necesitas un cgi  que envie el archivo pdf al navegador para su visualización. De ser así el criterio debe ser el mismo que el vio de la imagen desde mi cgi

Que tal amigo, andale, es algo similar, obviamente cuando llamas al CGI le pasas un valor como parametro para que este internamente procese la info y regrese el pdf al navegador con la información adecuada...

[poliburro]

Te parece bien si te envio el código de php y del programa? o solo quieres el del CGI?

[razadi]

Te parece bien si te envio el código de php y del programa? o solo quieres el del CGI?

Gracias amigo pues si no tienes inconveniente, de ambos, para revisarlo. graicas

[poliburro]

Listo amigo enviado a tu correo de efectisoft

[razadi]

Excelente amigo, deja lo reviso y cualquier detalle si no lo entiendo te pregunto, un saludo.

[poliburro]

Excelente amigo, deja lo reviso y cualquier detalle si no lo entiendo te pregunto, un saludo.

pero por supuesto amigo. en todo lo que pueda ayudarte.

[razadi]

Poli, fijate que dandome una idea con lo que me mandaste ya pude hacer lagunas cosas, pero al momento de crear el reporte me manda este error "Error There is no default printer currently selected", esto ya corriendo como CGI, por que unso la misma unidad para correrlo directametne con un sistema que adicione y ahi no me marca ningun error...

Que estare omitiendo? o por que me sale ese error en el navegaro web?

[poliburro]

Que estare omitiendo? o por que me sale ese error en el navegaro web?

Seguramente se debe a que el cgi está corriendo fuera del contexto de usuario, vas a tener que incluir lo siguiente:

delphi

function NTLogon(User: string; Password: string; Dominio: String; Token: cardinal): String;
begin
 Result := '';
 try
  if LogonUser(PChar(User), Pchar(Dominio), PChar(Password), LOGON32_LOGON_INTERACTIVE, LOGON32_PROVIDER_DEFAULT, Token) then
   if ImpersonateLoggedOnUser(token) then
    Result := 'Nada';
 except
   on E: Exception do
     Result := E.Message;
  end;
end;
 
 
function NTLogoff(Token: cardinal): String;
begin
  Result := 'Nada';
 try
  CloseHandle(Token);
 except
   on E: Exception do
     result := E.Message;
  end;
end;
 
 
function Tworkflow.GetFlujograma(PsIdInstWrf: AnsiString): TFlujograma;
  Var
    LsMensaje      : String;      // Mensaje de esatus
    Token          : integer;
begin
  Result := TFlujograma.Create;
  Result.Estatus := 'Nada';
  Try
    if NTLogon('usuario','password','dominio',Token) = 'Nada' then begin
    Result.Flujo := DameFlujograma(LsMensaje);
    Result.Estatus := LsMensaje;
end;
NTLogoff(Token);
  Except
    On Error: Exception Do
      Begin
        Result.Estatus := Error.Message;
      End;
  End;
end;

[razadi]

Excelente amigo, con eso ya no me marca error, pero fijate que se me ocurrio manejarlo con TMemoryStream para poderlo visualizar y ya no marca error sólo que el TMemoryStream me regresa vacio y no se muestra nada, te comento como lo tengo.

delphi

{Esta es la funcion que utilizo para crear el reporte}
function VistaPreviaStream(sValId: string; var msMemS: TMemoryStream; var sVal: string): Boolean;
var
  PDFfiltro: TQRPDFDocumentFilter;
  sCFDFilePDF: string;
begin
  Result := True;
 
  sCFDFilePDF := sRutaExe+'REP_'+sValId+'.pdf';
  {}
  qrReporte := TqrReporte.Create(nil);
  with qrReporte do
    try
      ReportTitle := 'Reporte '+sValId;
      try
        PDFfiltro := TQRPDFDocumentFilter.Create(sCFDFilePDF);
        if qrReporte <> nil then begin
          qrReporte.ExportToFilter(PDFfiltro);
          msMemS := TMemoryStream(PDFfiltro.Stream);
        end;
      except
        Result := False;
      end;
    finally
      Free;
    end;
end;

Y asi es como lo estoy tratando de mostrar....

delphi

...
  msStreamMem := TMemoryStream.Create;
  msStreamMem.Clear;
 
  if NTLogon(sNTUsu,sNTPas,sNTDom,Token) = 'Nada' then begin
    VistaPreviaStream(sID,msStreamMem,sMsg);
  end;
  NTLogoff(Token);
 
  if msStreamMem.Size = 0 then
    raise(Exception.Create('No se puede mostrar'));
 
  Response.ContentType := 'application/pdf';
  Response.ContentStream := msStreamMem;

de esto amigo, cabe mencionar que si me crea el reporte bien en la ruta que le doy, pero y ano lo puede mostrar.

[poliburro]

Y no te convendría más hacer el cgi como Webservice amigo? de esa manera devuelves el stream a php contenido en la respuesta XML y php la lee usando SOAP. Así es como lo hago en el ejemplo que te envié amigo. U otra cosa, puedes devolver la respuesta usando uuencode que es el estándar usado en los adjuntos de correo, php lo recibe lo transforma y devuelve al navegador el pdf ya formado.

aqui más info http://www.livingint..._att_encode.htm

[razadi]

SI amigo, eso es lo que voy a hacer, por que tambien me interesa meterme en los webservices  como tales, pero fijate que revisando lo que hice, me encontre con dos detalles, el reporte que ya tengo, por alguna razon no lo puedo exportar a PDF desde el CGI, si mando llamara ese mismo procedure desde un sistema standalo furula de maravillas, caso para la araña...

Luego creo un reporte sencillo nuevo y ese si lo puedo exportar, pero ya no lo puedo cargar al TMemoryStram como lo estaba haciendo, tengo que invocar lo siguiente:

esto no me funciona::::

delphi

       sCFDFilePDF := sRutaExe+'REP_'+sValId+'.pdf'
        PDFfiltro := TQRPDFDocumentFilter.Create(sCFDFilePDF);
        qrReporte.ExportToFilter(PDFfiltro);
        msMemS := TMemoryStream(PDFfiltro.Stream);

Esto si me sirve y funcion OK:

delphi

       sCFDFilePDF := sRutaExe+'REP_'+sValId+'.pdf'
        PDFfiltro := TQRPDFDocumentFilter.Create(sCFDFilePDF);
        qrReporte.ExportToFilter(PDFfiltro);
        msMemS.LoadFromFile(sCFDFilePDF);

No se que sera, voy a intentar con lo que ma pasaste y te comento, nuevamente gracias y saludos, sigo en que si algo se me atora te comento...

Pstta:
Me refiero que si me atoro con el código...

Aclaro por aquellos que mal interpretan las cosas, jejeje saludos amigos...