Usando AnyDAC con Delphi Tokyo

[leus]

Bueh, es un poco complicado - tuve una empresa, vendí un software, pero ahora la empresa está, hm, "inactiva" (y yo estoy trabajando en otra parte). Pero los clientes siguen usando el software y yo, que tiendo a valorar mi nombre, les sigo dando soporte como un gil.

Mi filosofía respecto del soporte es intentar evitar dar soporte - para eso, sigo manteniendo el software. A veces me paso días desarrollando cosas que me evitarán una hora de soporte :-)

En eso estoy ahora. Estoy intentando actualizar mi software porque quiero compilarlo en Tokyo. No quiero tener que usar máquinas virtuales para tener Delphi XE en un lado y Tokyo en otro... prefiero usar un solo IDE.

En fin, sigo investigando, y veo que hubo cambios en XE3 en la manera que los TField obtienen sus datos. Pero no tengo el diff - alguien puede ser tan amable de hacer una comparación entre DB.pas de Delphi XE y Data.DB.pas de Delphi Tokyo?

[[Al González]]

Suena razonable lo que comentas, leus (dejé algo acá).

Bien, hay dos maneras de resolverlo: Aprovecho que estoy desempleado para analizar esto con detalle, me das acceso por TeamViewer (no tengo esos componentes) y, divirtiéndome mucho, intento diagnosticar por qué ya no te funciona igual el componente proponiendo alguna solución que compartamos con todos. Tal vez un par de semanas basten.

La otra opción es invertir en tu nombre.

Saludos. :-)

[leus]

Al, eso sería genial. A ver si nos podemos coordinar por mensaje interno.

Sí, si me entra un dinero extra probablemente compre una licencia Enterprise. (¡Pero es equivalente a un mes de sueldo!)

[leus]

Ah, creo que encontré el problema, y de momento parece que todo funciona ok.

Las declaraciones de algunos overrides de AnyDAC no eran correctas, por lo que se estaba llamando a las funciones base de TDataset (que no hacen nada). Estos son los cambios necesarios, en caso de que alguien se encuentre con este problema:

 Source/uADCompDataSet.pas | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/Source/uADCompDataSet.pas b/Source/uADCompDataSet.pas
index b324bc9..af9cf96 100644
--- a/Source/uADCompDataSet.pas
+++ b/Source/uADCompDataSet.pas
@@ -758,8 +758,8 @@ type
     procedure GetDetailLinkFields(AMasterFields, ADetailFields: TList); {$IFNDEF AnyDAC_FPC} override; {$ENDIF}
     function GetColumnField(AColumn: TADDatSColumn): TField;
     function GetFieldColumn(AField: TField): TADDatSColumn; overload;
-    function GetFieldData(AFieldNo: Integer; ABuffer: Pointer): Boolean; overload; {$IFNDEF AnyDAC_FPC} override; {$ENDIF}
-    function GetFieldData(AField: TField; ABuffer: Pointer): Boolean; overload; override;
+    function GetFieldData(AFieldNo: Integer; var ABuffer: TValueBuffer): Boolean; override;
+    function GetFieldData(AField: TField; var ABuffer: TValueBuffer): Boolean; override;
 {$IFNDEF AnyDAC_FPC}
     function GetStateFieldValue(AState: TDataSetState; AField: TField): Variant; override;
 {$ENDIF}
@@ -3843,7 +3843,7 @@ begin
 end;
 
 {-------------------------------------------------------------------------------}
-function TADDataSet.GetFieldData(AFieldNo: Integer; ABuffer: Pointer): Boolean;
+function TADDataSet.GetFieldData(AFieldNo: Integer; var ABuffer: TValueBuffer): Boolean;
 var
   pRecBuf: PADBuffer;
   oColumn: TADDatSColumn;
@@ -3983,7 +3983,7 @@ begin
 end;
 
 {-------------------------------------------------------------------------------}
-function TADDataSet.GetFieldData(AField: TField; ABuffer: Pointer): Boolean;
+function TADDataSet.GetFieldData(AField: TField; var ABuffer: TValueBuffer): Boolean;
 var
   pRecBuf: PADBuffer;
 begin
@@ -4004,7 +4004,7 @@ begin
         if AField.DataType = ftBCD then
           CurrToBCD(PCurrency(pRecBuf + 1)^, PADBcd(ABuffer)^)
         else
-          ADMove(pRecBuf[1], ABuffer^, AField.DataSize);
+          ADMove(pRecBuf[1], PADBuffer(ABuffer)^, AField.DataSize);
     end;
   end;
 end;

[[Al González]]

Excelente. Qué bueno que pudiste resolverlo ajustando las directivas condicionales.

[[gatosoft]]

Empezado por leus

Al, eso sería genial. A ver si nos podemos coordinar por mensaje interno.

Sí, si me entra un dinero extra probablemente compre una licencia Enterprise. (¡Pero es equivalente a un mes de sueldo!)

Tienes suerte, yo necesito ahorrar durante unos 2 años evitando los lujos (carne, pan, leche, huevos...) para poder comprar una licencia...

[leus]

Empezado por gatosoft

Tienes suerte, yo necesito ahorrar durante unos 2 años evitando los lujos (carne, pan, leche, huevos...) para poder comprar una licencia...

El equivalente a UN MES DE SUELDO, no ahorrar por un mes :-) - no se tú, pero a mí el sueldo me alcanza apenas

[[gatosoft]]

Mes y medio

[Casimiro Notevi]

¿De qué habláis?

[[gatosoft]]

Empezado por leus

Bueh, es un poco complicado - tuve una empresa, vendí un software, pero ahora la empresa está, hm, "inactiva" (y yo estoy trabajando en otra parte). Pero los clientes siguen usando el software y yo, que tiendo a valorar mi nombre, les sigo dando soporte como un gil.

Mi filosofía respecto del soporte es intentar evitar dar soporte - para eso, sigo manteniendo el software. A veces me paso días desarrollando cosas que me evitarán una hora de soporte :-)

En eso estoy ahora. Estoy intentando actualizar mi software porque quiero compilarlo en Tokyo. No quiero tener que usar máquinas virtuales para tener Delphi XE en un lado y Tokyo en otro... prefiero usar un solo IDE.

Me parece estar escuchando la historia de mi vida