Migración QReport 3 a QReport 6

[Casimiro Noteví]

Empezado por QuiqueSalamanca

He probado lo que me has dicho, y sí me lo traga. Ahora ya si que me vuelvo más loco !!

Exactamente, ¿qué codigo has usado?

Empezado por QuiqueSalamanca

También he probado a desinstalar todo el IDE y los componentes y reinstalarlos de cero, pero nada...

Te lo podías haber ahorrado

[QuiqueSalamanca]

Empezado por Casimiro Notevi

Exactamente, ¿qué codigo has usado?


Te lo podías haber ahorrado

¡Y tanto que me lo podía haber ahorrado!

Este es el código sin modificar:

Código Delphi [-]
procedure TQRPDBImage.LoadPicture;
var
  S: String;
begin
  if (DataField<>'') and (Dataset<>NIL) then
    begin
      try
        If Not (DataSet.FindField(DataField) is TBlobField) Then // --> En esta linea me da el error
          begin
            S:=ExpandFileName(Dataset.FindField(DataField).AsString);
            If ExtractFileExt(S)='' Then S:=ChangeFileExt(S,'.BMP');
            If FileExists(S) Then Picture.LoadFromFile(S);
          end
        Else
          Picture.Assign(Dataset.FindField(DataField));
      except
      end;
    end;
end;

Y este es el código modificado:

Código Delphi [-]
procedure TQRPDBImage.LoadPicture;
var
  S: String;
  oDS : TDataSet;
begin
  if (DataField<>'') and (Dataset<>NIL) then
    begin
      try
        oDS := TDataSet.Create( nil );
        if not ( oDS.FindField( 'Prueba' ) is TBlobField ) then
          oDS := nil;

        If Not (DataSet.FindField(DataField) is TBlobField) Then
          begin
            S:=ExpandFileName(Dataset.FindField(DataField).AsString);
            If ExtractFileExt(S)='' Then S:=ChangeFileExt(S,'.BMP');
            If FileExists(S) Then Picture.LoadFromFile(S);
          end
        Else
          Picture.Assign(Dataset.FindField(DataField));
      except
      end;
    end;
end;

Solo me da error en el segundo IF NOT, vamos donde me daba antes siendo la condición idéntica.

Lo único que se me ocurre es que DataSet es una propiedad del objeto TQRPDBImage de tipo TDataSet (vamos lo mismo) y que se esté haciendo la picha un lío...

[Casimiro Noteví]

Empezado por QuiqueSalamanca

Lo único que se me ocurre es que DataSet es una propiedad del objeto TQRPDBImage de tipo TDataSet (vamos lo mismo) y que se esté haciendo la picha un lío...

¿No tienes acceso al fuente para ver de qué hereda ese dataset?

[QuiqueSalamanca]

Empezado por Casimiro Notevi

¿No tienes acceso al fuente para ver de qué hereda ese dataset?

Sí, sí, es un TDataSet de la unit DB...

[Casimiro Noteví]

Bueno, ¿y el blobfield de dónde viene, lo has mirado?

[QuiqueSalamanca]

Empezado por Casimiro Notevi

Bueno, ¿y el blobfield de dónde viene, lo has mirado?

Exactamente igual, DB...

[Casimiro Noteví]

¿Pero del mismo db y tipo?

Es que algo tiene que haber diferente, no puede ser que uno vaya bien y el otro no, así que la diferencia es del tipo que heredan.