Jump to content
Fivewin Brasil

Alguem se habilita:

aokisantos

By aokisantos
in Programação

 Share

Recommended Posts

aokisantos Newbie

aokisantos

Posted
Posted

Pessoal, preciso converter estas funções para FWH + xharbour, para poder usar a DLL da GERTEC, alguem de habilita em dar um help para converter?

// INICIALIZAÇÃO E FINALIZAÇÃO

function mt_startserver(mywhnd: HWND; conecmsg: DWORD; commumsg: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

procedure mt_finishserver; far; stdcall; external 'pmtg.dll';

function mt_connectlist: TTABSOCK; far; stdcall; external 'pmtg.dll';

// FUNÇÕES DE TRATAMENTO DE IP

function mt_inet_ntoa_inv(oip: DWORD): PChar; far; stdcall; external 'pmtg.dll';

function mt_inet_addr_inv(oip: String): DWORD; far; stdcall; external 'pmtg.dll';

// COMANDOS BÃSICOS PARA O TERMINAL

function mt_sendlive(id: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_restart(id: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_ftpmode(id: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

// REDE

function mt_sendconfig(id: DWORD; var config: TSetupTCP): DWORD; far; stdcall; external 'pmtg.dll';

function mt_reqconfig(id: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_getconfig(id: DWORD; var config: TSetupTCP): DWORD; far; stdcall; external 'pmtg.dll';

function mt_sendexconfig(id: DWORD; var configex: TExSetupTCP): DWORD; far; stdcall; external 'pmtg.dll';

function mt_reqexconfig(id: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_getexconfig(id: DWORD; var configex: TExSetupTCP): DWORD; far; stdcall; external 'pmtg.dll';

// DISPLAY

function mt_backspace(id: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_carret(id: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_linefeed(id: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_formfeed(id: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_gotoxy(id: DWORD; lin: DWORD; col: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_gotoxyref(id: DWORD; lin: DWORD; col: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_dispstr(id: DWORD; var str: BYTE): DWORD; far; stdcall; external 'pmtg.dll';

function mt_dispch(id: DWORD; ch: BYTE): DWORD; far; stdcall; external 'pmtg.dll';

function mt_dispclrln(id: DWORD; lin: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_seteditstring(id: DWORD; var str: BYTE; OnOff: DWORD; PassWord: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_geteditstring(id: DWORD; var str: BYTE): DWORD; far; stdcall; external 'pmtg.dll';

function mt_reqeditstring(id: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

// TECLADO

function mt_setenablekey(id: DWORD; OnOff: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_getenablekey(id: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_setcapslock(id: DWORD; OnOff: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_getcapslock(id: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_setnumlock(id: DWORD; OnOff: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_getnumlock(id: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_reset(id: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_setbeep(id: DWORD; OnOff: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_setbeepkey(id: DWORD; OnOff: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_getkey(id: DWORD; var buf: BYTE): DWORD; far; stdcall; external 'pmtg.dll';

function mt_programkbd(id: DWORD; var codigo: BYTE): DWORD; far; stdcall; external 'pmtg.dll';

// SERIAL

function mt_setenableserial(id: DWORD; COM: BYTE; OnOff: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_getenableserial(id: DWORD; COM: BYTE): DWORD; far; stdcall; external 'pmtg.dll';

function mt_sendbinserial(id: DWORD; COM: BYTE; var bin: BYTE; tam: BYTE): DWORD; far; stdcall; external 'pmtg.dll';

function mt_sendconfigserial(id: DWORD; var config: ARG_COM_SETUPSERIAL): DWORD; far; stdcall; external 'pmtg.dll';

function mt_reqconfigserial(id: DWORD; COM: BYTE): DWORD; far; stdcall; external 'pmtg.dll';

function mt_getconfigserial(id: DWORD; var config: ARG_COM_SETUPSERIAL): DWORD; far; stdcall; external 'pmtg.dll';

function mt_getserial(id: DWORD; var sercom: DWORD; var buf: array of BYTE): DWORD; far; stdcall; external 'pmtg.dll';

function mt_settermserial(id: DWORD; COM: DWORD; TERM: DWORD; OnOff: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

// CARTÃO

function mt_sendsetcard(id: DWORD; OnOff: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_reqgetcard(id: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_getcardbuf(id: DWORD; var cardbuf: ARG_CARD): DWORD; far; stdcall; external 'pmtg.dll';

FWH8.02

PELLES+SQLLIB+MYSQL

Link to comment
Share on other sites
aokisantos Newbie

aokisantos

Posted
  • Author
Posted

Pessoal, preciso converter estas funções para FWH + xharbour, para poder usar a DLL da GERTEC, alguem de habilita em dar um help para converter?

// INICIALIZAÇÃO E FINALIZAÇÃO

function mt_startserver(mywhnd: HWND; conecmsg: DWORD; commumsg: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

procedure mt_finishserver; far; stdcall; external 'pmtg.dll';

function mt_connectlist: TTABSOCK; far; stdcall; external 'pmtg.dll';

// FUNÇÕES DE TRATAMENTO DE IP

function mt_inet_ntoa_inv(oip: DWORD): PChar; far; stdcall; external 'pmtg.dll';

function mt_inet_addr_inv(oip: String): DWORD; far; stdcall; external 'pmtg.dll';

// COMANDOS BÃSICOS PARA O TERMINAL

function mt_sendlive(id: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_restart(id: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_ftpmode(id: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

// REDE

function mt_sendconfig(id: DWORD; var config: TSetupTCP): DWORD; far; stdcall; external 'pmtg.dll';

function mt_reqconfig(id: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_getconfig(id: DWORD; var config: TSetupTCP): DWORD; far; stdcall; external 'pmtg.dll';

function mt_sendexconfig(id: DWORD; var configex: TExSetupTCP): DWORD; far; stdcall; external 'pmtg.dll';

function mt_reqexconfig(id: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_getexconfig(id: DWORD; var configex: TExSetupTCP): DWORD; far; stdcall; external 'pmtg.dll';

// DISPLAY

function mt_backspace(id: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_carret(id: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_linefeed(id: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_formfeed(id: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_gotoxy(id: DWORD; lin: DWORD; col: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_gotoxyref(id: DWORD; lin: DWORD; col: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_dispstr(id: DWORD; var str: BYTE): DWORD; far; stdcall; external 'pmtg.dll';

function mt_dispch(id: DWORD; ch: BYTE): DWORD; far; stdcall; external 'pmtg.dll';

function mt_dispclrln(id: DWORD; lin: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_seteditstring(id: DWORD; var str: BYTE; OnOff: DWORD; PassWord: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_geteditstring(id: DWORD; var str: BYTE): DWORD; far; stdcall; external 'pmtg.dll';

function mt_reqeditstring(id: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

// TECLADO

function mt_setenablekey(id: DWORD; OnOff: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_getenablekey(id: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_setcapslock(id: DWORD; OnOff: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_getcapslock(id: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_setnumlock(id: DWORD; OnOff: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_getnumlock(id: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_reset(id: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_setbeep(id: DWORD; OnOff: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_setbeepkey(id: DWORD; OnOff: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_getkey(id: DWORD; var buf: BYTE): DWORD; far; stdcall; external 'pmtg.dll';

function mt_programkbd(id: DWORD; var codigo: BYTE): DWORD; far; stdcall; external 'pmtg.dll';

// SERIAL

function mt_setenableserial(id: DWORD; COM: BYTE; OnOff: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_getenableserial(id: DWORD; COM: BYTE): DWORD; far; stdcall; external 'pmtg.dll';

function mt_sendbinserial(id: DWORD; COM: BYTE; var bin: BYTE; tam: BYTE): DWORD; far; stdcall; external 'pmtg.dll';

function mt_sendconfigserial(id: DWORD; var config: ARG_COM_SETUPSERIAL): DWORD; far; stdcall; external 'pmtg.dll';

function mt_reqconfigserial(id: DWORD; COM: BYTE): DWORD; far; stdcall; external 'pmtg.dll';

function mt_getconfigserial(id: DWORD; var config: ARG_COM_SETUPSERIAL): DWORD; far; stdcall; external 'pmtg.dll';

function mt_getserial(id: DWORD; var sercom: DWORD; var buf: array of BYTE): DWORD; far; stdcall; external 'pmtg.dll';

function mt_settermserial(id: DWORD; COM: DWORD; TERM: DWORD; OnOff: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

// CARTÃO

function mt_sendsetcard(id: DWORD; OnOff: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_reqgetcard(id: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_getcardbuf(id: DWORD; var cardbuf: ARG_CARD): DWORD; far; stdcall; external 'pmtg.dll';

FWH8.02

PELLES+SQLLIB+MYSQL

Link to comment
Share on other sites
aokisantos Newbie

aokisantos

Posted
  • Author
Posted

Pessoal ao menos estas três:

function mt_connectlist: TTABSOCK; far; stdcall; external 'pmtg.dll';

function mt_restart(id: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

function mt_seteditstring(id: DWORD; var str: BYTE; OnOff: DWORD; PassWord: DWORD): DWORD; far; stdcall; external 'pmtg.dll';

FWH8.02

PELLES+SQLLIB+MYSQL

Link to comment
Share on other sites
Kbelo Newbie

Kbelo

Posted
Posted 



*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* 


Function zFUNDLL(yDLL,yFUN,PAR01,PAR02,PAR03,PAR04,PAR05,PAR06,PAR07,PAR08,PAR09,PAR10,;


                           PAR11,PAR12,PAR13,PAR14,PAR15,PAR16,PAR17,PAR18,PAR19,PAR20,;


                           PAR21,PAR22,PAR23,PAR24,PAR25,PAR26,PAR27,PAR28,PAR29,PAR30 ) 


*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* 


#define DC_CALL_STD 0X0020 


#define MAX_PATH 260 


Private hDLL:=LoadLibrary(yDLL) 


Private parametro01 := PAR01 


//Se necessitar de mais parametros é só declarar como Private aqui acima e incluir ,Parametro2 e assim por diante.


uResult := DLLCALL(hDLL,32,yFUN,parametro) 


RETURN uResult 


id=code>id=code>
Amigo vc pode usar essa unção que uso como padrão para qualquer DLL sem precisar declarar.


Marcelo Michels


marcelo@infototal.com.br


celo.michels@hotmail.com


xHarbour 1.1 + Fwh 8.01 + WorkShop + Bcc 5.82 + WvwTools + SQLRDD + xMate.



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Kbelo
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


Kbelo
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

function mt_connectlist: TTABSOCK; far; stdcall; external 'pmtg.dll'; 






DLL32 Function mt_connectlist() AS STRING PASCAL FROM "mt_connectlist" LIB "pmtg.dll"


ou 


DLL32 Function mt_connectlist() AS LONG PASCAL FROM "mt_connectlist" LIB "pmtg.dll"


id=code>id=code>
function mt_restart(id: DWORD): DWORD; far; stdcall; external 'pmtg.dll'; 






DLL32 Function mt_restart(ID AS INT) AS STRING PASCAL FROM "mt_restart" LIB "pmtg.dll"


ou 


DLL32 Function mt_restart(ID AS LONG) AS LONG PASCAL FROM "mt_restart" LIB "pmtg.dll"


//Faz com que o terminal se reinicialize (IDRestart).


//retorna: <=0 houve erro, 1 se comando realizado com sucesso.


id=code>id=code>
function mt_seteditstring(id: DWORD; var str: BYTE; OnOff: DWORD; PassWord: DWORD): DWORD; far; stdcall; external 'pmtg.dll';






DLL32 Function mt_seteditstring(ID AS INT, STR AS STRING, OnOff AS BOOL, Pass AS BOOL) AS STRING PASCAL FROM "mt_seteditstring" LIB "pmtg.dll"


ou 


DLL32 Function mt_seteditstring(ID AS INT, STR AS STRING, OnOff AS BOOL, Pass AS BOOL) AS LONG PASCAL FROM "mt_seteditstring" LIB "pmtg.dll"


//Envia o comando de EditString para o terminal (IDvSetEditString).


//String: String inicial da edição de texto.


//OnOff: ativa (1) e desativa (0) o modo de edição de string.


//PassWord: habilita (1) e desabilita (0) o modo de edição em modo protegido (senha).


//retorna: <=0 houve erro, 1 se comando realizado com sucesso.


id=code>id=code>
Acho que é isso qualquer coisa é só chamar


Marcelo Michels


marcelo@infototal.com.br


celo.michels@hotmail.com


xHarbour 1.1 + Fwh 8.01 + WorkShop + Bcc 5.82 + WvwTools + SQLRDD + xMate.



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					





					
					
					
				
			
			



		

	


	
	
	
	
	
		
	

			
				
				

	
		

			
Join the conversation

			

	
				
					You can post now and register later.
				
				If you have an account, sign in now to post with your account.
				
			

	
		

	




	
	
		
	
		
	
		
	
	
		
		
	
	

		

		


	
		Guest
	


		

			
				
					
				
					
						
    
							
  • 
								


	
	
	
	

								
							
    • 
						

					
				
					
				
			
			
				
					
						
							
						
						



    

		
		

			
		

		
			
 Reply to this topic...

		
		

			

				
					×
					  Pasted as rich text.   Paste as plain text instead
				
			

		

		

			

				  Only 75 emoji are allowed.
			

		

		

			

				×
				  Your link has been automatically embedded.   Display as a link instead
			

		

		

			

			

		

		

			

				×
				  Your previous content has been restored.   Clear editor
			

		

		

			

				×
				  You cannot paste images directly. Upload or insert images from URL.
			

		

		


	

		

			
			

				Loading...
			

		
		
	



	

	

		

			×
			
		

		

	



						
					
				
					
				
					
				
			
			
    
				
					
						
					
						
					
						
							
  • 
								

    
	

    
								
							
    • 
						
					
				
				
					
  • 

	

    • 
				
			

		

	



			
		

	

	
		

			

				
					


    
          Share
    

    

        
        
            

            
        
    


				
				
                

                




				
			

		

	







	

		
			
				Go to topic listing
			
		
	

	




						


					

					


					

				

			

			
		

		
		


	

		×
		

			
				

					
				

			

			

			

			
		

	






	

		×
		

			
    
				
  • Create New...
    •