Array
(
)

Variáveis via POST com CGI....

José Alves
   - 09 fev 2006

Olá pessoal,
seguinte: estou precisando passar variáveis via Post de um arquivo CGI em Delphi para uma página em PHP. Eu consegui fazer o que preciso com get, mas o usuário não pode ver o que está sendo passado, por isso preciso usar o Post, porém não estou sabendo fazer...

Fiz assim, no CGI:

procedure TWebModule1.WebModule1loginAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
login, senha, senha_hoje, login_adm : string;
begin
login := Request.ContentFields.Values[´login´];
senha := Request.ContentFields.Values[´senha´];

Senha_hoje := ´senha123mudar´;
login_adm := ´administrador´;

Response.SendRedirect(´php_login.php?login=´+login+´&senha=´+senha+´&senha_hoje=´+senha_hoje+´&login_adm=´+login_adm);
end;

Ou seja, eu estou pegando o Login e Senha de um formulário em PHP e estou passando os parêmetros para outro formulário, para processar os dados, porém não queria passar via GET e sim via POST.

Alguém poderia me ajudar?

Valeu!