PC Toledo

Se usar fivewin tem que tirar a transparencia da imagem.

Image_1:lTransparent := .F.

Até onde sei FIvewin não tem nada (comunicação extra) é tudo do Harbour ou xHarbour.
Fivewin ´é uma lib gráfica.
Poderá se quiser colocar os códigos "do fivewin" para podermos comprovar.

No fivewin é a Classe tSocket que esta em .\Class\tSocket.prg

Pesquisando no harbour verifiquei que é a ...

Nacimento para cominicar com esta placa voce precisa apenas dos comando SOCKET

Eu uso estes comando via TcpIp para comunicar com concentrador de bombas de postos de combustiveis.
No harbour não sei qual a classe pois uso fivewin. Mai deve tambem ter.

Ola, baixe em command line tools.

http://www.xpdfreader.com/

Ola, eu baixo neste link aqui

https://github.com/harbour/core.git

Oi Quintas
Procura saber qual tipo de autenticação usa

Ola Quintas, boa tarde.
Nunca mexi com IFOOD, mais a logica tem que ser apenas 2
Sistema oAuth1 ou oAuth2
Hoje todos usam o sistema oAuth2

Tenta esta logica aqui


cJson := '{"client_id":"usersofthose",;
"&client_secret":"senhasofthouse",;
"&grant_type":"client_credentials",;
"&username ...

Eu utilizo o ChilKat component
Adicione meu skype que eu explicarei como funciona.
skype: giovany.vecchi

Uma listagem usando Ads WebServer.
Neste exemplo não esta usando nenhum framework.
Apenas dados. O retorno esta defnido em json. copie o endereço e cole no Mozila Firefox, o Firefox tem tratamento de dados json.

http://usuario:123@168.205.46.26:6272/adsweb/example_db/v1/__query?statement=Select%20 ...

Desde 2014 faço conexão por internet nos meus clientes. Uso Ads AIS (Advantage Internet Server) com dicionario de dados e tabelas ADT. A velocidade é impressionante. Uso comandos SQL e recursos API com advantage.
Se Voce usa dbf fica facil a migração.

Se quiser testar e acessar um pequeno exemplo ...

Olha, se quiser tentar Ads, eu uso a 12 anos e nos meus sistemas os clientes acessam via internet como se tivesse na rede local.
Sem falar de mult conexões, replica, triggers, procedures e functions.
O problema é que ads remoto tem custo, e não é barato. Mais meus clientes não reclamaram depois que ...

Pode tentar fazer assim


aCamp := {;
"CC_CODBAN",;
"CC_NOME",;
<||
LOCAL cRetMoeda := ""
IF CC_MOEDA = 'R'
cRetMoeda := 'REAL '
ELSEIF CC_MOEDA = 'G'
cRetMoeda := 'GUARANI'
ELSEIF CC_MOEDA = 'D'
cRetMoeda := 'DOLAR '
ELSEIF CC_MOEDA = 'P'
cRetMoeda := 'PESO '
ELSE
cRetMoeda := "NAO ...

Entendi

CREATE CLASS My_Class

Method New() Constructor
method Teste_Cria_Data()
ENDCLASS
////////////////////
Method New() Class My_Class

Return Self
/////////////////////
Method Teste_Cria_Data() Class My_Class
Local oSelf := Hb_qSelf()

__objAddData(oSelf,"My_Data_Criado") // Criando em ...

Se eu entendi a sua questão deve ser isto:

Por isso que no mesmo micro de onde gerei nunca deu problemas. Bom, pelo menos agora sei o que é.
Vou fazer um roteiro de como migrar para ADS e usar 90% dos códigos e tabelas e adaptando para as novas rotinas nos estilos DATASET, misturando o antigo com os procedimentos novos.
O roteiro vai estar ...