Ir para conteúdo
  • 0
Remeling

Intraweb e Delphi xe8

Pergunta

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.

Compartilhar este post


Link para o post
Compartilhar em outros sites

0 respostas a esta questão

Recommended Posts

Até agora não há respostas para essa pergunta

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora

  • Conteúdo Similar

    • Por ericborrero
      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;
       
    • Por Marcelo_Ribeiro
      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
       
    • Por marcio pereira batista
      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
    • Por marcio pereira batista
      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
    • Por marcio pereira batista
      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
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.