20 respuestas en este tema

[egostar]

Hola amigos
 
Resulta que estoy creando un servicio Web y necesito almacenar un archivo que me enviarán en Base64, éste procedimiento funciona perfectamente en una aplicación de escritorio, pero al intentar ejecutarlo en la implementación del método del servicio web me genera el siguiente error.
  
 

       <faultstring>Access violation at address 0042060F in module 'Preval.exe'. Read of address 00000004</faultstring>

 
 
El código utilizado es el siguiente:
 
  

delphi

procedure Base64ToFile(FileStr, FName: String);
var
  Stream: TMemoryStream;
  Cadena : TStringStream;
begin
  Stream:= TMemoryStream.Create;
  Cadena := TStringStream.Create(FileStr);
//  Cadena.Seek(0,0);
//  Stream.CopyFrom( Cadena, Cadena.Size );
//  Stream.LoadFromStream(Cadena);
  MimeDecodeStream(Cadena,Stream); //En esta línea se genera el error....
  Stream.Seek(0,0);
  Stream.SaveToFile(Rutasafe + '\Almacen\' + FName);
  Stream.Free;
  Cadena.Free;
end;

 
Las líneas comentadas son las que he intentado utilizar y en todas me genera el mismo access violation.
 
Ojalá y alguien pudiera ayudarme.
 
Saludos

[Agustin Ortu]

Una busqueda rapida en google me dice que MimeDecodeStream es de la biblitoeca JEDI. Yo optaria por la alternativa de usar las funciones de la RTL del propio Delphi, que yo sepa hay dos unidades nativas que proveen esta funcionalidad: Soap.EncdDecd y System.NetEncoding

 

Aca hay ejemplos: 

 

https://flixengineer...om/archives/270

https://stackoverflo...encddec-library

 

Documentacion: System.NetEncoding.TBase64Encoding. Soap.EncdDecd queda obsoleta y se recomienda el uso de System.NetEncoding

 

Otra opcion podria ser usar Indy

[seoane]

O puedes usar esta libreria https://github.com/dxeoane/secrypt(si se me permite el autopromo )

 

La otra opcion que tienes es no usar un TMemoryStream y usar directamente un TFileStream. No creo que notes mucha diferencia de rendimiento y ahorraras muchos problemas con la memoria si el fichero es muy grande.

 

Saludos

[egostar]

Una busqueda rapida en google me dice que MimeDecodeStream [/size]
es de la biblitoeca JEDI. Yo optaria por la alternativa de usar las funciones de la RTL del propio Delphi, que yo sepa hay dos unidades nativas que proveen esta funcionalidad: Soap.EncdDecd y System.NetEncoding
 
Aca hay ejemplos: 
 
https://flixengineer...om/archives/270
https://stackoverflo...encddec-library
 
Documentacion: System.NetEncoding.TBase64Encoding. Soap.EncdDecd queda obsoleta y se recomienda el uso de System.NetEncoding
 
Otra opcion podria ser usar Indy

 
Muchas gracias Agustín, voy a hacer pruebas con el soap que me parece será una de las mejores alternativas ya que precisamente estoy usando SOAP server.

 

De Indy no se me había ocurrido, dehecho no lo sabía.

 

Aunque me parece extraño que funcione sin problema en aplicaciones normales, bueno no estoy usandolo en una aplicación normal .
 
Saludos y gracias

[egostar]

O puedes usar esta libreria https://github.com/dxeoane/secrypt(si se me permite el autopromo )

Ya la pruebo, estoy seguro que funciona de maravilla
 

La otra opcion que tienes es no usar un TMemoryStream y usar directamente un TFileStream. No creo que notes mucha diferencia de rendimiento y ahorraras muchos problemas con la memoria si el fichero es muy grande.
 
Saludos

 
No había pensado en esa opción, la probaré.
 
Saludos y gracias.

[egostar]

Hola amigos

 

Pues ya hice todas las pruebas que me sugirieron, y no es posible hacer que trabajen los TStreams en un servicio web, sigue generando errores de violación de acceso.

 

Utilicé el siguiente código:

delphi

procedure TPreval.Base64ToFile(Content, nomArch: String);
var
  StrList: TStrings;
  Cadena: string;
begin
  Cadena := DecodeString(Content);
  StrList := TStringList.Create;
  StrList.Text := Cadena;
  StrList.SaveToFile(Ruta + nomArch);
  StrList.Free;
end;

Sin embargo (no todo es miel sobre ojuelas ) no está decodificando el string de base64 a texto, genera el archivo vacío, pero en una aplicación normal funciona sin problema, genera el archivo con el dato decodificado correctamente.

 

Lo que estoy enviando es lo siguiente:

 

Contenido = 'NDc2NiA4NDA3IDAwNTAgNzc5NiA='

 

Y el valor decodificado es '4766 8407 0050 7796'

 

Yo sigo buscando la razón de éste comportamiento atípico .

 

Saludos 

[Agustin Ortu]

Quien gestiona la memoria en tu servicio web? El server? El cliente? Creo que dependiendo del framework y los parametros cuando instancias la clase proxy (el querido boolean InstanceOwner) es el que determina si las instancias se liberan automaticamente o no

 

No es posible tener una traza completa de la llamada de todos los metodos (Call Stack)

 

A que queres acceder exactamente cuando rompe en la excepcion?

[egostar]

Quien gestiona la memoria en tu servicio web? El server? El cliente? Creo que dependiendo del framework y los parametros cuando instancias la clase proxy (el querido boolean InstanceOwner) es el que determina si las instancias se liberan automaticamente o no

 

No es posible tener una traza completa de la llamada de todos los metodos (Call Stack)

 

A que queres acceder exactamente cuando rompe en la excepcion?

 

El Servicio Web es un CGI que solo recibe una cadena en base 64 la cual se decodificará y se guardará como contenido de un archivo de texto.

 

Voy a crear el debugger del Servicio web para saber exactamente donde está el error.

 

Saludos

[Marc]

Hola amigo,

 

Prueba simplificandolo un poco más, con este código no necesitas crear ni usar ningún objeto :

php

uses Soap.EncdDecd, IOUtils;
 
procedure TPreval.Base64ToFile(Content, nomArch: String);
begin
  TFile.WriteAllText(DecodeString(Content), nomArch);
end;

A mi me funciona bien en servicio Datasnap REST corriendo como módulo ISAPI, no se me ocurre donde puedes tener el problema. Asegúrate que la cuenta del sistema bajo la que corre el servicio/servidor web tiene permisos de escritura en la carpeta donde se guardan los resultados (aunque si ya te genera un archivo vacío, ése no debería ser el problema. Pero tampoco pierdes demasiado tiempo probar un momento con otra carpeta).

[egostar]

Hola,

 

Prueba simplificandolo un poco más, con este código no necesitas crear ni usar ningún objeto :

php

uses Soap.EncdDecd, IOUtils;
 
procedure TPreval.Base64ToFile(Content, nomArch: String);
begin
  TFile.WriteAllText(DecodeString(Content), nomArch);
end;

A mi me funciona bien en servicio Datasnap REST corriendo como módulo ISAPI, no se me ocurre donde puedes tener el problema. Asegúrate que la cuenta del sistema bajo la que corre el servicio/servidor web tiene permisos de escritura en la carpeta donde se guardan los resultados (aunque si ya te genera un archivo vacío, ése no debería ser el problema. Pero tampoco pierdes demasiado tiempo probar un momento con otra carpeta).

 

 

Al rato que llegue a la oficina hago la prueba.

 

Y si, mi primer revisión fué a permisos, pero si crea el directorio si no existe y genera  el archivo aunque vacío, 

 

Saludos amigo Marc.

[Marc]

A ver si hay suerte

 

Por cierto, si sigue sin funcionar, haz esta simple prueba :

delphi

procedure TPreval.Base64ToFile(Content, nomArch: String);
begin
  TFile.WriteAllText('Comprobamos la escritura de archivos', nomArch);
end;

De esta forma podrás saber si el problema está en la decodificación del base64, o en la escritura del resultado. Si te genera bien el archivo, entonces el problema está en la decodificación base64, en caso contrario el problema es la escritura del archivo.

 

Una vez tengamos más delimitado el problema podremos atacarlo mejor.

 

Saludos amigo.

[egostar]

A ver si hay suerte

 

Por cierto, si sigue sin funcionar, haz esta simple prueba :

delphi

procedure TPreval.Base64ToFile(Content, nomArch: String);
begin
  TFile.WriteAllText('Comprobamos la escritura de archivos', nomArch);
end;

De esta forma podrás saber si el problema está en la decodificación del base64, o en la escritura del resultado. Si te genera bien el archivo, entonces el problema está en la decodificación base64, en caso contrario el problema es la escritura del archivo.

 

Una vez tengamos más delimitado el problema podremos atacarlo mejor.

 

Saludos amigo.

 

Gracias amigo,

 

Pues ya hice la prueba con las dos probabilidades que mencionas (aunque tuve que hacerlo con Delphi XE7 porque la unidad IOUtils no existe en Delphi 2007 )

 

Resultado: No se crea el archivo

 

Sigo investigando

 

Saludos

[Agustin Ortu]

Yo creo que la unica forma de encontrarlo entonces es ir guardando un registro de cada paso. Captura y logea todas las excepciones. Tambien es posible que alguna llamada a la API de Windows para crear archivo eleve un error, de esos que solamente se ven las excepciones si invocas a RaiseLastOSError

[egostar]

Yo creo que la unica forma de encontrarlo entonces es ir guardando un registro de cada paso. Captura y logea todas las excepciones. Tambien es posible que alguna llamada a la API de Windows para crear archivo eleve un error, de esos que solamente se ven las excepciones si invocas a RaiseLastOSError

 

 

Ese es el problema, que le he puesto try's por todos lados y no regresa error

 

No quería pero debo hacer una aplicación de depuración del servicio. 

 

Saludos

[Gaston]

delphi

TFile.WriteAllText(DecodeString(Content), nomArch);

Me parece que estas pasando los parámetros en orden inverso, es decir, primero deberías pasar el nombre del archivo y luego el contenido, al menos según la docwiki de Embarcadero http://docwiki.embar...le.WriteAllText

delphi

class procedure WriteAllText(const Path, Contents: string); overload; static;
class procedure WriteAllText(const Path, Contents: string;  const Encoding: TEncoding); overload; static;

Saludos.

[egostar]

delphi

TFile.WriteAllText(DecodeString(Content), nomArch);

Me parece que estas pasando los parámetros en orden inverso, es decir, primero deberías pasar el nombre del archivo y luego el contenido, al menos según la docwiki de Embarcadero http://docwiki.embar...le.WriteAllText

delphi

class procedure WriteAllText(const Path, Contents: string); overload; static;
class procedure WriteAllText(const Path, Contents: string;  const Encoding: TEncoding); overload; static;

Saludos.

 

 

 

Cierto, ya lo pruebo mañana en la oficina y les dejo saber los resultados.

 

Muchas gracias amigo Gastón.

 

Saludos

[egostar]

Hola
 
Pues ya he probado todo lo que me han sugerido y nada, sigue sin poder decodificar la base64
 
Amigo Domingo, ¿ésto está bien?

delphi

var
  DatosStr: TStringStream;
  Cifr: TMemoryStream;
  BDec: TBase64Dec;
 
Begin
  DatosStr := TStringStream.Create('MTAyNCAyNDU4IDExMTEgNDU2OA=='); 
  Cifr:= TMemoryStream.Create; 
  BDec:= TBase64Dec.Create(DatosStr); 
  try 
    BDec.CopyFrom(Cifr,0); 
  finally 
    BDec.Free; 
  end; 
  Cifr.SaveToFile('C:\Proyectos\TEST\Prueba.txt');
end;

 
Porque me crea el archivo pero vacío
 
Saludos

[egostar]

El problema está en el momento de querer decodificar el Stream de base64.

delphi

DatosStr := TStringStream.Create('MTAyNCAyNDU4IDExMTEgNDU2OA==');
  Writeln('Stream: ' + DatosStr.DataString);
  Cifr:= TMemoryStream.Create;
  try
    BDec := TBase64Dec.Create(DatosStr);
    Writeln('Tamaño: ' + intTostr(BDec.Size)); //Aquí salta el error....
  except
    on e: exception do
       Writeln('Error: ' + e.Message);
  end;
  try
    BDec.CopyFrom(Cifr,0);
  finally
    BDec.Free;
  end;
  Cifr.SaveToFile('C:\Proyectos\TEST\Prueba.txt');

El programa me regresa un error al intentar obtener el tamaño del Stream.

 

La imagen adjunta nos muestra el error.

 

Saludos

Archivos adjuntos

•  Error Stream.png   8,98KB   1 descargas

[Marc]

¿ Puedes instalar MadExcept para que haga un Log con el error ?. Nos va a decir en que línea exacta del código interno de la VCL falla el programa, además de mucha más información interesante.

[egostar]

¿ Puedes instalar MadExcept para que haga un Log con el error ?. Nos va a decir en que línea exacta del código interno de la VCL falla el programa, además de mucha más información interesante.

 
Hola amigo Marc,
 
Ya he encontrado el error, resulta que por alguna extraña razón      tenia la siguiente línea
 

delphi

begin
  //.....
  if not DirectoryExists( Ruta ) then
     if not CreateDir( Ruta ) then
 
  Cadena := DecodeString(Content);
  //.....
end;

El punto es que el decodeString() es parte del if y nunca lo hacía. WTF.........

Ya necesito vacaciones......      

Saludos