Foros Club Delphi - lanzar formulario desde delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)

- - lanzar formulario desde delphi (https://www.clubdelphi.com/foros/showthread.php?t=59912)

fmatias

12-09-2008 17:34:59

lanzar formulario desde delphi

Buenas tardes quisiera saber cómo podría ejecutar este formulario desde delphi.

Código PHP:


		
			
        <form action="index.php?" method="POST" accept-charset="ISO-8859-1">

<input type="hidden" name="typ" value="2" />

            <p>trabajo:</p>

            <div>

                <span>Tiempo de trabajo</span>

                <select name="az" size="1" class="input">

                    <option value="1">1 Horas</option>

                    <option value="2">2 Horas</option>

                    <option value="3">3 Horas</option>



                </select>

        <input type="submit" name="dowork" value="¡Ir!"  class="button3"/>

            </div>

        </form>

He probado con el comando ShellExecute pero no consigo pasarle correctamente los parámetros.

Código Delphi [-]ShellExecute(Handle, 'open', Pansichar(texto), nil, nil, SW_SHOW);

Podría ayudarme?

Gracias.

dec	12-09-2008 17:37:38

Hola,

Busca información en estos mismos foros (y entre los trucos del Club) sobre cómo realizar una petición "HTTP POST" desde Delphi.

fmatias

12-09-2008 18:25:05

Hola dec
ya había visto algunos ejemplos de los trucos:

Realizar un "Post HTTP" con la clase "TIdHttp" de Indy

HTTP GET y HTTP POST utilizando WinInet

Código Delphi [-]  datosPost := TIdMultiPartFormDataStream.Create;
          try
            datosPost.AddFormField('az', '1');
            datosPost.AddFormField('typ', '2');
            datosPost.AddFormField('dowork', '¡Ir!');

            idHttp := TIdHTTP.Create(Self);
            try
              texto := 'http://'+combobox3.text+'/game/index.php?mod=work&sh'+edit1.Text;
              Respuesta := idHttp.Post(texto, datosPost);
             // ShowMessage('Respuesta: ' + respuesta);
            finally
              idHttp.Free;
            end;
          finally
            datosPost.Free;
          end;

y funciona correctamente, pero en el caso que tengo duda es que quiero que se abra el navegador con la dirección web pasándole los parámetros necesarios.

La franja horaria es GMT +2. Ahora son las 15:29:11.