Ver Mensaje Individual
  #2  
Antiguo 17-12-2016
Avatar de jhonny
jhonny jhonny is offline
Jhonny Suárez
 
Registrado: may 2003
Ubicación: Colombia
Posts: 7.058
Reputación: 29
jhonny Va camino a la famajhonny Va camino a la fama
Se me ocurre que en el server crees un método publico que devuelva el archivo, algo así:

Código Delphi [-]
uses System.NetEncoding;
//...
//...
//...

function TServerMethods.GetFileBase64: String;
var
  vStream: TStream;
  vStringStream: TStringStream;
  vBase64: TBase64Encoding;
begin
  vStream := TStream.Create;
  vStringStream := TStringStream.Create;
  try
    vStream := GetPDF; //Esto devuelve un TStream del PDF...

    vBase64 := TBase64Encoding.Create;
    vBase64.Encode(vStream, vStringStream);

    Result := vStringStream.DataString;
  finally
    vStream.Free;
    vStringStream.Free;
    vBase64.Free;
  end;
end;

Código Delphi [-]
function TServerMethods.GetPDF: TStream;
var
  vMemStream: TMemoryStream;
begin
  vMemStream := TMemoryStream.Create;
  vMemStream.LoadFromFile('C:\RutaPDF.pdf');
    
  Result := vMemStream;
end;

Esto devuelve un string de un PDF codificado en base64, lo decodificas con la función Decode de la clase TBase64Encoding y lo tratas como lo necesitas.
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!"

http://www.purodelphi.com/
http://www.nosolodelphi.com/
Responder Con Cita