que tal estoy intentando pasar parametros a una pagina y luego hacer click en el boton el problema es que no consigo diferenciar los parametros y menos hacer click en el boton , segun lo que vi se lograria con un java script este es el codigo de la pagina

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>
y este el codigo en delphi (usa synapse)

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;
desde ya gracias
paresco malo ,pero soy bueno
solucionado dandole duro me salio, ( me cambie al componente idhttp)
y este es la parte del codigo que no entendia ahora esta explicado

Código: Seleccionar todo

  try
    params.Add(edit2.text);// primer parametro el puerto a enviar
    params.Add('submit=Check Your Port');// el dichoso button click     

respuesta := http.Post('http://www.canyouseeme.org', params);

   mRespuestaPost.Text:= respuesta;
      mRespuestaPost.lines.SaveToFile('canyou.htm');
tengo una prgunta final el lenguage delphi no esta activo en esta pagina
acaso no tiene las capacidades de programacion que otros lenguages
porque en otros foros ni aparace solo hay articulos como programacion en general?
paresco malo ,pero soy bueno
muy ofuscado escribió:solucionado dandole duro me salio, ( me cambie al componente idhttp)
y este es la parte del codigo que no entendia ahora esta explicado

Código: Seleccionar todo

  try
    params.Add(edit2.text);// primer parametro el puerto a enviar
    params.Add('submit=Check Your Port');// el dichoso button click     

respuesta := http.Post('http://www.canyouseeme.org', params);

   mRespuestaPost.Text:= respuesta;
      mRespuestaPost.lines.SaveToFile('canyou.htm');
tengo una prgunta final el lenguage delphi no esta activo en esta pagina
acaso no tiene las capacidades de programacion que otros lenguages
porque en otros foros ni aparace solo hay articulos como programacion en general?
Es un lenguaje potente pero lo que sucede que a muchos no les gusta estudiar, sino solo se basan en los sources de cripters publicos y en vb. Pero es bueno le heches leña a otro lenguaje.
Responder

Volver a “Delphi”