seja bem vindo ao forum eof, caso nao seja cadastrado se cadastre para poder visualizar todo o conteudo ^^

Você não está conectado. Conecte-se ou registre-se

 » Programação Desktop » Pascal / Delphi » [tutorial] enviar metodo get e post (idhttp)

[tutorial] enviar metodo get e post (idhttp)

Ir em baixo  Mensagem [Página 1 de 1]

1 [tutorial] enviar metodo get e post (idhttp) em Sab Jan 12, 2013 10:22 am

Kodo no Kami

avatar
master
master
bom galera nesse tutorial vou ensinar como enviar informaçao via metodo get e post pelo componente idhttp, bom para começar vamos ir pelo get coloque um compente idhttp da aba indy clients, agora agente instancia ele para isso criamos uma variavel do tipo tidhttp depois atribuimos a variavel a ele com o metodo create(nil), no caso to usando um botao para enviar

Código:
procedure TForm1.Button1Click(Sender: TObject);
var fts: TIdHTTP;
begin
  fts := TIdHTTP.Create(nil);
end;

agora agente usa o metodo get passamos como argumento a url da nossa pagina

Código:
procedure TForm1.Button1Click(Sender: TObject);
var fts: TIdHTTP;
begin
  fts := TIdHTTP.Create(nil);
  fts.Get('http://127.0.0.1/fts.php?nome=flavio');
end;

para terminar agente usa free para liberar a instancia

Código:
procedure TForm1.Button1Click(Sender: TObject);
var fts: TIdHTTP;
begin
  fts := TIdHTTP.Create(nil);
  fts.Get('http://127.0.0.1/fts.php?nome=flavio');
  fts.Free;
end;

agente pode atribui a uma variavel do tipo string e exibir o resultado

Código:
procedure TForm1.Button1Click(Sender: TObject);
var fts: TIdHTTP;
    hack: string;
begin
  fts := TIdHTTP.Create(nil);
  hack := fts.Get('http://127.0.0.1/fts.php?nome=flavio');
  fts.Free;

  showmessage(hack);
end;

no caso aq mostro a mensagem

seu nome e: flavio

e o script php q eu usei foi esse

Código:
<?php
  echo "seu nome e: ". $_GET["nome"];
?>

agente tambem pode salvar o retorno para isso agente cria uma variavel do tipo tmemorystream e instancia ela

Código:
procedure TForm1.Button1Click(Sender: TObject);
var fts: TIdHTTP;
    hack: TMemoryStream;
begin
  fts := TIdHTTP.Create(nil);
  hack := TMemoryStream.Create(nil);
  fts.Get('http://127.0.0.1/fts.php?nome=flavio');
  fts.Free;
  hack.Free;
end;

no metodo get colocamos e a variavel la depois do url

Código:
procedure TForm1.Button1Click(Sender: TObject);
var fts: TIdHTTP;
    hack: TMemoryStream;
begin
  fts := TIdHTTP.Create(nil);
  hack := TMemoryStream.Create;
  fts.Get('http://127.0.0.1/fts.php?nome=flavio',hack);
  fts.Free;
  hack.Free;
end;

e na variavel usamos o metodo savetofile passando como argumento o nosso arquivo q vamos salvar

Código:
procedure TForm1.Button1Click(Sender: TObject);
var fts: TIdHTTP;
    hack: TMemoryStream;
begin
  fts := TIdHTTP.Create(nil);
  hack := TMemoryStream.Create;
  fts.Get('http://127.0.0.1/fts.php?nome=flavio',hack);
  hack.SaveToFile('fts.html');
  fts.Free;
  hack.Free;
end;

agora vamos para o metodo post nesse temos q criar uma variavel do tipo tstringlist tambem instanciar ele

Código:
procedure TForm1.Button1Click(Sender: TObject);
var fts: TIdHTTP;
    hack: TStringList;
begin
  fts := TIdHTTP.Create(nil);
  hack := TStringList.Create;
  fts.Free;
  hack.Free;
end;

no tstringlist agente usa o metodo add e passamos como argumento as nossas info

Código:
procedure TForm1.Button1Click(Sender: TObject);
var fts: TIdHTTP;
    hack: TStringList;
begin
  fts := TIdHTTP.Create(nil);
  hack := TStringList.Create;
  hack.Add('nome=fts315');
  fts.Free;
  hack.Free;
end;

agora usamos o metodo post na variavel tidhttp passamos como argumento o site e a variavel tstringlist

Código:
procedure TForm1.Button1Click(Sender: TObject);
var fts: TIdHTTP;
    hack: TStringList;
begin
  fts := TIdHTTP.Create(nil);
  hack := TStringList.Create;
  hack.Add('nome=fts315');
  fts.Post('http://127.0.0.1/fts.php',hack);
  fts.Free;
  hack.Free;
end;

o script php q eu to usando agora e esse

Código:
<?php
  echo "seu nome e: ". $_POST["nome"];
?>

bom galera esse e o basico com oq se pode fazer com idhttp ^^

by hacker fts315


_________________ASSINATURA_________________
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]

Contato:
Spoiler:

Contato:
Facebook: [Você precisa estar registrado e conectado para ver este link.]
Skype: hackerfts315
http://endoffile.umforum.net

Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum