Fórum Delphi e PHP #424538

Alguma alma boa?

Ja consegui fazer........

Vo postar abaixo o exemplo que montei pra testar...

No caso estou passando os parametros no PHP e gravando remoto no SQL

PHP ( query.php )

<?php
//variaveis a serem passadas pos POST
$nome = $_POST['nome'];
$endereco = $_POST['endereco'];
$cidade = $_POST['cidade'];
$estado = $_POST['estado'];


$servidor = "IP";
$usuario = "USUARIO";
$banco = "BANCO";
$senha = "SENHA";

$conmssql = mssql_pconnect($servidor.",1433",$usuario,$senha,true);
$db = mssql_select_db($banco, $conmssql);
if ($conmssql && $db){
//echo "Parabens!! A conexão ao banco de dados ocorreu normalmente!";
} else {
echo "Nao foi possivel conectar ao banco MSSQL";
}



$update = mssql_query("insert Into cadastro (nome,endereco,cidade,estado) values ('".$nome."','".$endereco."','".$cidade."','".$estado."')");



?>



Função em Delphi


procedure TForm1.Button1Click(Sender: TObject);
var
HTTP : TIdHTTP;
Post : TStringList;
htmlCode : String;
begin

HTTP := TIdHTTP.Create(nil);
Post := TStringList.Create;
Try
HTTP.Request.Accept := '';
HTTP.AllowCookies := True;
HTTP.HandleRedirects := True;
HTTP.Request.ContentType:='application/x-www-form-urlencoded';
Post.Add('nome=' + Editwnome.Text); //sao os edits criados na form
Post.Add('endereco=' + Editwendereco.Text);
Post.Add('cidade=' + Editwcidade.Text);
Post.Add('estado=' + Editwestado.Text);

htmlCode := HTTP.Post('http://site.com.br/protect/query.php', Post);
memo1.Text:=htmlCode; //< jogando o resultado no memo
Finally
Post.Free;
HTTP.Free;
End;
Showmessage('Gravado!');
end;