procedure TForm3.Button1Click(Sender: TObject);
var
dll : THandle;
numero_int: integer;
prueba: STRING;
mayor : LongInt;
menor : LongInt;
str : Array[0..200] of AnsiChar;
error : LongInt;
ConsultarVersionDll: TConsultarVersionDll;
EstablecerEncabezado: TEstablecerEncabezado;
begin
dll := 0;
dll := LoadLibrary('EpsonFiscalInterface.dll');
numero_int := 1;
ConfigurarPuerto(Pchar(IntToStr(3)));
ConfigurarVelocidad(StrToint('9600'));
retorno := Conectar();
@ConsultarVersionDll := GetProcAddress(dll, 'ConsultarVersionDll');
if not Assigned(ConsultarVersionDll) then
begin
ShowMessage('Error al asignar funcion: ConsultarVersionDll');
Exit;
end;
error := ConsultarVersionDll(@str[0], 200, mayor, menor );
ShowMessage( str );
@EstablecerEncabezado := GetProcAddress(dll, 'EstablecerEncabezado');
if not Assigned(EstablecerEncabezado) then
begin
ShowMessage('Error al asignar funcion: ConsultarVersionDll');
Exit;
end;
prueba:='EPSON mala onda';
error := EstablecerEncabezado(numero_int, PANSICHAR(prueba) );
memo1.Lines.Add(inttostr(ERROR)+ 'Encabezado numero ' + IntTostr(numero_int) + ' establecido ');
end;
end.