Estou tentando fazer uma rotina simples de download em Harbour.
Buscando informações aqui, encontrei a classe TIpClient().
Mal comecei a escrever e já empaquei num erro que não encontrei solução.
Em tempo de execução, aparece um ALERT com o erro: Error BASE/1081 Operation not supported: TIPCLIENTHTTP:new()
Veja o que escrevi até agora:
Código: Selecionar todos
palavra = space(50)
@10,10 say "Digite a frase para gerar cód QR:"
@11,10 get palavra
read
palavra = alltrim(palavra)
url = "https://chart.googleapis.com/chart?chs=150x150&cht=qr&chl="+palavra
oConexao := TIpClientHttp():New(url)
oConexao:open(url)
arquivo = "c:\projetos\distrib\download\qr"
oConexao:readToFile(arquivo)
oConexao:close()