Jump to content

Search the Community

Showing results for tags 'delphi'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Q&A Desenvolvimento
    • Perguntas e respostas rápidas
  • Desenvolvimento e Banco de Dados
    • HTML e CSS
    • Java
    • Javascript
    • .NET
    • PHP
    • Python
    • Ruby
    • Mobile
    • Ambientes de Desenvolvimento
    • Arquitetura e Métodos Ágeis
    • Banco de Dados
    • DevOps
    • Desenvolvimento de Games
    • E-Commerce e Pagamentos Online
    • SEO e Otimizações
    • WordPress
    • Algoritmos & Outras Tecnologias
  • Design e Produto
    • Fotografia
    • Photoshop
    • Design de interfaces e UX
    • Edição/Produção de Vídeos
    • Marketing Online
    • Desenho, Ilustração e 3D
  • Entretenimento e uso pessoal
    • Geral
    • Segurança & Malwares
    • Gadgets e wearable
    • Softwares e Apps
    • Entretenimento

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


Google+


Hangouts


Skype


Twitter


deviantART


Github


Flickr


LinkedIn


Pinterest


Facebook


Site Pessoal


Localização


Interesses

Found 127 results

  1. Galera, boa noite. Estou com dificuldades para realizar um insert em uma tabela no oracle. Criei duas lists, uma buscando o código das filiais existentes em uma tabela e outro para receber as filiais de acordo com a escolha do usuário. Estou realizando um cadastro de produtos por filial, então ao terminar o cadastro o dialog pergunta se quer atualizar os dados em outra filial. Se marcada a opção SIM, abre a tela para escolher para qual filial o usuário quer copiar ( update ). Mas pode existir situações onde o produto não existe, então queria que realiza-se um insert para essas filiais ao invés do update. Alguém pode ajudar?
  2. Bom dia, sou iniciante em Delphi, estou fazendo um Cadastro de Clientes, gostaria de usar três Edit´s para filtrar alguns dados porem com o código abaixo consegui fazer apenas com 1 edit.text, como faço pra usar três e que se algum estiver em branco ele retorna o valor apenas do Edit.text que foi preenchido? Exemplo: Quero buscar por Nome, Situação e Rota (Cliente a da rota B com situação C) e se algum desses campos estiver vazio ele busca apenas o que foi preenchido. Obrigado pela atenção! . procedure TFrm_Cadastro.Bt_BuscarClick(Sender: TObject); begin with Frm_Cadastro.Tbl_Clientes do begin Close; SQL.Clear; SQL.Add( 'Select * from Tbl_Cad_Clientes'); SQL.Add('where Cli_Nome like :nome'); ParamByName('nome').Value := '%' + txt_buscar_nome.Text + '%'; Open; end; end;
  3. Boa tarde Senhores, estou com um projeto de inclusão da QR-Code no sistema para um cliente que fica no Rio Grande do Sul através de WEB Service. Estou colocando os web-service disponível no site da SEFAZ-RS, mas está dando erro 403. Preciso que vocês me enviem um WEB-Service e se precisa de algum certificado digital válido. Estou tentando com esse: https://nfce.sefazrs.rs.gov.br/ws/NfeConsulta/NfeConsulta4.asmx Encontrei ele por esse site: http://nfce.encat.org/desenvolvedor/webservices-p/ Desde já agradeço. Luis Dario
  4. brenno_32br

    MSIEXEC DELPHI DX, erro

    Ola, Estou com seguinte problema, porém no meu nível e difícil.seguinte, estou fazendo a baixa e instalação de um drive de um link especifico, no meu caso consigo executar manualmente e pelo cmd usando msiexec, porém quando eu uso no Delphi em procedure não consigo.*certifiquei se o arquivo existe.*consigo executar e instalar usando o mouse.*usando msiexec manualmente o cmd ok*o arquivo esta na extensão .msiporém quando chamo essa função abaixa consigo entrar na condição, no entanto quando e executado o comando, apresentar a seguinte mensagem'Este pacote de instalação não pode ser aberto. verifique se o pacote exite e se você pode acessa-lo ou entre em contato com o o fornecedor do aplicativo para verificar se este é um pacote valido do Windows Installer.' procedure TFormPrincipal.eInstalaDrive(Nome: string);beginif Nome = 'safenet-pro72k-x64.msi' thenbeginShowMessage('intalando aqui: '+Nome);// WinExec('msiexec /i c:\\soluti\\safenet-pro72k-x64.msi',SW_SHOW);// foi usado essa forma sem exito por aquiWinExec('cmd /C msiexec /i c:\\soluti\\SafeNet-Aladin(x64).msi',SW_SHOW);// esse aqui tbm sem exito.endelse...Alguém consegue me auxiliar nesse caso. obrigado.
  5. estou tentando fazer a conexão ao banco de dados oracle 11g no delphi 10.2 pelo fireDAC e está reportando o seguinte erro ao conectar:[FireDAC][Phys][Ora] Ora-12546: TNS: permission denied.já mandei para o DBA para verificar e ainda não consegui o retorno, fiz o teste conectando em outro banco de dados por exemplo do firebird e conectou ok...Alguém saberia me disse qual seria esta permissão para resolver o problema???
  6. Boa tarde! Eu estou iniciando em delphi, sou bem novato. Porém estava querendo fazer com que ao pressionar um botão no form1 ele abrisse o form2 com uma informação calculada no label. Porém estou com problema na questão de fazer esses formulario se interligarem. Desde Já Agradeço. Talvez até chamando uma procedure do form1 para responder no form2
  7. Pessoal boa noite!! Criei um servidor datasnap e to precisando de uma ajuda agora neste pondo do lado cliente. No meu servidor tenho um Method que se chama GetVendas para pegar as vendas. Porem agora ´preciso passar um período para retornar as vendas, ai que não estou conseguindo montar minha url. estou fazendo desta maneira do lado do cliente: Preciso saber como passar a data RESTClient1.ResetToDefaults; RESTRequest1.ResetToDefaults; RESTResponse1.ResetToDefaults; RESTClient1.BaseURL := 'http://localhost:8080/datasnap/rest/TVendaControl'; RESTRequest1.Resource := '/Venda/{Status}/{CodVendedor}/{DtIni}/{DtFim}'; RESTRequest1.Method := TRESTRequestMethod.rmGET; RestRequest1.Params.AddItem('Status',inttostr(cbbStatus.ItemIndex), TRESTRequestParameterKind.pkURLSEGMENT); RestRequest1.Params.AddItem('CodVendedor','', TRESTRequestParameterKind.pkURLSEGMENT); Project GestorApp.exe raised exception class EHTTPProtocolException with message 'HTTP/1.1 500 Internal Server Error'. --------------------------- Break Continue Help --------------------------- Agradeço a todos e um forte abraço.
  8. IvairCosta

    Delphi no Windows 10

    Boa tarde. Possuo um notebook com Windows 10 Home e Oracle 11G Expression. Instalei o Delphi Tokyo Trial, mas o DBexpress não funciona. Gostaria de saber qual versão do Delphi funciona bem no Windows 10 e qual versão do Oracle eu poderia usar de forma que funcionasse o Dbexpress em conjunto com o Oracle. Um ex-colega de trabalho ja tentou com a mesma configuração que eu mencionei e tambem não funcionou para ele. Instalei o Delphi 7 no Windows 10, mas tambem houve erro no Dbexpress. Obrigado.
  9. Claudemir Vaz

    Delphi

    Olá bom dia comprei um código fonte para delivery porem ao compilar sitema nao encontra alguns arquivos.
  10. Joelend

    Deixar libVlcPlayer mudo

    Estou utilizando TPasLibVlcPlayer para reprodução de videos e preciso que estes sejam exibidos sem áudio. Tentei utilizar a função "vlc.SetAudioMute(true); " porem não funcionou... Olhando a documentação encontrei isso: "Aviso Esta função nem sempre funciona. Se não houver fluxo de reprodução de áudio ativo, o status de mudo poderá não estar disponível. Se a passagem digital (S / PDIF, HDMI ...) estiver em uso, o muting pode não ser aplicável. Além disso, alguns plug-ins de saída de áudio não suportam muting. Nota Para forçar a reprodução silenciosa, desative todas as faixas de áudio. Isso é mais eficiente e confiável do que o mudo." No meu caso, estou utilizando o HDMI. Minha duvida é sobre como desativar as faixas de audio. Alguém saberia ajudar?
  11. felk_fel@hotmail.com

    O programa compila mas fecha na mesma hora

    Boa tarde a todos!De vez em quando, acontece isso comigo, o Delphi compila a aplicação mas ela não roda ou fecha sozinha...Para resolver eu estou sempre tendo que fechar o delphi e criar uma nova aplicação. Alguém poderia me ajudar conforme o vídeo abaixo?https://www.youtube.com/watch?v=cFBJSS5yTN8Agradeço pela atenção.
  12. Felipe Garciax

    Image piscando ao abrir SplitView

    Ola, Estou com o seguinte problema, no formulario principal do meu projeto tenho um SplitView e um Image em AlClient com uma imagem em 193 kb, ao abrir e fechar o SplitView em execucao a imagem PISCA, ja usei no OBJECT INSPECTOR o DoubleBuffered em TRUE tanto para o form quanto para o SplitView e o problema persiste, ja fiz o teste no codigo tanto para o EVENTO OnShow e OnCreat: DoubleBuffered :=True; e nenhum resultado... Help Me
  13. ericborrero

    Array menor Valor

    Boa Noite a todos .... aguem pode me ajudar com esse código.... preciso que ele procure o menor valor e não o maior como esta aqui Procedure TfrmAvaliacao.PiorTempo; var ArrayString: Array [1 .. 5] of string; PiorTempo: string; i: Integer; begin ArrayString[1] := dbtext2.Caption; ArrayString[2] := dbtext4.Caption; ArrayString[3] := dbtext6.Caption; ArrayString[4] := dbtext8.Caption; ArrayString[5] := dbtext10.Caption; PiorTempo := EmptyStr; for i := low(ArrayString) to high(ArrayString) - 1 do if PiorTempo < ArrayString then PiorTempo := ArrayString; Label210.Caption := PiorTempo; end;
  14. Ola pessoal, Estou fazendo um sistema web em Delphi xe8 Intraweb, coloco os objetos no form e quando vou compilar o sistema, aparece somente a pagina em branco, o que estou fazendo errado.
  15. Marcelo_Ribeiro

    Delphi - Conexão com Firebird

    E aí pessoal, tudo bem? Quero montar um sistema que irá acessar um banco de dados Firebird em outra máquina. Consegui fazer a conexão via socket. Criei um remote data module, criei um server, e pelo socket server, consegui fazer a conexão. Mas tem um porém. To usando Firebird. No meu note, tô com o server rodando, e rodei o client tb. Ao mesmo tempo, rodei o client em outro pc. Tenho uma tabela teste que possui 6 registros. Ao abrir o client nos 2 pcs, a consulta traz os 6 registros. No meu note, crio um 7º registro. Mas no outro pc, ao consultar, ele só traz 6 registros. Se eu fechar e abrir de novo, ao consultar traz os 7. Criei o remote data module como Instancing = Multiple instance e Threading Model = Single. Será que isso tem alguma coisa a ver? Instalei o Sql Server. Fazendo tudo do mesmo jeito, o Sql server atualiza, mas o firebird não. Será que é limitação? Valeu pessoal Abs
  16. boa noite amigos, estou iniciando com a parte de webserver e estou com dificuldade para pegar os parametros que são passados por uma catraca, ja consegui fazer toda a configuração da mesma e o webserver que fiz consegue indentificar a requisição dela, meu problema esta para pegar a informação do id_user que vem no json quando coloco a digital na catraca o meu webserver identifica o evento vindo da mesma na porta 8080: POST /new_user_identified.fcgi?session=?& HTTP/1.1 ate ae tudo ok,+ eu preciso e da informação que vem junto com o POST da ctraca no meu webserver agora segue oque o fabricante me passou: O Fluxo de comunicação entre o servidor (web server que escutará as requisições http que o equipamento para enviará, o verbo http é o POST) que você vai desenvolver e o equipamento é o seguinte: Primeiro um pouco de teoria para você entender o fluxo do endpoint que você precisará implementar: new_user_identified.fcgi (https://www.controlid.com.br/suporte/api_idaccess_latest.html#50_events) Usuário identificado CLIENT -> SERVER POST /new_user_identified.fcgi?session=gJgOHkblq69Vc3WLOOdUMvrf& HTTP/1.1 Host: 192.168.2.121 Accept: */* Content-Type: application/x-www-form-urlencoded Connection: Keep-Alive Content-Length: 105 event=8&device_id=468507&identifier_id=1651076864&portal_id=1&user_id=1&user_name=Danilo&user_has_image=0 preciso pegar a informação do user_id acima e não sei como ja que oque chega na uri e somente:POST /new_user_identified.fcgi?session=?& HTTP/1.1
  17. marcio pereira batista

    configurar web server para escutar as requisições http

    boa noite meus amigos, meu problema e o seguinte : preciso ler a informação que vem de uma catraca controlid, consigo fazer toda a comunicação com a catraca via restjson usando idttp indy, logo, libero acesso e etc, o problema esta quando preciso receber oque vem da catraca sem que eu solicite, ex : o usuario coloca a digital no equipamento e eu preciso que o webserver receba o json que vem da catraca via http, fiz todos os passos abaixo indicado pelo o suporte do fabricante e tudo correu bem e os comandos foram executados sem erro algum, porem quando coloca a digital na catraca o webserver que fiz usando idttpserver nao recebe nada no ip e porta expecifica vindo da catraca e se tento enviar algo pela rede no ip e porta do webserver ele responde perfeitamente, por favor se alguem puder me ajudar a terminar de configurar o webserver, acho q não falta muito e o cliente ja perdeu a paciencia..., segue oque foi feito de acordo com o fabricante : O fluxo é o seguinte: Realizar o login no equipamento para obter uma sessão; lJSO := SO('{"login": "admin", "password": "admin"}'); lResponse := IdHTTP1.Post('http://192.168.001.171/login.fcgi', lRequest); Criar um novo device que representará o servidor do equipamento. Referências: aqui e aqui (procurar 'devices'). Note que o campo 'public_key' deve ser qualquer texto em base64. Em Linux, pode-se gerar facilmente um através do comando: echo -n chave_secreta | base64 lJSO := SO('{ object: "devices", values: [{id: 3333, name: "clube_server", ip: "192.168.1.100:8080", public_key:"Y2hhdmVfc2VjcmV0YQ=="}] })}'); lResponse := IdHTTP1.Post('http://192.168.001.171/create_objects.fcgi?session='+trim(edit1.text),lRequest); Modificar a configuração 'server_id' do objeto 'online_client' para o id do device cadastrado na etapa anterior. Exemplo : lJSO := SO('{ online_client: {server_id: "3333" } }'); lResponse := IdHTTP1.Post('http://192.168.001.171/set_configuration.fcgi?session='+trim(edit1.text),lRequest); Modificar a configuração 'online' do objeto 'general' para 1 lJSO := SO('{ general: {online: "1"} }'); lResponse := IdHTTP1.Post('http://192.168.001.171/set_configuration.fcgi?session='+trim(edit1.text),lRequest); Habilita a identificação Local: lJSO := SO('{ general: {"local_identification": "1"} })}'); lResponse := IdHTTP1.Post('http://192.168.001.171/set_configuration.fcgi?session='+trim(edit1.text),lRequest); todos os campos são executados sem problema, segue mais explicações do fabricante : O Fluxo de comunicação entre o servidor (web server que escutará as requisições http que o equipamento para enviará, o verbo http é o POST) que você vai desenvolver e o equipamento é o seguinte: Primeiro um pouco de teoria para você entender o fluxo do endpoint que você precisará implementar: new_user_identified.fcgi (https://www.controlid.com.br/suporte/api_idaccess_latest.html#50_events) Usuário identificado CLIENT -> SERVER POST /new_user_identified.fcgi?session=gJgOHkblq69Vc3WLOOdUMvrf& HTTP/1.1 Host: 192.168.2.121 Accept: */* Content-Type: application/x-www-form-urlencoded Connection: Keep-Alive Content-Length: 105 event=8&device_id=468507&identifier_id=1651076864&portal_id=1&user_id=1&user_name=Danilo&user_has_image=0 SERVER -> CLIENT HTTP/1.1 200 OK Content-Type: application/json; charset=utf-8 Transfer-Encoding: chunked Date: Thu, 18 Feb 2016 16:20:45 GMT Server: lighttpd/1.4.35 {"result":{"event":6,"user_id":1,"user_name":"João","user_image":false,"portal_id":5,"actions":[]}} Usuário não identificado CLIENT -> SERVER POST /new_user_identified.fcgi?session=gJgOHkblq69Vc3WLOOdUMvrf& HTTP/1.1 Host: 192.168.2.121 Accept: */* Content-Type: application/x-www-form-urlencoded Connection: Keep-Alive Content-Length: 99 event=3&device_id=468507&identifier_id=1651076864&portal_id=0&user_id=0&user_name=&user_has_image=0 SERVER -> CLIENT HTTP/1.1 200 OK Content-Type: application/json; charset=utf-8 Transfer-Encoding: chunked Date: Thu, 18 Feb 2016 16:22:57 GMT Server: lighttpd/1.4.35 {"result":{"event":3}} no webser que criei configurei da seguinte forma : IdHTTPServer1.Active := false; IdHTTPServer1.defaultport:=8080; IdHTTPServer1.Active := True; no oncommandget coloquei o seguinte : if (ARequestInfo.URI = '/api/notification/dao') or (ARequestInfo.URI = '/api/notification/dao') then begin showmessage('eu to aqui'); end else begin showmessage('chequei aqui 2'); end; não coloquei nenhuma rotina de envio do retorno ainda pois estou tentando ver se esta chegando algo no ip/porta vindo da catraca e nao esta e se tento pela rede chega sem problema. desde ja agradeço a quem puder me ajudar
  18. marcio pereira batista

    ler digital da catraca controlID usando rest/json

    boa tarde amigos, meu problema e o seguinte, estou configurando meu sistema para acessar a catraca controlID usando rest/json, eu consigo pegar as informações da catraca e liberar o acesso dela sem problema quando envio as requisiçoes pelo meu sistema, meu problema e que eu não estou conseguindo pegar as informaçoes que vem da catraca sem q eu tenha feito uma requisição, ex , a pessoa coloca a digital na catraca (nesse caso a catraca e quem envia a requisição para o meu sistema, gostaria de uma orientação sobre como fazer, pelo que entendi eu teria que criar um servidor rest/json para receber essas informações ?, desde ja agradeço a quem possa me ajudar sobre como proceder nesse caso
  19. boa tarde amigos, estou utilizando o rest debugguer e quando tento passar o json abaixo pelo custom body retorna erro { "error":"Invalid member 'type' (string expected, got undefined)", "code":1 } sendo que estou passando de acordo com o manual da catraca (e uma catraca eletronica controlid) e sempre retorna o erro independente de estar no rest debugger ou no postman, estou iniciando nessa parte de rest/json e tenho visto varios videos + ainda estou apanhando um pouco... desde ja agradeço a quem puder me ajudar. ex do manual : $.ajax({ url: "/execute_actions.fcgi?session=" + session, type: 'POST', contentType: 'application/json', data: JSON.stringify({ actions: [ { action: "catra", parameters: "allow=clockwise" } ] }) }); estou passando os dados do contenttype pelo head e esta ok, o problema esta mesmo quando tento passar oque esta no campo json.stringfy estou passando no campo custom body da seguinte forma : ({ actions: [ { action: "catra", parameters: "allow=clockwise" } ] }) e retorna o erro acima quando executo 1 comando + simples tipo pegar as informações da catraca ou setar o beepvai sem problema : campo custom body ok : { general: ["beep_enabled", "relay1_timeout"] }
  20. mm_edilson

    Aniversários entre duas datas

    Boa tarde. Preciso que minha query retorne os aniversariantes entre duas datas selecionadas em dois datetimepickers. Fiz assim: //Realiza a consulta Adoquery1.Close; Adoquery1.SQL.Clear; Adoquery1.SQL.Add('Select * from CadPessoas'); ADOQuery1.SQL.add('where ((Month(DtNasc) * 100) + Day(DtNasc)) between :DtNascIni and :DtNascFim'); AdoQuery1.SQL.add('Order by DtNasc'); ADOQuery1.Parameters.ParamByName('DtNascIni').Value := MonthOf(DateTimePicker1.DateTime) * 100 + DayOf(DateTimePicker1.DateTime); ADOQuery1.Parameters.ParamByName('DtNascFim').Value := MonthOf(DateTimePicker2.DateTime)*100 + DayOf(DateTimePicker2.DateTime); AdoQuery1.Open; Só que ele ta confundindo os meses que tem o numero 1. Por exemplo, fiz uma consulta entre 01 de Janeiro e 01 de fevereiro. Ele retornou todos os aniversariantes de outubro, novembro, dezembro e janeiro. Já se a consulta for entre fevereiro e março, por exemplo, que não envolve meses que começam com o numero 1, dá certinho. Alguém poderia ajudar? Uso Delphi 7 e Access.
  21. Boa tarde, Me perdoem caso já tenha algum tópico sobre minha dúvida, estou postando, pois não encontrei nada a respeito do que preciso, caso já tenha no forum, peço por gentileza que passem o link. Alguém sabe me dizer, como faço para compactar uma string utilizando uma funcao nativa do Delphi?(utilizo Delphi Tokyo). No caso, salvei em uma string todo o conteudo do xml de uma nfe assim que ela foi autorizada (não salvei em disco), quero pegar essa string, compacta-la, para salvar direto em meu banco de dados e quando for consultar a nota, fazer a descompactacao dessa string e poder visualizar o danfe atraves dela e tambem o xml. (minha intencao é não salvar o xml maisl em disco, e sim salvar compactado direto no banco de dados).
  22. cibelly_cristina

    Leitura de arquivo e separação de variavéis

    begin Readln(txt,linha); if contador <> 0 then begin Splitted := linha.Split([#9], 2); setlength(dados,contador); dados[contador-1].Cliente:=Splitted[0]; dados[contador-1].Marca:=Splitted[1]; end; inc(contador); end; Edit17.Text:= dados[0].Cliente; Edit2.Text:= dados[1].Marca; end; end. Boa tarde, gente! Primeiramente gostaria de pedir desculpa pelo tópico que inseri minha pergunta, acabei não encontrando o relacionado com o delphi.No meu programa eu estou lendo um arquivo txt e preciso separar cada coisa para colocar em Edits diferentes na minha tela principal. Dentro do meu arquivo tenho palavras e números separadas por tabulação. Já estou obtendo exito em relação as strings, entretanto, não sei e não encontrei uma forma de fazer o mesmo com os números. Irei mandar o código abaixo, quem puder me ajudar ficarei extremamente grata!Desde já, meus agradecimentos!!--------------------------beginReadln(txt,linha);if contador <> 0 thenbeginSplitted := linha.Split([#9], 2); setlength(dados,contador); dados[contador-1].Cliente:=Splitted[0];dados[contador-1].Marca:=Splitted[1];end;inc(contador);end;Edit17.Text:= dados[0].Cliente;Edit2.Text:= dados[1].Marca;end;end.---------------------Nesse caso, tanto meu cliente e marca são strings, mas minhas outras variáveis que estou com dificuldade são do tipo real, como o número, a data de fabricação e a potência. Obrigada novamente!
  23. Célio A.

    Form abre vazio, sem componentes

    Quando tendo abrir um form, tanto utilizando o componente menu ou utilizando um botão, é aberto uma tela pequena sem nenhum componente. Eu testei os forms e funcionam normal se abrir direto, porem não consigo navegar. Eu estou utilizando o método que sempre utilizei. Neste exemplo estou tentando abrir clicando em um botão. Coloquei a unit em “Uses” do form onde esta o botão e utilizei o código abaixo: procedure TForm_CadEditora.MangaClick(Sender: TObject); begin Form_CadManga := TForm_CadManga.CreateNew(nil); Form_CadManga.ShowModal; Form_CadManga.Free; end; O form que deveria ser aberto era este: object Form_CadManga: TForm_CadManga Left = 0 Top = 0 Align = alClient Caption = 'Form_CadManga' ClientHeight = 400 ClientWidth = 800 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = True Position = poScreenCenter ShowHint = True PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 0 Width = 799 Height = 400 Caption = 'Panel1' TabOrder = 0 end end O resultado é este, um form sem nada: https://drive.google.com/open?id=1NEBRModfSZ0DOvbjXJ3tVrV627CwynE3 Alguém sabe o que pode estar errado?
  24. marcio pereira batista

    conectar restdebugger com delphi e api skyhub

    boa tarde amigos, meu problema e o seguinte : estou tentando implementar uma comunicação do meu sistema com api da skyhub para integração dos sistemas, mas não estou conseguindo configurar corretamente a conexão no delphi ou pelo restdebugger (da o mesmo erro nos 2), fiz as configurações de acordo com o manual da skyhub e quando uso uma requisição get / questions vai normalmente no rest debugger (consequentemente no delphi tb) + caso eu tente outros comandos tipo : /products ou /categories , me retorna o json : { "error":"Usuário bloqueado ou inexistente" } fiz utilizando a recomendação do amigo com o programa ReadyAPI 2.5.0 conforme sugerido e conecta perfeitamente e executado todos os comandos sem problema, sendo assim o problema esta em conseguir configurar no delphi, segue rotina q tentei no delphi via linha de comando e da o mesmo erro que no rest debugger, no manual do provedor do serviço esta para configurar no header conforme fiz e funcionou no readapi e no site da skyhub tb funciona normalmente no api explorer + no delphi nada me retorna o erro acima. restClient1.baseurl :='https://api.skyhub.com.br'; restClient1.Accept := 'application/json, text/plain; q=0.9, text/html;q=0.8,'; restResponse1.ContentType := 'text/xml'; restRequest1.AcceptCharset := 'UTF-8, *;q=0.8'; restRequest1.Params[0].Kind := pkHTTPHEADER; restRequest1.Params[0].name := 'Accept'; restRequest1.Params[0].Value := 'application/json;charset=UTF-8'; restRequest1.Params[1].Kind := pkHTTPHEADER; restRequest1.Params[1].name := 'Content-Type'; restRequest1.Params[1].Value := 'application/json'; restRequest1.Params[2].Kind := pkHTTPHEADER; restRequest1.Params[2].name := 'X-User-Email'; restRequest1.Params[2].Value := 'multisoftwarepdosul@gmail.com'; restRequest1.Params[3].Kind := pkHTTPHEADER; restRequest1.Params[3].name := 'x-accountmanager-key'; restRequest1.Params[3].Value := 'minhakey'; restRequest1.Params[4].Kind := pkHTTPHEADER; restRequest1.Params[4].name := 'x-Api-Key'; restRequest1.Params[4].Value := 'minhasenhaapi'; restRequest1.resource:='/categories'; restRequest1.execute; caso eu troque o /categories para /questions por exemplo retorna 200, + qualquer outro comando retorna usuario bloqueado ou inexistente, sendo q pelo ready api e site da skyhub vai tudo normalmente desde ja agradeço a quem possa me ajudar desde ja agradeço
  25. Boa tarde a todos Bom eu venho desenvolvendo um sistema em delphi, e me deparo com a seguinte questão. Como faço para com que o campo hora somente receba os valores validos de hora e o mesmo com o campo data. Espero ter sido claro Agradeço desde ja.
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.