Gerson12
16-11-2012, 00:30:30
hola amigos bueno les vengo a consultar una duda que tengo la cual estoy usando indy ,para enviar unos datos a una web pero al enviar me sale una imagen y me gustaria me ayuden porfavor practicamente estoy usando este codigo
uses
{
Indy Components
Unidades necesarias para utilizar las clases
implicadas en la tarea que nos ocupa.
}
IdHTTP, IdMultipartFormData;
{
Evento "Click" de un supuesto botón "btnPost" que
utilizamos a modo de ejemplo para realizar la tarea.
}
procedure TfrmPrincipal.btnPostClick(Sender: TObject);
var
idHttp: TIdHTTP;
datosPost: TIdMultiPartFormDataStream;
begin
{
Creamos una instancia de la clase TIdMultiPartFormDataStream
que nos sirve para determinar luego los distintos pares
"claves=valor" de que se compone un supuesto "Post HTTP"
}
datosPost := TIdMultiPartFormDataStream.Create;
try
{
Como puede verse añadir pares "clave=valor" no resulta
nada complicado. Pueden añadirse tantas como sean precisas.
}
datosPost.AddFormField('NombreCampo1', 'ValorCampo1');
datosPost.AddFormField('NombreCampo2', 'ValorCampo2');
//datosPost.AddFormField('NombreCampo3', 'ValorCampo3');
{
Instanciamos un objeto de la clase "TIdHttp"
}
idHttp := TIdHTTP.Create(Self);
try
{
Y en la siguiente línea se lleva a cabo el "Post HTTP"
y además se obtiene su respuesta, que viene dada por el
propio método "Post" de la clase "TIdHttp".
}
mRespuestaPost.Text := idHttp.Post('http://www.url.com/', datosPost);
finally
idHttp.Free;
end;
finally
datosPost.Free;
end;
end;
pero al mandar la imformacion a ala web me sale asi una imagen como esta
http://i46.tinypic.com/2i137.jpg
Bueno espero me puedan ayudar con este problema que tengo tiempo
GRacias por su tiempo amigos
uses
{
Indy Components
Unidades necesarias para utilizar las clases
implicadas en la tarea que nos ocupa.
}
IdHTTP, IdMultipartFormData;
{
Evento "Click" de un supuesto botón "btnPost" que
utilizamos a modo de ejemplo para realizar la tarea.
}
procedure TfrmPrincipal.btnPostClick(Sender: TObject);
var
idHttp: TIdHTTP;
datosPost: TIdMultiPartFormDataStream;
begin
{
Creamos una instancia de la clase TIdMultiPartFormDataStream
que nos sirve para determinar luego los distintos pares
"claves=valor" de que se compone un supuesto "Post HTTP"
}
datosPost := TIdMultiPartFormDataStream.Create;
try
{
Como puede verse añadir pares "clave=valor" no resulta
nada complicado. Pueden añadirse tantas como sean precisas.
}
datosPost.AddFormField('NombreCampo1', 'ValorCampo1');
datosPost.AddFormField('NombreCampo2', 'ValorCampo2');
//datosPost.AddFormField('NombreCampo3', 'ValorCampo3');
{
Instanciamos un objeto de la clase "TIdHttp"
}
idHttp := TIdHTTP.Create(Self);
try
{
Y en la siguiente línea se lleva a cabo el "Post HTTP"
y además se obtiene su respuesta, que viene dada por el
propio método "Post" de la clase "TIdHttp".
}
mRespuestaPost.Text := idHttp.Post('http://www.url.com/', datosPost);
finally
idHttp.Free;
end;
finally
datosPost.Free;
end;
end;
pero al mandar la imformacion a ala web me sale asi una imagen como esta
http://i46.tinypic.com/2i137.jpg
Bueno espero me puedan ayudar con este problema que tengo tiempo
GRacias por su tiempo amigos