AG Sistemas

bom dia obrigado !

Bom dia, Hoje meu sistema esta preparado para trabalhar apenas com cidades e estados do Brasil, porém surgiu a necessidade de trabalharmos no Paraguai também. Exista alguma coisa pronta ou onde poderia consumir para consulta do código postal do Paraguai, distritos e cidades? Desde já agradeço a atenção

Pessoal consegui consumir o serviço pode encerrar o tópico https://github.com/viniciussanchez/RESTRequest4Delphi/discussions/171 procedure TForm1.Button1Click(Sender: TObject); var lRes: IResponse; lStream: TMemoryStream; begin try lStream := TMemoryStream.Create; lStream.LoadFromFile('C:\arquivo.pdf'); lStream.Position := 0; lRes := TRequest.New .BaseURL(url) .AddHeader('', '') .ContentType('application/pdf') .AddBody(lStream, false) .PUT; ShowMessage(IntToStr(lRes.StatusCode)); finally lStream.Free; end; end;

obrigado

bom dia! É isso mesmo eu preciso consumir a api do servidor. Tentei enviar pelo restclient mas o arquivo chega corrompido function TApiAssinatura.ConsomeAPIArquivoteste(pTokem,pUrl :String; pTPMetodo :TRESTRequestMethod;pParamHeader:String = '';pParamHeaderValor:String=''; pParamBody:String = ''; pStringList:TStringList=nil; iTimeOut:Integer= 0;sListaBody:TStringList=nil; pContentType:String=''; sBodyArquivo:string=''):string; var restClient: TRESTClient; restRequest: TRESTRequest; restResponse: TRESTResponse; sErro, sNome, sValor :String; iParametro :Integer; I: Integer; TempStream : TMemoryStream; tFStream: TFileStream; sStream : TStream; sLista : tstringlist; sTeste : String; ABytes: TBytes; begin try restClient := TRESTClient.Create(nil); restRequest := TRESTRequest.Create(restClient); restResponse := TRESTResponse.Create(restClient); try restClient.BaseURL := pUrl; restRequest.Client := restClient; restRequest.Method := pTPMetodo; restRequest.Resource := ''; restRequest.Response := restResponse; if iTimeOut > 0 then begin restRequest.Timeout := iTimeOut; end; iParametro := 0; restRequest.Params.Add; restRequest.Params[iParametro].ContentType := 'application/pdf'; if sBodyArquivo <> '' then begin { tentei deste modo TempStream := TMemoryStream.Create; TempStream.LoadFromFile(sBodyArquivo); restRequest.AddBody(TempStream,ctAPPLICATION_PDF); } ABytes := TFile.ReadAllBytes(sBodyArquivo); restRequest.Params.AddItem('body', BytesToStr(ABytes), pkREQUESTBODY, [], ctAPPLICATION_JSON); end; if trim(pContentType) <> '' then begin inc(iParametro); restRequest.Params.Add; restRequest.Params[iParametro].ContentType := pContentType;//ctAPPLICATION_XML; restRequest.Params[iParametro].Kind := pkGETorPOST; restRequest.Params[iParametro].Options := [poDoNotEncode]; restRequest.Params[iParametro].name := 'Content-Type'; restRequest.Params[iParametro].Value := pContentType; end; restRequest.Execute; if (restRequest.Response.StatusCode <> 200) then begin result := 'Erro '+restRequest.Response.StatusCode.ToString; end else if (restRequest.Response.StatusCode = 200) and (pTPMetodo = rmPUT) then begin result := '200'; end else if restRequest.Response.JSONValue.ToString <> '' then begin sTeste := StringReplace(restRequest.Response.JSONText,'\', '', [rfReplaceAll]); result := sTeste; end; except result := ''; end; finally FreeAndNil(restClient); end; end;

boa tarde caso tenha algum exemplo fico no aguardo

boa tarde! Desculpa incomodar é um tema fora do portal mas estou precisando enviar um arquivo pdf por PUT. Pelo postman eu consigo enviar mas quando tento montar o envio pelo delphi o arquivo vai vazio Estou add o arquivo este modo TempStream := TMemoryStream.Create; TempStream.LoadFromFile(sBodyArquivo); restRequest.AddBody(TempStream,ctAPPLICATION_PDF); -- Pelo postman funciona curl --location --request PUT 'https://URL' \ --header 'Content-Type: application/pdf' \ --data '@/C:/Users/Downloads/Teste de documento a assinar.pdf' -- Do modo que eu fiz ele envia o arquivo mas ele fica vazio mas quando manda pelo postman da certo. eu tentei enviar o arquivo por form-data mas o serviço não aceita. try restClient := TRESTClient.Create(nil); restRequest := TRESTRequest.Create(restClient); restResponse := TRESTResponse.Create(restClient); try restClient.BaseURL := pUrl; restRequest.Client := restClient; restRequest.Method := pTPMetodo; restRequest.Resource := ''; restRequest.Response := restResponse; if iTimeOut > 0 then begin restRequest.Timeout := iTimeOut; end; iParametro := 0; restRequest.Params.Add; if pContentType = '' then restRequest.Params[iParametro].ContentType := ctNone else restRequest.Params[iParametro].ContentType := pContentType; if pTokem <> '' then begin restRequest.Params[iParametro].Kind := pkHTTPHEADER; restRequest.Params[iParametro].name := 'Authorization'; restRequest.Params[iParametro].Value := pTokem; restRequest.Params[iParametro].Options := [poDoNotEncode]; end; if pStringList <> nil then begin for I := 0 to pStringList.count -1 do begin sNome := copy(pStringList[i],1,pos('|',pStringList[i])-1); sValor:= copy(pStringList[i],pos('|',pStringList[i])+1,length(pStringList[i])); inc(iParametro); restRequest.Params.Add; restRequest.Params[iParametro].ContentType := ctNone; restRequest.Params[iParametro].Kind := pkGETorPOST; restRequest.Params[iParametro].name := sNome; restRequest.Params[iParametro].Value := sValor; restRequest.Params[iParametro].Options := [poDoNotEncode]; end; end; if pParamHeader <> '' then begin inc(iParametro); restRequest.Params.Add; restRequest.Params[iParametro].ContentType := ctNone; restRequest.Params[iParametro].Kind := pkGETorPOST; restRequest.Params[iParametro].Options := [poDoNotEncode]; restRequest.Params[iParametro].name := pParamHeader; restRequest.Params[iParametro].Value := pParamHeaderValor; end; TempStream := TMemoryStream.Create; TempStream.LoadFromFile(sBodyArquivo); restRequest.AddBody(TempStream,ctAPPLICATION_PDF); if trim(pContentType) <> '' then begin inc(iParametro); restRequest.Params.Add; restRequest.Params[iParametro].ContentType := pContentType;//ctAPPLICATION_XML; restRequest.Params[iParametro].Kind := pkGETorPOST; restRequest.Params[iParametro].Options := [poDoNotEncode]; restRequest.Params[iParametro].name := 'Content-Type'; restRequest.Params[iParametro].Value := pContentType; end; restRequest.Execute; if (restRequest.Response.StatusCode = 200) then begin result := 'OK'; end else result := 'Erro'; except result := ''; end; finally FreeAndNil(restClient); end; desde ja agradeço caso alguem saiba como resolver

Obrigado Italo era isso mesmo passei os parametros e deu certo

bom dia obrigado da resposta. Mas quando não tem certificado informado eu não passo nenhuma informação sobre isso

boa tarde ! Nesta empresa transmitia nfse sem certificado usando o componente antigo nfse agora estamos usando o nfsex e deu este erro Temos outra empresa que esta transmitindo normal nota fiscal de serviço "pelo nfsex" para a mesma cidade só que ela esta usado certificado. Cidade de Tupã-SP Oque poderia ser o problema, desde ja agradeço.

ok obrigado pode fechar o tópico

boa tarde, Italo. A UF do emissor é SP.

boa tarde! Estou ajustando o envio de nfe de modo sincrono mas quando tenta transmitir esta dando except ai quando da o except não continua. Mas no retorno vem numero de recibo e o FEnviar.cStat esta 103 desde ja agradeço.

bom dia ! Deu certo Italo obrigado! Apaguei os arquivos e gerei tudo novamente e passou caso alguem precise tem o portal de homologação https://homol-notajoseense.sjc.sp.gov.br/

Alimentei sim com estes dados