FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
DLL parámetros de salida (OUT)
AYUDA POR FAVOR!!! TENGO EL TIEMPO ENCIMA....
Debo usar una funcion que esta en UF100.DLL, esta función tiene 5 parámetros, dos de ellos son de salida (out), me debería devolver valores pchar . Al ejecutar la función me marca error: "ACCESS VIOLATION....reading address" Todas las demás funciones de este DLL funcionan correctamente, pero usan paramétros normales. Ya intenté usando SHAREMEM en el uses, en el help dice que sirve para controlar la memoria pero que debe usarse en el DLL y el .exe, pero este DLL es de VB y por lo tanto no puedo usar el SHAREMEM. Cualquier sugerencia se las agradeceré infinitamente.... |
#2
|
||||
|
||||
Hola...
me imagino que el "ACCESS VIOLATION" se debe a que no pasas correctamente los parametros, como son parametros de salida y te regresan un PChar, debes considerar "dimensionar" la variable que pasas para que el valor devuelto por la función quede correctamente,... espero te sirva el tip... saludos... |
#3
|
|||
|
|||
Gracias por tu respuesta
A continuación escribo la función del DLL (el manual esta escrito para VB)
Int EnrollUser(char *Template, char *ImagePath, char *GuideMessage, HWND Owner, int x1, int y1, int x2, int y2, int Core) y esta es mi función en delphi type TEnroll = function(Out Template char; ImagePath char;Out GuideMessage char;HOwner,x1,y1,x2,y2,Core :integer): integer; stdcall; Te agradeceré muchisimo si me explicas un poco acerca de "dimensionar" |
#4
|
||||
|
||||
hola...
desconozco VB, pero creo tu "traslado" de la función es correcta ... tal vez si pusieras parte del codigo desde donde la llamas (incluyendo las variables que asignas a la llamada) podriamos ver si es por ahi donde esta la falla... saludos... |
#5
|
|||
|
|||
Gracias por tu respuesta
type
TEnroll = function(Out Template :Pchar; ImagePath char; Out GuideMessage :Pchar; HOwner,x1,y1,x2,y2,Core :integer): integer; stdcall; TEstaELDedo = function(): Integer; stdcall; TCapturaFP = procedure(HOwner,x1,y1,x2,y2,Core :integer); stdcall; var Form1: TForm1; implementation {$R *.dfm} {$H+} procedure TForm1.EnrollClick(Sender: TObject); var hLib: Cardinal; Enrola: TEnroll; Template,GuideMessage : Pchar; res : integer; begin hLib := LoadLibrary('UF100.DLL'); Enrola := GetProcAddress(hLib,'EnrollUser'); res := Enrola(Template,'D:\MIENTRAS\prueba.bmp',GuideMessage,Form1.Handle,0,0,0,0,1); Memo1.Lines.Add('Enrola :'+intToStr(Res)); FreeLibrary(hLib); end; |
#6
|
||||
|
||||
hola...
al ver tu función creo que el problema esta en que si, efectivamente declaras una variable de tipo PChar, pero esta apunta a ningun lado, por lo que al tratar la función de ponerte en ella los resultados pues te manda el error que mencionas, lo que tienes que hacer es "reservar" para esa variable (apuntador) el espacio de memoria suficiente para valor de retorno... para un manejo mas sencillo yo cambiaria algunas lineas como sigue : asi me ha funcionado, pero en el foro hay personas mas versadas en estos manejos por lo que puede que alguien te de una mejor sugerencia. espero te sirva... saludos... |
#7
|
|||
|
|||
Gracias por tu ayuda
Ya casi salgo del problema, ahora solo me marca el siguiente error, lamentablemente no sé como resolverlo:
en la linea: res := Enrola(PChar(Template),'D:\MIENTRAS\prueba.bmp',PChar(GuideMessage) , Form1.Handle,0,0,0,0,1); [Error] PruebaHuella.pas(53): Constant object cannot be passed as var parameter Espero me puedas ayudar. Te agradezco mucho |
#8
|
||||
|
||||
hola...
bueno es cierto, no habia notado ese detalle, si te fijas es del mismo tipo de parametros que los otros dos, por lo que no puedes pasar un valor constante, en este caso una cadena literal, lo que debes hacer es simplemente definir una variable asi: espero te ayude... saludos... |
#9
|
|||
|
|||
Gracias por tu ayuda
Sigo con error, ya intente usar GetMem pero marca el mismo error.
Me parece que debo cambiar de utilerías..... |
#10
|
||||
|
||||
hola...
se me ocurre que tal vez solo te faltaria agregar la palabra clave var al parametro ImagePath de la definición de la funcion en delphi TEnroll = function(Out Template : Pchar; var ImagePath : Pchar; Out GuideMessage : Pchar; HOwner,x1,y1,x2,y2,Core :integer): integer; stdcall; prueba con ello.... |
|
|
|