Em um nível acima de todo o explicado encontra-se o protocolo HTTP, no qual não trata-se apenas de conectar a um servidor, e sim estabelecer um formato para a comunicação entre clientes e servidores. O protocolo HTTP é um dos mais utilizados ao longo da internet, dado que, entre outras coisas, é empregado para transmitir paginas web.

No protocolo HTTP, o cliente solicita ao servidor um documento em uma localização e este o devolve seguindo uma série de convenções acerca da codificação de caracteres, controle de erros, nível de compressão de dados, formato dos dados binários, etc.

O protocolo HTTP estabelece dois métodos principais para solicitar dados ao servidor. O primeiro, e mais comum por ser utilizado para receber paginas web no navegador quando escrevemos um endereço, por exemplo, é chamado método GET, no qual o cliente apenas solicita um endereço URL, devolvendo o servidor o resultado. O segundo método, chamado POST,  o cliente não apenas solicita a URL, e sim envia uma série de informações adicionais que o servidor processará antes de enviar o resultado. É o caso habitual quando preenchemos um formulário com dados em uma pagina web e pressionamos o botão enviar.

Gambas possui no componente gb.net.curl, um cliente chamado HttpClient, que provê acesso a servidores HTTP. O trabalho de negociação entre cliente e servidor, assim com a gestão de formatos, é tarefa interna do cliente HTTP, a aplicação que desenvolvemos só terá de preocupar-se em pedir um documento e recebe-lo.

O cliente HTTP pode funcionar de dois modos: o mais simples é o modo síncrono, nele que recebemos diretamente o documento após a chamada e os métodos GET ou POST; no segundo, assíncrono, o modo de trabalho se parece mais ao descrito para os sockets: com a aplicação em funcionamento iremos recebendo fragmentos do documentos em cada evento READ que uniremos em uma cadeia.

Criaremos um projeto de console para receber a pagina web http://gambas.gnulinex.org/gtk/.  Terá uma referência a gb.net e um módulo ModMain,com este código:

' Gambas module file


PUBLIC SUB Main()

DIM Http AS HttpClient

DIM sCad AS String


Http = NEW HttpClient

Http.Async = FALSE

Http.TimeOut = 10

Http.URL = "http://gambas.gnulinex.org/gtk/"

Http.Get()


IF Http.Status < 0 THEN

PRINT "Erro ao receber a pagina"

ELSE

PRINT sCad

END IF


CLOSE #Http


END

' Gambas module file


PUBLIC SUB Main()

DIM Http AS HttpClient

DIM sCad AS String


Http = NEW HttpClient

Http.Async = FALSE

Http.TimeOut = 10

Http.URL = "http://gambas.gnulinex.org/gtk/"

Http.Get()

 
IF Http.Status < 0 THEN

PRINT "Erro ao receber a pagina"

ELSE

READ #Http, sCad, Lof(Http)

PRINT sCad


PRINT "\n-------------Metadados------------------\n"

FOR EACH sCad IN Http.Headers

PRINT sCad

NEXT

END IF


CLOSE #Http


END