Hola tengo un problema con el siguiente codigo :
Código Delphi
[-]
var
par2: TIdMultiPartFormDataStream;
rta: string;
begin
par2 := TIdMultiPartFormDataStream.Create;
par2.AddFormField('ipaddress', ip.text);
par2.AddFormField('submit', 'Submit');
rta := idhttp1.Post
('http://www.melissadata.com/lookups/iplocation.asp?ipaddress=', par2);
memo.Lines.Add(rta);
end;
El codigo del formulario de la pagina es este :
Código:
<form method="post" action="iplocation.asp">
<table class="Tableresultborderblue" align="right" border="0" cellpadding="0" cellspacing="0" width="300">
<tbody><tr><td align="center"><span style="font-size:12px;">Your IP Address: 181.92.20.173</span></td></tr>
<tr><td align="center" height="35px"><strong>Enter an IP address</strong></td></tr>
<tr><td align="center"><input id="ipaddress" name="ipaddress" value="" class="inputoff" type="text"></td></tr>
<tr><td height="10"></td></tr>
<tr><td align="center" height="45px"><input title="Click to process Address" class="btn" value="Submit" type="submit"></td></tr>
<tr><td height="10"></td></tr>
</tbody></table>
</form>
El problema es que siempre hago mal el request porque siempre me devuelve el formulario vacio sin la respuesta buscada
, intente usando StringList en vez de TIdMultiPartFormDataStream pero el problema persiste , tambien use el siguiente codigo
pero todo sigue igual :
Código Delphi
[-]
IdHTTP1.Request.Referer:='http://www.melissadata.com/';
¿ Alguien me puede ayudar a realizar correctamente la peticion POST ?
pd : uso Delphi XE2