7 replies to this topic

[razadi]

Comuneros tengo un problema, anteriormente usábamos BDE, actualmente estamos cambiando a Zeos.

Tengo una clase que realiza la seguridad, en esta tenemos un procedure que lee de la BD un campo blob y con BDE funciona bien, el problema que ahorita que estoy cambiando a zeos esta linea

delphi

keytmp := TBlobStream.Create(TBlobField(Datos.FieldByName(CampoKeyEncr)),bmRead);

Me manda este error "Invalid class typecast", alguien que conozca los zeos y me pueda apoyar o aconsejar.

De antemano, gracias por su apoyo.

[enecumene]

mmm, a ver, ¿Qué tipo de variable es Keytmp? ¿CampoKeyEncr es otra variable o nombre de campo?, prueba con esto:

delphi

keytmp := TZStreamBlob.Create(TBlobField(Datos.FieldByName(CampoKeyEncr)),bmRead);

Saludos.

PD. ese error normalmente se debe a que los tipos de datos no son iguales.

[razadi]

Que tal amigo, si mira

delphi

KeyTmp := TBlobStream;
CampoKeyEncr := 'CampoBlob'  {Nombre del campo tipo Blob en MySQL}

Fijate que ya probe con esa función y me marca un error, de hecho ahi te falta un parametro de tipo IZBlob

La que yo use es la siguientes:

delphi

{Asi esta el create del zeos}
TZBlobStream.Create(Field: TBlobField; Blob: IZBlob; Mode: TBlobStreamMode);
//donde 
  IZBlob = interface(IZInterface)
    ['{47D209F1-D065-49DD-A156-EFD1E523F6BF}']

pero no le doy, mmm, creo que estoy bloqueado ahorita.

[Al González]

Hola Razadi, te recomiendo que no especifiques la clase de flujo (stream) que deseas.

Opta por el método CreateBlobStream que viene en todo data set desde hace ya varias versiones de Delphi.  Así el objeto flujo creado será compatible con el tipo de conjunto de datos que uses.

Saludos.

Al González.

[razadi]

Hola Razadi, te recomiendo que no especifiques la clase de flujo (stream) que deseas.

Opta por el método CreateBlobStream que viene en todo data set desde hace ya varias versiones de Delphi.  Así el objeto flujo creado será compatible con el tipo de conjunto de datos que uses.

Saludos.

Al González.

Ya quedó AL, gracias por tu consejo, saludos

[razadi]

Nuevamente yo comuneros.
AL me quedo como comentaste, el problema que ahora tengo es como leer un blob desde la base de datos de MySQL, y estoy accesando desde ZEOS 6.6.3

Cuando lo hacia desde BDE a Firebird esta era la instrucción que usaba

delphi

keytmp := TBlobStream.Create(TBlobField(DataSet.FieldByName('CampoKeyEncr')),bmRead);

el valor del campo CampoKeyEncr es tipo blob, pero ahora con MySQL y ZEOS me manda error

Con el CreateBlobStream  no tengo problema pero no me lee el contenido del campo blob desde la base de datos.

Alguna sugerencia???

[Al González]

Alguna sugerencia???

Dos preguntas:

¿Cuál es el código que pusiste con CreateBlobStream?

¿Cómo tratas de leer su contenido?  Es decir, cuando dices "no me lee", ¿a qué te refieres?

Saludos.

Al González.

[razadi]

Si AL, mira  este es código que utilicé, y ya no me marca error, pero no me genera el resultado esperado.

El resultado esperado es que con esta información que se tiene en la BD se genera un archivo que se envía vía ftp a un servidor para que se procese, por consiguiente cuando el otro sistema lo quiere guarda en su BD no puede dice que está dañado el archivo.

delphi

var
  keytmp: TStream;
begin
  if Datos.FindField(CampoKeyDecr)<> nil then begin
    keytmp := Datos.CreateBlobStream(Datos.FieldByName(CampoKeyDecr),bmRead);
    KeyEncrip.LoadFromStream(keytmp);
  end;
end;

donde
KeyEncrip: TMemoryStream;
Datos: TZQuery;
CampoKeyDecr: string = 'nombre del campo tipo blob en MySQL'

cuando usaba BDE se tenia lo siguiente:

delphi

var
  keytmp: TBlobStream;
begin
  if Datos.FindField(CampoKeyDecr)<> nil then begin
    keytmp := TBlobStream.Create(TBlobField(Datos.FieldByName(CampoKeyEncr)),bmRead);
    KeyEnCrip.LoadFromStream(keytmp);
  end;
end;

con este código, si esta funcionando bien, pero ahorita lo que se esta haciendo es quitar la capa del BDE y sustituirla por Zeos

gracias de antemano.