[tutorial] enviar metodo get e post (idhttp)

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