Unconfigured Ad Widget

Collapse

Anúncio

Collapse
No announcement yet.

Como fazer um HTTP Request dentro de um Timer?

Collapse
X
 
  • Filter
  • Tempo
  • Show
Clear All
new posts

  • Font Size
    #1

    Duvida Como fazer um HTTP Request dentro de um Timer?

    Eu gostaria de saber como fazer uma HTTP Request, em um timer. Fazendo um site http, ser aberto em ''x'' segundos ou minutos, lembrando que é na linguagem Delphi.

    Se a vida não faz sentido, porque eu devo ter?
    Similar Threads

  • Font Size
    #2
    Funções Http Request.
    Código:
    Uses
     Windows, Classes, IdHttp;
    
    function WebRequestGet(Site:string):string;
    var
     IdHttp:TIdHttp;
    begin
     idHttp:=TIdHttp.Create(nil);
      try
       Result:=IdHttp.Get(Site);
      except
       MessageBoxA(0,'Erro','MSG',0);
      end;
    end;
    
    function WebRequestPost(Site:string;Data:TStringList):string;
    var
     IdHttp:TIdHttp;
    begin
     Data:=TStringList.Create;
     IdHttp:=TIdHttp.Create(nil);
      try
       Result:=IdHttp.Post(Site,Data);
      except
       MessageBoxA(0,'Erro','MSG',0);
      end;
    end;
    Exemplo

    Código:
    procedure Timer(Wnd:HWND; uMsg:DWORD; idEvent:PDWORD; dwTime:DWORD); stdcall;
    begin
      WebRequestGet('www.google.com');//fica acessando o site do google
    end;
    
     SetTimer(0, 0, 1000, @Timer);// coloque onde você desejar para criar o timer , 1000 = intervalo dele em milisegundos.

    Comment

    X
    Working...
    X