Error en DLL !URGENTE!
Publicado por El Pelotas (40 intervenciones) el 03/03/2005 23:41:50
Estimados Foristas:
Tengo un lector de huella digital, viene acompañado por DLL's, el manual esta hecho para progamar en VB :(
La función que quiero usar es la siguiente:
Int EnrollUser(char *Template, char *ImagePath, char *GuideMessage, HWND Owner, int x1, int y1, int x2, int y2, int Core)
Entonces para que según yo funcione en Delphi 6 hice lo siguiente:
type
TEnroll = function (Template,ImagePath,GuideMessage:pchar;Owner:Cardinal;x1,y1,x2,y2,Core:int64): PChar;
procedure TForm1.EnrollClick(Sender: TObject);
var
hLib,: Cardinal;
Enrola: TEnroll;
t1,t2,t3,res : pchar;
begin
hLib := LoadLibrary('UF100.dll');
@Enrola := GetProcAddress(hLib,'EnrollUser');
res := Enrola(t1,t2,t3,Form1.ClientHandle,100,100,200,200,1);
Memo1.Lines.Add('Enrola :'+Res);
FreeLibrary(hLib);
end;
El problema es que me marca el siguiente error:
Access violation at adress 10013DC1 in Module "UF100.DLL" Write of Address 000000C8
Por favor necesito ayuda Saludos!
Tengo un lector de huella digital, viene acompañado por DLL's, el manual esta hecho para progamar en VB :(
La función que quiero usar es la siguiente:
Int EnrollUser(char *Template, char *ImagePath, char *GuideMessage, HWND Owner, int x1, int y1, int x2, int y2, int Core)
Entonces para que según yo funcione en Delphi 6 hice lo siguiente:
type
TEnroll = function (Template,ImagePath,GuideMessage:pchar;Owner:Cardinal;x1,y1,x2,y2,Core:int64): PChar;
procedure TForm1.EnrollClick(Sender: TObject);
var
hLib,: Cardinal;
Enrola: TEnroll;
t1,t2,t3,res : pchar;
begin
hLib := LoadLibrary('UF100.dll');
@Enrola := GetProcAddress(hLib,'EnrollUser');
res := Enrola(t1,t2,t3,Form1.ClientHandle,100,100,200,200,1);
Memo1.Lines.Add('Enrola :'+Res);
FreeLibrary(hLib);
end;
El problema es que me marca el siguiente error:
Access violation at adress 10013DC1 in Module "UF100.DLL" Write of Address 000000C8
Por favor necesito ayuda Saludos!
Valora esta pregunta


0