Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 07-02-2006
Robert01 Robert01 is offline
Miembro
 
Registrado: feb 2006
Ubicación: Córdoba, Argentina
Posts: 895
Poder: 19
Robert01 Va por buen camino
Thumbs down Problema con dll

Tengo problemas al llamar en forma dinámica un procedimiento en una dll hecha en delphi. Adjunto parte del código para la carga estática. He tratado de hacer la carga dinámica siguiendo las instrucciones que dan en el foro pero he obtenido mensajes de error en la línea donde está el procedimiento LUD(A,n,INDX,de);
Gracias si alguien puede darme una pequeña ayuda.

Código Delphi [-]
type
float = double;
 
const
nsize = 1000;
 
type
VDouble = array of float;
MDouble = array of VDuoble;
VInteger = array of integer;
 
var
A : MDouble;
Y : MDuoble;
ind : VInteger;
temp0 : VDouble;
A1 : MDouble;
e : VDouble;
d : VDouble;
v : MDouble;
 
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
Form1: TForm1; 
 
procedure lud(a : MDouble; n : integer; var ind : VInteger;
var d : float); stdcall;external 'lu_lib.dll'; 
 
implementation
{$R *.dfm}
 
procedure inv;
Var
i, j, k, n,nrot : integer;
fp1 : textfile;
sum,temp,de : float;
BEGIN
.
.
.
for i:=1 to n do begin
for j:=1 to n do begin
Read(fp1,temp);
A[i,j] := temp;
A1[i,j] := temp;
Y[i,j] := 0.0
end;
Y[i,i] := 1.0;
end; 
closefile(fp1);
LUD(A,n,INDX,de);
end;

Última edición por delphi.com.ar fecha: 07-02-2006 a las 13:48:55.
Responder Con Cita
  #2  
Antiguo 07-02-2006
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.275
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Antes que nada Bienvenido a los foros.
A parte de eso:
(1) Por favor revisa la guía de estilo.
(2) Haz una búsqueda en los foros antes de preguntar, seguramente acabarás antes.
http://www.clubdelphi.com/foros/show...&highlight=DLL
http://www.clubdelphi.com/foros/show...&highlight=DLL
(3) Utiliza TAG's en los mensajes (TAG delphi en la barra de botones del editor).
(4) Una vez escrito el mensaje, puedes revisar los mensajes relacionados que aparecen al pie de ésta página.

Un saludo.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #3  
Antiguo 07-02-2006
Robert01 Robert01 is offline
Miembro
 
Registrado: feb 2006
Ubicación: Córdoba, Argentina
Posts: 895
Poder: 19
Robert01 Va por buen camino
ya encontré el error

El problema es que al escribir el código para enlace dinámico no había puesto la cláusula stdcall al definir el tipo:

Código Delphi [-]
Tludcmp = procedure(a : MDoble; n : integer; var indx : VEntero; var d : float);stdcall;

Disculpen si puse la consulta sin haber hecho una revisión teniendo en cuenta estos pequños detalles.

Gracias por todo

Última edición por dec fecha: 07-02-2006 a las 23:49:08.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Problema al querer registrar una Dll Luana API de Windows 6 26-03-2016 07:19:29
problema con dll y parametros JoseQ OOP 3 03-02-2006 11:11:41
Problema con DLL Victor_TlrSoft Varios 1 02-02-2006 15:22:06
Problema con DLL ogorut Varios 5 23-10-2003 10:23:45
Problema con DLL pruz Varios 4 17-09-2003 08:19:47


La franja horaria es GMT +2. Ahora son las 07:54:21.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi