Sustituir acceso DLL por unit en código C

[roman]

Pero aún extendiendo la clase TDataSet, ¿cómo le harías?

Otro caso curioso es el de los componentes MyDac de DevArt. El componente TMyConnection tiene una propiedad Options.Direct. Si la pones en false, el ejecutable final requiere que la biblioteca libmysql.dll esté presente. Basta poner la opción en true para que el ejecutable sea independiente.

// Saludos

[Ñuño Martínez]

Empezado por roman

Pero aún extendiendo la clase TDataSet, ¿cómo le harías?

Como digo arriba, lo intenté pero no lo conseguí. No encontré información suficiente.

[jocaro]

Hola.

Roman, Nuño, ante todo, muchas, muchisimas gracias por vuestra ayuda.

Me confirmáis mi sospecha de que lo mas problemático es decirle al componente que trabaje con el código, salvo que en dicho componente ya esté prevista una propiedad para ese fin.

De todos modos os rogaría un ejemplo de los dos primeros pasos; insertar y compilar la unidad de código C en el entorno Delphi y un ejemplo genérico de acceso a una función del código C desde un método en Delphi.

A ver si con esa información reduzco el problema para dedicarme sólo a revisar los componentes que uso (UniDac que, como MyDac, es de Devart) y revisar sus propiedades para ver si en alguna puedo "convencer" al componente de que se olvide de la DLL.

Un saludo y de nuevo gracias.

[[escafandra]]

No se si las últimas versioned lo hacen, creo que no, pero las que yo conozco no compilan C. Así que lo tendrás que traducir a delphi.

Nunca entendí porqué a Builder C++ se le otorgó la capacidad de compilar archivos.pas y delphi no compila cpp...


Saludos.

[Ñuño Martínez]

Empezado por jocaro

De todos modos os rogaría un ejemplo de los dos primeros pasos; insertar y compilar la unidad de código C en el entorno Delphi y un ejemplo genérico de acceso a una función del código C desde un método en Delphi.

Lo intentaré, pero aviso que lo hago de memoria y sin probarlo, ¿eh? Posiblemente necesite algún ajuste.

Primero, el código C podría ser algo así:

/* Ejemplo para llamar desde Delphi. */
  int calcula_cuadrado (int numero)
  {
    return numero * numero;
  }

Ahora, la unidad "envolvente":

Código Delphi [-]
UNIT UnidadEnvolventeC

(* La línea siguiente no recuerdo si era así o usando $obj ó $l ... *)
{$link 'ejemplo.obj'}

INTERFACE
(* Función C. *)
  FUNCTION calcula_cuadrado (Numero: INTEGER): INTEGER; CDECL;
  EXTERNAL;

IMPLEMENTATION
END.

Y ahora el uso:

Código Delphi [-]
PROGRAM Ejemplo
{$mode console} (* ¿Era así? Es que en Free Pascal no hace falta XP *)

USES
  UnidadEnvolventeC;

VAR
  V1, V2: INTEGER;
BEGIN
  V1 := 20;
  V2 := calcula_cuadrado (V1);
END.

Ten cuidado con los tipos de dato de los parámetros y los valores que devuelve. Por ahí hay tablas que muestran la correspondencia entre los diferentes tipos, pero no te guíes por las apariencias porque a veces el tipo "int" de C no se corresponde con el tipo "INTEGER" de Pascal sino con "SMALLINT" ó con "LONGINT".

También ten en cuenta que el mapa de memoria no es idéntico en C y en Delphi, de ahí que se use "CDECL" en el código Pascal. La mayor parte de compiladores de C tienen una directiva que permite hacer lo opuesto (es decir, que la parte escrita en C use un mapa de memoria similar al de Pascal), pero no suele usarse mucho.

Y otra cosa: no uses C++, aparte de porque es un lenguaje horrible con todo lo malo de C y poco bueno añadido, porque el mapa de memoria de C++ es tan diferente del de Delphi que es casi imposible compartir datos. Hazlo todo en C.

[jocaro]

Hola

Gracias por la ayuda y las recomendaciones.

Voy a verlas con detenimiento e intentar aplicarlas en mi programa

Un saludo