?Hola amigos.
Estoy intentando utilizar una biblioteca escrita en C. La declaraci�n que funciona en Delphi de la funci�n que voy a utilizar es la siguiente: _________________________________________________________ ?function swe_calc_Win(
tjd : double; {Julian day number}
ipl : Integer; {planet number}
iflag : Longint; {flag bits}
var xx : double; {first of 6 doubles}
sErr : PChar {Error-String}
): Longint; stdcall; far; external 'swedll32.dll' name '_swe_calc en 24'; ?_________________________________________________________ ??
?Ahora estoy escribiendo con Lazarus un programa que funcione en Windows y en Linux de la siguiente manera:
_________________________________________________________

uses ...dynlibs...
(...)

type
swe_calc = function(tjd : double; {Julian day number} ipl : Integer; {planet number}
iflag : Longint; {flag bits}
var xx : double; {first of 6 doubles}
sErr : PChar {Error-String}
): Longint; stdcall;

var
  astro_Handle:TLibHandle=dynlibs.NilHandle;
  swCalc: swe_calc;
  FuncResult: longint;
  xx : array [0..6] of double;
  err: PChar;
?  (...)

? {$IFDEF Windows}

    astro_Handle := LoadLibrary('swedll32.dll');
  {$ELSE}
    astro_Handle := LoadLibrary('libswe.so');
  {$ENDIF}
   ?swCalc := swe_calc(GetProcedureAddress(astro_Handle, 'swe_calc'));//

'_swe_calc en 24'));

  FuncResult:= swCalc(julday,0,SEFLG_MOSEPH,xx[0],err);  // *** ERROR

__________________________________________________________ ? ?Cuando llamo a la funci�n me da el siguiente error: "El proyecto syrius ha lanzado una excepci�n de la clase 'External: SIGSEGV'."
Mirando el ensamblador aparece:
"00000000 ??????"
Es decir; que al parecer el error lo da la biblioteca en C. Las posibilidades sobre lo que he hecho mal que se me ocurren son:
1) �Habr� declarado mal xx?
2) �Tendr� que recompilar 'libswe.so' para esta distro de Linux en concreto? Agradezco vuestra ayuda :-)
?
------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20150115/5ea30a41/attachment.html>

antes de llamarla debes asegurarte que pudo cargar la libreria, revisando que no est� en nil swCalc .
Por otro lado probaste de cargarla estaticamente para ver sino no es un error de tipo de declaracion?

El d�a 15 de enero de 2015, 19:26, Juan M. Puertas <soft.sirius en gmail.com> escribi�:

??Muchas gracias Maxi. :-)
Lo he resuelto asignando un valor a err.
Ahora todo va bien, pero al salir de la funci�n en la que se encuentra la llamada a la biblioteca en C, (en el end;) me da el error: "El proyecto syrius ha lanzado una excepci�n de la clase 'External: SIGSEGV'."

�Alguien sabe por qu� pasa esto?.
Gracias.

El 16 de enero de 2015, 13:27, Maxi <maximiliano.duarte en gmail.com> escribi�:

Seguramente esta intentado liberar o usar memoria que no tiene

desde el celu
El ene 17, 2015 8:58 AM, "Juan M. Puertas" <soft.sirius en gmail.com> escribi�:

------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20150117/7c13cf0a/attachment.html>

Muchas gracias Maxi.Ya lo he resuelto.
Como pienso que la soluci�n puede venir bien a alguien, incluso como ejemplo del uso de LoadLibrary. Expongo la soluci�n: _______________________________________________________________

uses dynlibs;
(...)

? type

    {$IFDEF Windows}
    swe_calc   =  function(tjd : double;    {Julian day number}
                   ipl         : Integer;   {planet number}
                   iflag       : Longint;   {flag bits}
                   var xx      : double;    {first of 6 doubles}
                   sErr        : PChar      {Error-String}
  ): Longint; stdcall;
    {$ELSE}
    swe_calc   =  function(tjd : double;    {Julian day number}
                   ipl         : Integer;   {planet number}
                   iflag       : Longint;   {flag bits}
                   var xx      : double;    {first of 6 doubles}
                   sErr        : PChar      {Error-String}
  ): Longint; {stdcall;} cdecl;
    {$ENDIF}

const
SEFLG_JPLEPH : Longint = 1; { use JPL ephemeris } SEFLG_SWIEPH : Longint = 2; { use SWISSEPH ephemeris } SEFLG_MOSEPH : Longint = 4; { use Moshier ephemeris }

var
  astro_Handle:TLibHandle=dynlibs.NilHandle;
  swCalc: swe_calc;
  res: longint;
  xx : array [0..5] of double;
  sErr: array[0..255] of char;
  begin
  {$IFDEF Windows}
    astro_Handle := LoadLibrary('swedll32.dll');
    swCalc := swe_calc(GetProcedureAddress(astro_Handle, '_swe_calc en 24'));
  {$ELSE}
    astro_Handle := LoadLibrary('libswe.so');
    swCalc := swe_calc(GetProcedureAddress(astro_Handle, 'swe_calc'));
  {$ENDIF}
  res:= swCalc(tjd,ipl,SEFLG_SWIEPH,xx[0],sErr);
  LongiPlanet := xx[0];
  (...)
  UnloadLibrary(astro_Handle);?

_______________________________________________________________

El 17 de enero de 2015, 15:10, Maxi <maximiliano.duarte en gmail.com> escribi�:

no identifico cual es la solucion

El d�a 19 de enero de 2015, 18:29, Juan M. Puertas <soft.sirius en gmail.com> escribi�:

Hola Maxi. La diferencia est� en la manera de declarar y llamar a las funciones. Puedes verlo en los {$IFDEF...
Lo importante es que el �ltimo c�digo enviado sirve de ejemplo sobre el funcionamiento de Loadlibrary para quien lo pueda necesitar. :-) Saludos.

El 20 de enero de 2015, 17:33, Maxi <maximiliano.duarte en gmail.com> escribi�:

El 20/01/2015 a las 18:09, Juan M. Puertas escribi�:

Hola,

En este caso lo que es diferente es la decoraci�n del nombre de las funciones en Windows y en Linux, vamos que el compilador ha decorado el nombre en windows "@24" pero no en Linux, y eso depende de la configuraci�n del compilador de la DLL, no de la plataforma.

Por cierto, que el @24 significa que espera 24 bytes en par�metros para llamar a la funci�n, lo que concuerda con tu definici�n de funci�n.

Otros compiladores decorar�an la stdcall de este caso como:

_swe_calc en en en 4

no est� decorado sino explicito por el programador en la declaracion del nombre a exportar

): Longint; stdcall; far; external 'swedll32.dll' name '_swe_calc en 24';

Si no se le aplica el name, exporta como se define la funcion.

El d�a 20 de enero de 2015, 16:38, Jos� Mejuto <joshyfun en gmail.com> escribi�:

El 20/01/2015 a las 20:52, Maxi escribi�:

Hola,

Est�s confundiendo importar con exportar. El "name" de pascal es para *importar* una funci�n con un nombre diferente (el que figura en la DLL) al que damos en el c�digo pascal.

Lo que te dec�a es que el autor de la DLL (swedll32.dll) ha usado el sistema no expl�cito de exportaci�n de funciones de C y en este caso el linker exporta los nombres de funci�n decorados al ser "stdcall", si fuera un "cdecl" no los decorar�a.

Si te fijas el c�digo C original no importa con decorador:

DllImport int32 FAR PASCAL swe_calc(.....)

Ya que C decide que si es "FAR PASCAL" la funci�n ha de estar decorada (por defecto).

Extraido del MSDN:

-------------------
dllexport of a function exposes the function with its decorated name. For C++ functions, this includes name mangling. For C functions or functions that are declared as extern "C", this includes platform-specific decoration that's based on the calling convention. If you don't want name decoration, use a .def file (EXPORTS keyword). -------------------

Hola de nuevo.
He tenido que reinstalar Linux Mint Mate, y me ha surgido algo extra�o.
1) Nada m�s instalarlo he intentado correr la aplicaci�n mencionada en este post que funcionaba perfectamente. Sin embargo aparece un mensaje que dice: "There is no application installed for executable files." Pensaba que un ejecutable compilado con Lazarus no ten�a dependencias. :-?
2) Supongo que debido a haber instalado otras aplicaciones y la �ltima versi�n de Lazarus, el ejecutable ya funciona, pero ahora, siendo el mismo, vuelve a dar el error que ha iniciado todo este post. Entro en Lazarus, depuro la aplicaci�n, y efectivamente, el error se produce cuando llamo a la funci�n que est� en la librer�a externa.
�Ser� que la nueva versi�n de Lazarus afecta a un ejecutable creado en una antigua versi�n?.
Es todo un misterio para mi, pero como vosotros ten�is m�s experiencia os pregunto por si ten�is alguna respuesta.
Muchas gracias :-)
Juan M.

El 21 de enero de 2015, 11:19, Jos� Mejuto <joshyfun en gmail.com> escribi�:

parece obvio , pero... tiene permiso de ejecuci�n?

El 28 de enero de 2015, 11:51, Juan M. Puertas <soft.sirius en gmail.com> escribi�:

------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20150128/1f340e66/attachment.html>

El 28/01/2015 a las 11:51, Juan M. Puertas escribi�:

este post que funcionaba perfectamente. Sin embargo aparece un mensaje que dice: "There is no application installed for executable files." Pensaba que un ejecutable compilado con Lazarus no ten�a dependencias. :-?

Hola,

Ese error lo da cuando haces doble click en un ejecutable sin permisos de ejecuci�n.

Message: 1
Date: Wed, 28 Jan 2015 11:51:30 +0100
From: "Juan M. Puertas" &lt;soft.sirius en gmail.com&gt; Subject: Re: [Lazarus-es] Problema con LoadLibrary To: Spanish version of Lazarus List

    <lazarus-es en lists.lazarus.freepascal.org>

Message-ID:

    <CACdLDzzNZJzQv3KguVwTuT-K6WZ9tUgPNAX0dOABO7=Yh=+JdA en mail.gmail.com>

Content-Type: text/plain; charset="utf-8"

Hola de nuevo.
He tenido que reinstalar Linux Mint Mate, y me ha surgido algo extra�o.
1) Nada m�s instalarlo he intentado correr la aplicaci�n mencionada en este post que funcionaba perfectamente. Sin embargo aparece un mensaje que dice: "There is no application installed for executable files." Pensaba que un ejecutable compilado con Lazarus no ten�a dependencias. :-?
2) Supongo que debido a haber instalado otras aplicaciones y la �ltima versi�n de Lazarus, el ejecutable ya funciona, pero ahora, siendo el mismo, vuelve a dar el error que ha iniciado todo este post. Entro en Lazarus, depuro la aplicaci�n, y efectivamente, el error se produce cuando llamo a la funci�n que est� en la librer�a externa.
�Ser� que la nueva versi�n de Lazarus afecta a un ejecutable creado en una antigua versi�n?.
Es todo un misterio para mi, pero como vosotros ten�is m�s experiencia os pregunto por si ten�is alguna respuesta.
Muchas gracias :-)
Juan M.

Eso suena m�s a problemas de permisos.
�Has comprobado que tiene activado el modo ejecutable?

Saludos

------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20150128/159974c5/attachment.html>

Gracias a todos :-)
Tanto el ejecutable como la biblioteca din�mica tienen todos los permisos de ejecuci�n.
�Rar�simo verdad?. :-?

Tambi�n me he visto obligado a instalar de nuevo Windows 10, versi�n de pruebas, y aqu� su ejecutable sigue funcionando.

El 28 de enero de 2015, 13:36, arturo.molina <arturo.molina en zoho.com> escribi�:

pero para que corra en linux ambos, ejecutable y libreria deben estar compilados para linux.
el .exe y .dll no son reconocidos en linux

El d�a 28 de enero de 2015, 10:21, Juan M. Puertas <soft.sirius en gmail.com> escribi�:

Gracias Maxi.
Ya lo s�. En este post he enviado el c�digo multi-plataforma. Lo estaba probando en Windows y en Linux.
El ejecutable funcionaba en Linux Mint 17.
Vuelvo a instalar la misma versi�n de Linux Mint, y el mismo ejecutable no funciona a partir de pedir que haga una tarea determinada. Cuando compruebo con Lazarus donde da el error, lo hace al llamar a la biblioteca "libswe.so" (a la que tampoco he tocado), es decir; el mismo error que menciono al principio de este post.
�Qu� misterio!

El 28 de enero de 2015, 14:53, Maxi <maximiliano.duarte en gmail.com> escribi�:

En todo caso los puedes correr sobre Wine.

Y si est�n compilados en Linux lo que te les falta es el permiso de ejecuci�n.

Saludos Cordiales
========
| ISMAEL |
========
Only for the small landowners and Cubans companies Website: www.sisconge.byethost15.com
www.sisconge.hol.es

Pero esa no es tu libreria, es una dependencia.
haciendo una busqueda rapida salta esto
http://packages.ubuntu.com/trusty/amd64/libswe-dev/filelist

El d�a 28 de enero de 2015, 11:23, Ismael L. Donis Garcia <slibre en citricos.co.cu> escribi�:

instala los headers y el paquete developer para que te cargue las librerias de desarrollo.
Hay una forma, que vi en una oportunidad con un comando que no recuerdo te da todas las dependencias de tu aplicacion.

El d�a 28 de enero de 2015, 11:59, Maxi <maximiliano.duarte en gmail.com> escribi�:

�Exacto, el misterio ha sido resuelto!.
En mi anterior instalaci�n hab�a instalado otro programa que tambi�n utiliza el paquete que mencionas.
Yo pensaba que "libswe.so" era autosuficiente.
�Muchas gracias Maxi! :-)

El 28 de enero de 2015, 16:01, Maxi <maximiliano.duarte en gmail.com> escribi�:

con ldd ejecutable te dice que necesita para correr tu aplicacion. Esto incluso te ayudar�a para crear un paquete y resuelva las dependencias.

El d�a 28 de enero de 2015, 14:14, Juan M. Puertas <soft.sirius en gmail.com> escribi�:

Muchas gracias Maxi.
Lo curioso es que ldd me ha indicado todas las bibliotecas que ya vienen instaladas en Linux, y no me se�ala libswe.so que utiliza el programa. Saludos. :-)

El 28 de enero de 2015, 18:25, Maxi <maximiliano.duarte en gmail.com> escribi�:

El 29/01/2015 a las 10:02, Juan M. Puertas escribi�:

Hola,

ldd s�lo te muestra los .so que se cargan de modo est�tico, los que se cargan con LoadLibrary no aparecen. Para estos podr�as usar "ltrace", ver que librer�as se cargan con la orden "dlopen" y hacerle el ldd a esas librer�as.

Aqu� he encontrado algo de informaci�n sobre el tema:

http://linuxgazette.net/143/misc/lg/2_cent_tip__determining_dynamic_shared_libraries_loaded_during_run_time_of_a_program.html

Muchas gracias Jos�. Estudiar� todo lo que me aconsejas. :-) Saludos afectuosos.

El 29 de enero de 2015, 12:20, Jos� Mejuto <joshyfun en gmail.com> escribi�:

probaste de pasarle ldd a la libreria tuya? �sta ultima debe llamar a otras.

El d�a 29 de enero de 2015, 16:10, Juan M. Puertas <soft.sirius en gmail.com> escribi�:

Hola Maxi:
Si, lo he probado con libswe.so, y llama a bibliotecas del Sistema como libc.so.6.
Tambi�n he probado con ltrace al ejecutable, y las llamadas son a libswe.so y a las bibliotecas de gtk.
He preguntado en la lista de correo de las swiss ephemeris y dicen que libswe.so no tiene m�s dependencias. �Entonces por qu� no funciona si no instalo las swiss ephemeris?.
Sigo investigando.
Gracias. :-)

El 30 de enero de 2015, 17:50, Maxi <maximiliano.duarte en gmail.com> escribi�:

Puede que sea buena idea revisar todo el fuente eliminando unidades que no usas. Quizas en algun momento probando quedo algo. Igualmente en la librer�a

desde el celu
El ene 31, 2015 6:48 PM, "Juan M. Puertas" <soft.sirius en gmail.com> escribi�:

------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20150201/884b4f88/attachment.html>

Ya he descubierto el problema.
En Windows LoadLibrary carga la biblioteca en la carpeta en la que se est� ejecutando la aplicaci�n.
En Linux la carga de usr/lib, por eso ten�a que instalar las swiss ephemeris.
Lo he arreglado as�:

 s:= Application.Location;
 astro_Handle := LoadLibrary(s + 'libswe.so');

Muchas gracias a Maxi y a todos. :-)

El 1 de febrero de 2015, 14:18, Maxi <maximiliano.duarte en gmail.com> escribi�: