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.