ACBrCEP - Novo WebService

[Igor Bastos]

Bom dia,

estou querendo implementar um novo WebServices no ACBrCEP mas não estou entendendo onde estou errando.

Gostaria de implementar o WebService para o Site CepAberto, que é uma base compartilhada.

Fiz a Classe, implementei os métodos Create, Destroy e BuscaCEP;

Adicionei a Classe no SetWebService;

Mas só me retorna 'Nenhum WebService selecionado'.

 

Segue os trechos que eu alterei da Unit ACBrCEP http://textuploader.com/dkh7a

 

O que estou fazendo de errado?

[Daniel Simoes]

Tente recompilar o Package ACBrTCP... verifique se seu código de seleção do WebService está correto...

[EMBarbosa]

Acho que não dá pra saber só com o código que postou nesse site aí. Sugiro fazer o seguinte:

1. procure no código onde é levantada a exception que tem o texto 'Nenhum WebService selecionado'.
2. Coloque um BreakPoint lá.
3. Execute o programa e faça o seu teste.
4. Quando o programa parar no breakpoint que você adicionou, verifique porque ele não foi para o caminho que esperava.

[Igor Bastos]

8 minutos atrás, Daniel Simoes disse:

Tente recompilar o Package ACBrTCP... verifique se seu código de seleção do WebService está correto...

Se eu ir no InstalarACBr e mandar instalar só o ACBrTCP ele já faz o Build, Compile e Install, correto?

Pois eu estou fazendo assim: Altero, executo o InstalarACBr só com ACBrTCP selecionado e testo...

5 minutos atrás, EMBarbosa disse:

Acho que não dá pra saber só com o código que postou nesse site aí. Sugiro fazer o seguinte:

1. procure no código onde é levantada a exception que tem o texto 'Nenhum WebService selecionado'.
2. Coloque um BreakPoint lá.
3. Execute o programa e faça o seu teste.
4. Quando o programa parar no breakpoint que você adicionou, verifique porque ele não foi para o caminho que esperava.

Já estou fazendo isso e tbm estou fazendo com os que dão certo (que são os que já tinha), mas não consegui identificar onde estou falhando.

[Igor Bastos]

Consegui resolver, foi um erro grotesco: no TACBrWSCEPAberto.BuscarPorCEP eu esqueci de retirar o "inherited;", ou seja, ele estava acessando o método original.

Agora um outro detalhe. O site disponibiliza este código para consultar no Delphi, mas ele usa componente Indy para isso.

Como eu traduzo isso para os métodos do próprio ACBr para que o fOwner.HTTPGet possua o Headers indicado a baixo?

procedure TForm1.Button1Click(Sender: TObject);
var
	strm : TStringStream;
begin
	IdHTTP1.Request.Clear;
	IdHTTP1.Request.CustomHeaders.Clear;
	IdHTTP1.Request.Accept := 'text/html, */*';
	IdHTTP1.Request.CustomHeaders.Add('Authorization: Token token="<CHAVE DE ACESSO>"');
	strm := TStringStream.Create('');
	try
		IdHTTP1.Get('http://www.cepaberto.com/api/v2/ceps.json?cep=17290000', strm);
		Memo1.Text := Utf8ToAnsi( strm.DataString );
	finally
		strm.Free;
	end;
end;

 

[Igor Bastos]

Então, meu problema é que não sei onde eu coloco o Cabeçalho com o token de autorização. Já mudei a requisição para XML em vez de JSON, mas ainda dá acesso negado (por culpa da falta de um cabeçalho que contenha o Token)

[Igor Bastos]

Resolvido o problema.

Para quem eu envio o .PAS para as alterações serem analisadas e postada no SVN?

[Juliomar Marchetti]

Anexe aqui que será avaliado.

[Igor Bastos]

Segue anexo ACBrCEP.pas com as alterações referentes à adição do WebService CepAberto.

Tentei seguir o padrão e adicionei algumas informações no início do .pas.

 

ACBrCEP.pas

[Juliomar Marchetti]

2 horas atrás, Igor Bastos disse:

Segue anexo ACBrCEP.pas com as alterações referentes à adição do WebService CepAberto.

Tentei seguir o padrão e adicionei algumas informações no início do .pas.

 

ACBrCEP.pas

No svn a mudança.

Obrigado pela contribuição

[Igor Bastos]

Fico feliz em poder ajudar. Por favor, marque como Resolvido este tópico.