Delphi e PHP
Boa noite, Alguem teria algum exemplo de como utilizar o Delphi para Por exemplo
Eu vo ter uma estrutura em PHP que ira gravar no mssql_query algumas informações, porem preciso passar isso ao PHP pelo Delphi.. Exemplo, Grave na Variavel $A = 'Numero 1' na $B = 'Numero 2', ou seja quero criar variaveis no PHP que deveram receber por POST ou GET para depois disso Executar pelo PHP a função de Insert no banco de dados....
Alguem sabe ou tem algum exemplo desse tipo de comunicação?
Obrigado desde ja.
Eu vo ter uma estrutura em PHP que ira gravar no mssql_query algumas informações, porem preciso passar isso ao PHP pelo Delphi.. Exemplo, Grave na Variavel $A = 'Numero 1' na $B = 'Numero 2', ou seja quero criar variaveis no PHP que deveram receber por POST ou GET para depois disso Executar pelo PHP a função de Insert no banco de dados....
Alguem sabe ou tem algum exemplo desse tipo de comunicação?
Obrigado desde ja.
Douglas Michelino
Curtidas 0
Respostas
Douglas Michelino
24/09/2012
Alguma alma boa?
GOSTEI 0
Douglas Michelino
24/09/2012
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;
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;
GOSTEI 0