BuscaCEP adalah perpustakaan untuk berkonsultasi alamat online, memungkinkan pencarian berdasarkan CEP (Kode Alamat Pos) atau melalui jalan (UF, Lokalitas dan Jalan).
Diimplementasikan dalam bahasa Delphi
, menggunakan konsep antarmuka yang lancar untuk memandu penggunaan perpustakaan, dikembangkan untuk menawarkan kepraktisan dan efisiensi, BuscaCEP mengintegrasikan pemain utama di pasar: Correios, ViaCEP, BrasilAPI, dan lain-lain.
Pustaka ini ideal bagi pengembang Delphi yang mencari solusi kuat, fleksibel dan efisien untuk mengintegrasikan permintaan alamat online ke dalam aplikasi mereka.
Menggunakan Boss (Manajer Ketergantungan untuk Delphi) dimungkinkan untuk menginstal perpustakaan secara otomatis.
boss install https://github.com/antoniojmsjr/BuscaCEP
Jika Anda memilih untuk menginstal secara manual, cukup tambahkan folder berikut ke proyek Anda, di bawah Project > Options > Delphi Compiler > Target > All Configurations > Search path
.. BuscaCEP Source
Penyedia | Apakah Anda menggunakan APIKey? | Cari berdasarkan kode pos? | * Mencari Tempat Umum? |
---|---|---|---|
Surat | TIDAK | YA | YA |
Melalui CEP | TIDAK | YA | YA |
API Brasil | TIDAK | YA | TIDAK |
Buka CEP | YA | YA | YA |
Republik Virtual | TIDAK | YA | TIDAK |
Kode pos yang benar | TIDAK | YA | YA |
RajaHost | YA | YA | TIDAK |
Postmon | TIDAK | YA | TIDAK |
CEP gratis | YA | YA | YA |
Buka CEP | YA | YA | YA |
API CEP | YA | YA | YA |
Brasil Terbuka | YA | YA | YA |
API yang luar biasa | TIDAK | YA | TIDAK |
* Untuk melakukan kueri menggunakan alamat jalan, diperlukan tiga parameter wajib: Negara Bagian, Kota, dan Jalan .
Untuk menyediakan kode IBGE dan kode DDD untuk lokasi saat mengembalikan kueri, file BuscaCEP .dat dibuat, berdasarkan API lokasi IBGE dan data yang disediakan oleh Anatel.
Contoh tersedia di folder proyek:
.. BuscaCEP Samples
Kueri berdasarkan kode pos
uses
BuscaCEP , BuscaCEP .Types, BuscaCEP .Interfaces, System.SysUtils;
var
l BuscaCEP Response: I BuscaCEP Response;
lMsgError: string;
begin
try
l BuscaCEP Response := T BuscaCEP .New
// .SetArquivoCache() [OPCIONAL]
.Providers[T BuscaCEP ProvidersKind.Correios]
// .SetAPIKey() [CONFORME O PROVEDOR]
.Filtro
.SetCEP( ' 90520-003 ' )
.Request
// .SetTimeout() [OPCIONAL]
.Execute;
except
on E: E BuscaCEP Request do
begin
lMsgError := Concat(lMsgError, Format( ' Provider: %s ' , [E.Provider]), sLineBreak);
lMsgError := Concat(lMsgError, Format( ' DateTime: %s ' , [DateTimeTostr(E.DateTime)]), sLineBreak);
lMsgError := Concat(lMsgError, Format( ' Kind: %s ' , [E.Kind.AsString]), sLineBreak);
lMsgError := Concat(lMsgError, Format( ' URL: %s ' , [E.URL]), sLineBreak);
lMsgError := Concat(lMsgError, Format( ' Method: %s ' , [E.Method]), sLineBreak);
lMsgError := Concat(lMsgError, Format( ' Status Code: %d ' , [E.StatusCode]), sLineBreak);
lMsgError := Concat(lMsgError, Format( ' Status Text: %s ' , [E.StatusText]), sLineBreak);
lMsgError := Concat(lMsgError, Format( ' Message: %s ' , [E.Message]));
Application.MessageBox(PWideChar(lMsgError), ' A T E N Ç Ã O ' , MB_OK + MB_ICONERROR);
Exit;
end ;
on E: Exception do
begin
Application.MessageBox(PWideChar(E.Message), ' A T E N Ç Ã O ' , MB_OK + MB_ICONERROR);
Exit;
end ;
end ;
end ;
Konsultasi melalui Jalan
uses
BuscaCEP , BuscaCEP .Types, BuscaCEP .Interfaces, System.SysUtils;
var
l BuscaCEP Response: I BuscaCEP Response;
lMsgError: string;
begin
try
l BuscaCEP Response := T BuscaCEP .New
// .SetArquivoCache() [OPCIONAL]
.Providers[T BuscaCEP ProvidersKind.Correios]
// .SetAPIKey() [CONFORME O PROVEDOR]
.Filtro
.SetLogradouro( ' Avenida Plínio Brasil Milano ' )
.SetLocalidade( ' Porto Alegre ' )
.SetUF( ' RS ' )
.& End
.Request
// .SetTimeout() [OPCIONAL]
.Execute;
except
on E: E BuscaCEP Request do
begin
lMsgError := Concat(lMsgError, Format( ' Provider: %s ' , [E.Provider]), sLineBreak);
lMsgError := Concat(lMsgError, Format( ' DateTime: %s ' , [DateTimeTostr(E.DateTime)]), sLineBreak);
lMsgError := Concat(lMsgError, Format( ' Kind: %s ' , [E.Kind.AsString]), sLineBreak);
lMsgError := Concat(lMsgError, Format( ' URL: %s ' , [E.URL]), sLineBreak);
lMsgError := Concat(lMsgError, Format( ' Method: %s ' , [E.Method]), sLineBreak);
lMsgError := Concat(lMsgError, Format( ' Status Code: %d ' , [E.StatusCode]), sLineBreak);
lMsgError := Concat(lMsgError, Format( ' Status Text: %s ' , [E.StatusText]), sLineBreak);
lMsgError := Concat(lMsgError, Format( ' Message: %s ' , [E.Message]));
Application.MessageBox(PWideChar(lMsgError), ' A T E N Ç Ã O ' , MB_OK + MB_ICONERROR);
Exit;
end ;
on E: Exception do
begin
Application.MessageBox(PWideChar(E.Message), ' A T E N Ç Ã O ' , MB_OK + MB_ICONERROR);
Exit;
end ;
end ;
end ;
Hasil Kueri [Respon I BuscaCEP ]
uses
BuscaCEP .Types, BuscaCEP .Interfaces;
var
l BuscaCEP Response: I BuscaCEP Response;
l BuscaCEP Logradouro: T BuscaCEP Logradouro;
begin
for l BuscaCEP Logradouro in l BuscaCEP Response.Logradouros do
begin
l BuscaCEP Logradouro.Logradouro;
l BuscaCEP Logradouro.Complemento;
l BuscaCEP Logradouro.Unidade;
l BuscaCEP Logradouro.Bairro;
l BuscaCEP Logradouro.Localidade.Nome;
l BuscaCEP Logradouro.Localidade.IBGE;
l BuscaCEP Logradouro.Localidade.DDD;
l BuscaCEP Logradouro.Localidade.Estado.Nome;
l BuscaCEP Logradouro.Localidade.Estado.IBGE;
l BuscaCEP Logradouro.Localidade.Estado.Sigla;
l BuscaCEP Logradouro.Localidade.Estado.Regiao.Nome;
l BuscaCEP Logradouro.Localidade.Estado.Regiao.IBGE;
l BuscaCEP Logradouro.Localidade.Estado.Regiao.Sigla;
l BuscaCEP Logradouro.CEP;
end ;
Hasil Kueri [JSON]
{
"provider" : " #CORREIOS " ,
"date_time" : " 2024-05-01T02:35:14.772-03:00 " ,
"request_time" : " 75ms " ,
"total" : 1 ,
"logradouros" : [
{
"logradouro" : " Avenida Plínio Brasil Milano " ,
"complemento" : " de 1947 ao fim - lado ímpar " ,
"unidade" : " " ,
"bairro" : " Passo da Areia " ,
"cep" : " 90520003 " ,
"localidade" : {
"ibge" : 4314902 ,
"ddd" : 51 ,
"nome" : " Porto Alegre " ,
"estado" : {
"ibge" : 43 ,
"nome" : " Rio Grande do Sul " ,
"sigla" : " RS " ,
"regiao" : {
"ibge" : 4 ,
"nome" : " Sul " ,
"sigla" : " S "
}
}
}
}
]
}
Unduh: Demo.zip
BuscaCEP
adalah perangkat lunak sumber terbuka dan gratis yang berlisensi di bawah