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 ); } }

não entendi o etc...

é da sc501ger.dll gertec para controle de terminais. Do Manual da dll: bSendProdNotFound Envia Mensagem de produto não encontrado; function bSendProdNotFound(ID: Integer):boolean; stdcall; bSendDisplayMsg Envia Mensagem para o Display do terminal. function bSendDisplayMsg( ID: Integer; var Line1, Line2 : byte; TimeExhibition, TypeAnimation : WORD ): boolean; stdcall; - Line1/2: string com as mensagens de cada linha do display. - TimeExhibition: Tempo de exibição da mensagem. - TypeAnimation: Reservado, deve ser 48. bSendImageFromFile1 function bReceiveBarcode(var ID: integer; var Porta: integer;var buffer: byte; var Nbr: integer): boolean; stdcall; - ID: valor do SOCKET que enviou o dado. - Porta: porta que foi lido dados da serial. - buffer: dados recebidos da serial. - nbr: número de dados lido da serial. - Retorna: true se recebeu algum dado, false se não tem nenhum dado a ser lido. function bSendProdPrice(ID: Integer; var NameProd, PriceProd : byte): Boolean; stdcall; - NameProd: string com nome do produto; - PriceProd: string com preço do produto. Se alguem fizer pelo menos uma declaração já ajuda Obrigado

Amigos só posso recorrer a voces. Alguem consegue declarar essas funcoes em C? me mande a fatura depois. Enviar Mensagem para o display: ( _stdcall *pfun_bSendDisplayMsg ) ( int ID, char *line1, char *line2, WORD timeExhibition, WORD typeAnimation ); Receber Código de Barras: ( _stdcall *pfun_bReceiveBarcode ) ( int *ID, int *porta, char *buffer, int *nBr ); Função para enviar o produto para o display quando encontrado: ( _stdcall *pfun_bSendProdPrice ) ( int ID, char *nameProd, char *priceProd ); Quando não encontrado: ( _stdcall *pfun_bSendProdNotFound ) ( int ID ); Todas do tipo BOOL Obrigado Edvaldo

Amigos só posso recorrer a voces. Alguem consegue declarar essas funcoes em C? me mande a fatura depois. Enviar Mensagem para o display: ( _stdcall *pfun_bSendDisplayMsg ) ( int ID, char *line1, char *line2, WORD timeExhibition, WORD typeAnimation ); Receber Código de Barras: ( _stdcall *pfun_bReceiveBarcode ) ( int *ID, int *porta, char *buffer, int *nBr ); Função para enviar o produto para o display quando encontrado: ( _stdcall *pfun_bSendProdPrice ) ( int ID, char *nameProd, char *priceProd ); Quando não encontrado: ( _stdcall *pfun_bSendProdNotFound ) ( int ID ); Todas do tipo BOOL Obrigado Edvaldo

Ok, estou quebrando cabeça com um terminal consulta de preços "Busca Preço" da Gertec. Ele tem um número de IP, recebe e envia dados para um computador via Servidor, fica na conectado com o cabo de rede normal. Tem uma DLL mas estou tendo uns erros do windows em determinadas funções. O fabricante tem um programa servidor que funciona beleza mas, eu queria usar o fivewin. Edvaldo

Ola, amigos, tem como escrever direto para um equaipamento que está num determinado número de IP? Assim com se escreve numa porta serial? Obrigado

Ola, amigos, tem como escrever direto para um equaipamento que está num determinado número de IP? Assim com se escreve numa porta serial? Obrigado

Uso o Team Viewer e testei o ammyy, o team viewer é bem mais rápido. Edvaldo

Pra padaria ja trabalhei com o MT 720 da Gertec com um programa de comprei do gilmer, show de bola. Edvaldo

Qual servidor o amigo está usando? Tentei usar o ServUni da Gertec mas não consegui configurar o ODBC com .dbf e .cdx