Edvaldo1361303230

Show de bola João, obrigado. Veja se você consegue também o seguinte: Hoje eu já me conecto com outro computador via socket, como eu faço para transformar esta conexão numa unidade de rede, tipo: net use z: \\nome do micro\unidade Edvaldo

Ola Amigos, Estou usando comunição entre dois pcs com os exemplos do sample server.prg e client.prg. A comunicação está Ok porém na transferência de arquivo, o arquivo transferido fica bloqueado com uma mensagem do windows "o arquivo está sendo usado por outro processo" e somente é liberado após fechar o server.exe A transferencia de dados do server para o client funciona perfeitamente porém do client para o server não funciona. Alguem sabe como corrigir isso Transferencia e arquivo: Function SendFile() local cFileName := cGetFile( "*.*", "Selecione um arquivo para enviar pela internete" ) if ! Empty( cFileName ) .and. File( cFileName ) oSocket:SendData( "SENDFILE " + cFileName( cFileName ) ) oSocket:SendFile( cFileName ) MsgInfo( "O Arquivo: "+cFileName+" Foi Enviado com Sucesso!" ) endif return nil Transferencia de dados Funcionando do server para o client: DEFINE BUTTON OF oBar ACTION oClient:SendData( "Essa Mensagem Foi Enviada Pelo Servidor!" ) TOOLTIP "Falar com o cliente" Transferencia de dados não Funciona do client p/o server: DEFINE BUTTON OF oBar ; ACTION oSocket:SendData( "Mensagem Enviada pelo Cliente" ) ; TOOLTIP "Enviar Dados" Obrigado Edvaldo

Ola Amigos, Estou usando comunição entre dois pcs com os exemplos do sample server.prg e client.prg. A comunicação está Ok porém na transferência de arquivo, o arquivo transferido fica bloqueado com uma mensagem do windows "o arquivo está sendo usado por outro processo" e somente é liberado após fechar o server.exe A transferencia de dados do server para o client funciona perfeitamente porém do client para o server não funciona. Alguem sabe como corrigir isso Transferencia e arquivo: Function SendFile() local cFileName := cGetFile( "*.*", "Selecione um arquivo para enviar pela internete" ) if ! Empty( cFileName ) .and. File( cFileName ) oSocket:SendData( "SENDFILE " + cFileName( cFileName ) ) oSocket:SendFile( cFileName ) MsgInfo( "O Arquivo: "+cFileName+" Foi Enviado com Sucesso!" ) endif return nil Transferencia de dados Funcionando do server para o client: DEFINE BUTTON OF oBar ACTION oClient:SendData( "Essa Mensagem Foi Enviada Pelo Servidor!" ) TOOLTIP "Falar com o cliente" Transferencia de dados não Funciona do client p/o server: DEFINE BUTTON OF oBar ; ACTION oSocket:SendData( "Mensagem Enviada pelo Cliente" ) ; TOOLTIP "Enviar Dados" Obrigado Edvaldo

Legal, tem sim esta outra opção, vou tentar assim. Obrigado Edvaldo

Legal, pode ser que eu esteja no caminho errado. Como voce fez para: - Enviar a mensagem ao pin pad para Inserir o Cartão e confirmar se o cartão está presente - Lê a senha do cartão Obrigado Edvaldo

estou uando a dll CLISITEF32I.DLL edvaldo

Pessoal essa declaração foi eu que fiz, ta correto? Obrigado Edvaldo

Abaixo estão os retornos da função, ou sejam, estão como se não tivesse cartão no pin pad gertec ppc 900 usb. xResp: 0 cResultado: -00005 cMensagem: Insira ou Passe o Cartao cTCTrilha1: 000000000000 cTrilha1: {} cTCTrilha2: 000000000000 cTrilha2: {} cTimeout: 30 Estou usando a função LeSenha e está funcionando ok. Edvaldo

ok, já aumentei e não resolveu. ja coloquei 0 (zero) tambem. Obrigado Edvaldo

Ola amigos, estou integrando meu software com o TEF SiTef e estou com problemas na função de leitura do cartão. Esta retornando um erro -000005 e não lê o cartão e nem escreve a mensagem no display.Estou usando exemplos aqui do forum: cResultado:=Space(6) cMensagem :="Insira ou Passe" cTCTrilha1:=Space(12) cTrilha1 :=Space(128) cTCTrilha2:=Space(12) cTrilha2 :=Space(64) cTimeOut :="3" xResp:=LeCartao(cResultado,cMensagem,cTCTrilha1,cTrilha1,; cTCTrilha2,cTrilha2,cTimeout) DLL32 FUNCTION LeCartao(pResultado AS LPSTR,pMensagem AS LPSTR,TCTrilha1 AS LPSTR, ; Trilha1 AS LPSTR,TCTrilha2 AS LPSTR, Trilha2 AS LPSTR, Timeout AS LPSTR) AS LONG PASCAL ; FROM "LeCartaoDiretoSeguroA" LIB xDllTef Desde já agradeço Edvaldo

Ola amigos, estou integrando meu software com o TEF SiTef e estou com problemas na função de leitura do cartão. Esta retornando um erro -000005 e não lê o cartão e nem escreve a mensagem no display.Estou usando exemplos aqui do forum: cResultado:=Space(6) cMensagem :="Insira ou Passe" cTCTrilha1:=Space(12) cTrilha1 :=Space(128) cTCTrilha2:=Space(12) cTrilha2 :=Space(64) cTimeOut :="3" xResp:=LeCartao(cResultado,cMensagem,cTCTrilha1,cTrilha1,; cTCTrilha2,cTrilha2,cTimeout) DLL32 FUNCTION LeCartao(pResultado AS LPSTR,pMensagem AS LPSTR,TCTrilha1 AS LPSTR, ; Trilha1 AS LPSTR,TCTrilha2 AS LPSTR, Trilha2 AS LPSTR, Timeout AS LPSTR) AS LONG PASCAL ; FROM "LeCartaoDiretoSeguroA" LIB xDllTef Desde já agradeço Edvaldo

Tive que exportar os produtos pro arquivo texto pricetab.txt mesmo é muito complicado fazer as declarações das funções, deus me livre e o suporte da gertec não tá nem ai pra te ajudar.é melhor tentar o concorrente. Edvaldo

nome grande é só usar LFN2SFN(

A bematech tem um driver para esta impressora, é só instalar

Pessoal estamos quase chegando la, o pessoal da gertec me passou está função antes de escrever no display dos terminais: Suporte On-Line - GERTEC> Função GetTabConectados: TTABSOCK ( _stdcall *pfun_GetTabConectados) (int nada); Suporte On-Line - GERTEC> typedef struct { int tabSock[1024]; DWORD tabIP[1024]; int numSockConec; } TTABSOCK; Esta função é equivalente a uma declaração feito pelo Gilmer para um outro equipamento e que está funcionando: #include "windows.h" #include "hbapi.h" #include "structs.h" static HINSTANCE handle = NULL; typedef TTABSOCK (WINAPI * _MT_CONNECTLIST)( void); HB_FUNC( MT_CONNECTLIST) { if (handle) { _MT_CONNECTLIST pFunc; TTABSOCK tsock; pFunc = (_MT_CONNECTLIST) GetProcAddress(handle, "mt_connectlist"); Sleep(200); tsock = pFunc( ); hb_reta(5); hb_storni(tsock.TabSock[1],-1,1); hb_storni(tsock.TabSock[2],-1,2); hb_storni(tsock.TabSock[3],-1,3); hb_storni(tsock.TabSock[4],-1,4); hb_storni(tsock.TabSock[5],-1,5); //hb_retc( pFunc ); } }