Pesquisar na Comunidade
Mostrando resultados para as tags ''indy''.
Encontrado 3 registros
-
Estou tentando realizar um post e estou tendo esse erro : HTTP/1.1 401 Unauthorized abaixo meu codigo; procedure TForm2.Button1Click(Sender: TObject); var dados : TStrings; retorno : string; begin IdHTTP1.Request.CustomHeaders.Clear; IdHTTP1.Request.ContentType := 'application/json'; IdHTTP1.Request.Connection := 'Keep-Alive'; IdHTTP1.Request.UserAgent := 'User-Agent:Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/58.0.3029.96 Safari/537.36'; IdHTTP1.HandleRedirects := true; dados := TStringList.Create(); try dados.Add(Memo1.Text); retorno := IdHTTP1.Post('http://127.0.0.1:888/api/teste/pedido_venda/inclui',dados); finally end; dados.Free; end;
-
Viva Graças a este fórum (Jhonas) consegui fazer scrap a uma página web. Deixo o código de seguida porque pode ser útil para alguém. A minha questão é se esta forma de scrap pode ser otimizada porque para ficheiros web com muitas linhas de código (na ordem dos 2000) este processo é um pouco lento. O que este programa faz é ler linha a linha o ficheiro web e procurar a correspondência. Há alguma otimização possível? Obrigado Mario procedure Tfrmscrapalternativos.Button1Click(Sender: TObject); var total:integer; lReader: TStringReader; linha,procura:string; begin lHTTP := TIdHTTP.Create(nil); lHTTP.Request.UserAgent :='Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0'; zquery1.First; total:=zquery1.RecordCount; for j := 1 to total do begin lReader := TStringReader.Create(lHTTP.Get(zquery1.FieldByName('link1').AsString)); procura:='#CC0000;">'; repeat linha := lReader.ReadLine; if AnsiContainsStr(linha,procura) then begin //faz a as tarefas break; end; until lReader = Nil; zquery1.Next; end; showmessage('terminei'); end;
-
Boa noite Uso delphi 7 , e pretendo enviar email usando uma conta gmail com o me programa. Pelo que percebi necessito dos componentes Indy. Qual a versão do Indy a instalar e já agora onde posso descarregá-la? Cumprimentos Mário Lopes