Migración QReport 3 a QReport 6

[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 Notevi]

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 Notevi]

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 Notevi]

¿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.

[QuiqueSalamanca]

Empezado por Casimiro Notevi

¿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.

Exactamente igual, más abajo sale el segundo error que es este:

Código Delphi [-]
 [dcc32 Error] qrpctrls.pas(736): E2010 Incompatible types: 'Data.DB.TDataSet' and 'Data.DB.TDataSet'

Esto es una locura, al final quitaré los más de cincuenta informes de la aplicación y los reharé más adelante, sino queda otra...

EDITO: el anterior error sobre TField y TBlobField también heredan de la misma unit. En algún lado se está quedando gilip*****