Código: Seleccionar todo
<p>
<form method="post">
<table width=600>
<tr>
<td align="left" valign="top" width="400">
<input type="hidden" name="IP" value="190.108.xxx.xxx"/>
<table style="font-size: 18px;">
<tr>
<td>Your IP:</td>
<td><b>190.108.xxx.xxx</b></td>
</tr>
<tr>
<td>What Port?</td>
<td><input type="text" size=5 name="port" value="80"/></td>
</tr>
<tr>
<td colspan="2"><input type="submit" name="submit" value="Check Your Port"/></td>
Código: Seleccionar todo
var URL: string;
Params: string;
Response: TMemoryStream;
begin
Response := TMemoryStream.Create;
try
URL := 'www.CanYouSeeMe.org ';
Params := 'port' + EncodeURLElement('81'); //+ '&' +
// 'parameter2=' + EncodeURLElement('data2');
if HttpPostURL(URL, Params, Response) then
Response.SaveToFile('response.txt')
else
showmessage('hay un error y no se cual es');
finally
Response.Free;
end;