Retorno Estendido MFD Bemafi32.Dll [PAF Teste 48]
Enviado: 07 Jan 2013 08:20
Código: Selecionar todos
nLib32 := LoadLibrary("Bemafi32.dll")
DLL32 FUNCTION Bematech_FI_RetornoImpressoraMFD(@ACK AS PTR, @ST1 AS PTR, @ST2 AS PTR, @ST3 AS PTR);
AS _INT PASCAL FROM "Bematech_FI_RetornoImpressoraMFD";
LIB nLib32
/*-------------------------------------*/
Function PegaRetorno()
Local Ack,St1, St2, St3
Local cRetorno := ""
Bematech_FI_RetornoImpressoraMFD(@ACK, @ST1, @ST2, @ST3)
cRetorno += TrataRetorno("ACK",ACK)
cRetorno += TrataRetorno("ST1",ST1)
cRetorno += TrataRetorno("ST2",ST2)
cRetorno += TrataRetorno("ST3",ST3)
Return cRetorno