AbraaoRamiro
Experiente
Registrado: Sexta-Feira, 21 de Março de 2003
Mensagens: 466
Localização: Perto das Mulheres, Longe dos Rapazes
|
 Enviada: Sex Jan 18, 2019 1:52 am Assunto: IdHTTP1 x Servidor PHP/MySQL ContentType |
 |
|
Boa noite!
Estou com um “pequeno erro” no resultado do meu código e não sei como resolver. Tenho um servidor PHP/MySQL que recebe alguns comandos via POST pelo componente IdHTTP1
O problema é que mando uma instrução SQL para o site e ele tem que me retornar um XML da consulta. Mais a instrução sempre chega com caracteres errados tipo
| Código: | | Select * from cliente where (id=1) |
Fica assim:
| Código: | | Select * from cliente3D3D where (id=3D1) |
Sei que é algo referente ao Content-Type ('utf-8')
| Código: |
procedure TPrincipal.Button1Click(Sender: TObject);
var
Stream : TStringStream;
Params : TIdMultipartFormDataStream;
Temp_EmpID : Integer;
ArquivoINI : TIniFile;
I : Integer;
begin
try
Stream := TStringStream.Create('');
Params := TIdMultipartFormDataStream.Create;
Params.AddFormField('str_sql', Utf8Encode(StrSQL));
Principal2.IdHTTP1.Request.CustomHeaders.Clear;
Principal2.IdHTTP1.Request.Clear;
Principal2.IdHTTP1.Request.ContentType := 'Application/xml';
//Principal2.IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
// Principal2.IdHTTP1.Request.ContentEncoding := 'multipart/form-data';
Principal2.IdHTTP1.Request.ContentEncoding := 'utf-8';
Principal2.IdHTTP1.Post('http://www.meusite.com.br/teste.php', Params, Stream);
except
on E: Exception do
begin
ShowMessage('Erro: '+#13+#13+#13+ E.Message);
abort;
end;
end;
|
_________________
Abraão Ramiro Lima de Paula Programador/Webdesigner |
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
