Tengo una aplicación Cliente-Servidor realizada con DataSnap, a la cual quiero agregarle la opción de que el Programa Server, el que se ejecuta remotamente, grabe un fichero PDF en el servidor remoto.
pra la producción de los reportes en el lado Cliente uso la libreria FastReport, y como ella me permite exportar un fichero PDF, haciendo las pruebas he desarrollado el siguiente código:
En el Lado Cliente: Procedimiento que imprime el reporte y los envia al Servidor
Código Delphi
[-]
procedure TfrmExpediente.btnImpClick(Sender: TObject);
var
Path, Doc: string;
MStream : TMemoryStream;
Arr: TBytes; //Array of Byte;
begin
Path := 'C:\Aplicaciones\Kronos\Reportes\';
with DM do begin
PresentaExpedientes(edOficina.Text, edExpediente.Text);
PresentaNotas(edOficina.Text, edExpediente.Text);
PresentaPasajeros(edOficina.Text, edExpediente.Text);
PresentaServicios(edOficina.Text, edExpediente.Text, '');
frxReport.LoadFromFile(Path + 'LstExpedientes.fr3');
frxReport.PrepareReport();
frxReport.ShowReport; // Se imprime el reporte localmente
// Preparación para la exportación del reporte a PDF
MStream := TMemoryStream.Create;
try
frxReport.SaveToStream(MStream);
MStream.Position := 0;
// Puesto que el Stream no es serializable lo convertimos a Array de bytes
// y luego a un string para pasarlo como parámetro
SetLength(Arr, MStream.Size);
MStream.Read(Arr[0], MStream.Size);
Doc := IdGlobal.BytesToString(Arr, nil);
// Llamo a la Función del Servidor a través del DataSnap client class
with TSMDataDocClient.Create(DM.SQLConnectionDOC.DBXConnection) do begin
try
if not GrabaDocPdf(IntToStr(DM.IDEmpresa),edOficina.Text,edExpediente.Text,1,Doc)
then showmessage('No grabado PDF')
else showmessage('Correcto');
finally
Free;
end;
end;
finally
FreeAndNil(MStream);
end;
end;
end;
En el lado Servidor: Funcion que recibe lo enviado por el cliente y exporta el PDF
Código Delphi
[-]
function TSMDataDoc.GrabaDocPdf(Cia, Suc, Exp: string; TipoDoc: Integer; Rpt: string): Boolean;
var
PathDOC, FullPath: string;
frxReport: TfrxReport;
frxPDFExport: TfrxPDFExport;
Pdf: TMemoryStream;
begin
Result := False;
// Se crean los componentes frx
frxReport := TfrxReport.Create(Self);
frxPDFExport := TfrxPDFExport.Create(Self) ;
try
// Convertir el string Rpt a un TMemoryStream
Pdf := TMemoryStream.Create;
IdGlobal.WriteStringToStream(Pdf, Rpt, -1);
try
Pdf.Position := 0;
frxReport.LoadFromStream(Pdf);
frxPDFExport.FileName:= Suc+'-'+Exp+'.pdf';
frxPDFExport.ShowDialog := False;
frxPDFExport.ShowProgress := False;
frxPDFExport.OpenAfterExport := False;
finally
Pdf.Free;
end;
// Se define la carpeta destino en el Servidor
FullPath := 'C:\CataDoc\'+ Trim(Cia)+'\'+Trim(Suc)+'\'+ Trim(Exp)+'\';
if Copy(VerificaPath(FullPath),1,5) <> 'ERROR' then begin
frxPDFExport.DefaultPath := FullPath;
Result := frxReport.Export(frxPDFExport); // as frxExportPDF);
end;
finally
frxReport.Free;
frxPDFExport.Free;
end;
end;
// Funcion que verifica si existe la carpeta destino
function TSMDataDoc.VerificaPath(PathDoc: string): string;
var
n: integer;
begin
while Length(PathDoc) > 0 do begin
n := Pos('\',PathDoc);
if n > 0 then begin
Result := Result+Copy(PathDoc,1,n);
if not DirectoryExists(Result) then begin
if not CreateDir(Result) then begin
Result := 'ERROR '+Result;
Exit;
end;
end;
PathDoc := Copy(PathDoc,n+1,Length(PathDoc)-n);
end;
end;
end;
El problema que se me presenta es el siguiente:
El Servidor recibe el String correctamente, he comprobado que el tamaño del string enviado por el cliente es el mismo que se recibe en el Servidor, sin embargo se graba el PDF vacío, sin contenido.
Por favor alguien me puede indicar como debo realizar esta operación.
Muchas gracias.