FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Error al importar dll
Buenas,
estoy intentando compilar un proyecto nuevo, en el que importo una librería dll. Pero me da un error de compilación (lo indico abajo en el código), a priori sencillo de resolver, pero no encuentro el problema. Podeis echarme una mano?. Saludos y gracias. Código:
unit Tarjeta; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TFormPrincipal1 = class(TForm) private { Private declarations } public { Public declarations } procedure AUX; end; var FormPrincipal1: TFormPrincipal1; dev:THANDLE; implementation {$R *.DFM} const SmartCardLibrary='LTC2x.dll'; type LONG=longint; INT=smallint; pINT=PINTEGER; function C3Reset (hComDev:THandle;LATR:pINT;ATR:pointer):LONG; stdcall; external SmartCardLibrary name 'C3RESET'; function C3IfdStatus (hComDev:THandle):LONG; stdcall; external SmartCardLibrary name 'C3IFDSTATUS'; function C3CardInserted (hCommDev:THandle;CCA:INT):bool; stdcall; external SmartCardLibrary name 'C3CARDINSERTED'; function C3ReaderPowered(hCommDev:THandle):bool; stdcall; external SmartCardLibrary name 'C3READERPOWERED'; function C3Open (Port:PCHAR):THandle; stdcall; external SmartCardLibrary name 'C3OPEN'; function C3Close (hComDev:THandle):bool; procedure TFormPrincipal1.AUX; <- Error de ... ';' expected but '.' found begin ShowMessage('Prueba'); end; end. |
#2
|
||||
|
||||
Supongo que como la última función C3Close al no tener la definición de una implementación externa (;stdcall; external SmartCardLibrary name 'C3Close', la toma como la implementación de una función local, y te pide que tenga un begin..end.
Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#3
|
|||
|
|||
Que raro que el compilador no haya protestado también por el uso de BOOL y no BOOLEAN. Por lo menos hasta la version 7 que tengo no lo permite.
Acá puedes encontrar info sobre declaraciones y uso de DLLs Salu2 Última edición por JOSEPE fecha: 08-07-2005 a las 15:50:37. |
|
|
|