ProgressBar+tiempo en hacer POST HTTP

[dec]

Hola,

Bueno. "La madre del cordero" quiere decir lo que imaginabas: que ahí podía estar el "problema". Y entrecomillo problema, porque, si se trata de lo que últimamente estamos comentando no es un problema, sino que no se asignan métodos para ningún evento y así estos ni llegan a "dispararse" siquiera.

A ver. Si en tu aplicación estás usando un componente "IdHttp" que has añadido previamente a un formulario, y utilizas los eventos de este componente, lo que tienes que hacer es utilizar dicho componente para realizar la tarea.

En el código que muestras más arriba haces uso de un componente "IdHttp", pero lo creas tú en tiempo de ejecución:

Código Delphi [-]
http := TIdHTTP.Create(Self);

Ahora bien, ¿dónde asignas los métodos oportunos para los eventos que necesitas usar en el componente? En ningún lado... así que los eventos no se dispararán nunca en la vida.

Si añadiste un componente "IdHttp" al formulario y este se llama "IdHttp1", por ejemplo, lo que tienes que hacer es utilizar este componente y no crear otro... ¿para qué vas a crear un componente "IdHttp" si ya añadiste uno al formulario? No es lo habitual... o una cosa u otra, pero no ambas.

Ahora supongamos que el componente "IdHttp" que añadiste al formulario se llama "IdHttp1". Entonces podrías cambiar tu código de este modo:

Código Delphi [-]
procedure TFrmPrincipal.BEnviarClick(Sender: TObject);
var
  params: TStrings;
  respuesta: string;
begin
  params := TStringList.Create;
  try
    params.Add('titulo='+ETitulo.Text);
    params.Add('autor='+EAutor.Text);
    params.Add('noticia='+MNoticia.Text);
    respuesta := IdHttp1.Post('http://tekkenbolivia.net/archivos/php/noticias/envia_noticias.php', params);
    ShowMessage('Respuesta: ' + respuesta);
  finally
    params.Free;
  end;
end;

¿Se coge la idea?

[BlackDaemon]

ohhhh!!!
Bueno que tonto he sido al hacer eso, ahora ya me han quedado las cosas super claras, tienes razón Dec ahí estoy creando el mismo componte y el otro no me serviría para nada... por eso nunca se movian los progressbar, ahora si por lo menos ya se mueven Pero estan medio locos, por que suben y bajan, por ej llega a 10 % baja a 0, luego sube a 30 % y baja.. luego así se la pasa hasta que termina de realizar las peticiones/recepciones de datos pero claro.. ahora se que pueda ser por el bucle que estoy usando, por el momento tengo que salir un rato, mas tarde regreso y continuaré leyendo sobre el tema que me gusta mucho como trabaja delphi+internet creo que es cosa de aprender nada mas.. y yo lo veía complicado
aquí les dejo mi código que estoy usando para las búsquedas.

Código Delphi [-]
procedure TForm1.SBBuscarClick(Sender: TObject);
var
  params: TStrings;
  respuesta: string;
  I : Integer;
begin
  params := TStringList.Create;
  try

  I := 0;
  while (I <= Final) do
  begin
    I := I + 10;
    respuesta := IdHTTP.Get('http://www.google.com.bo/search?hl=es&q='+EPalabra.Text+'&hl=es&start='+IntToStr(I)+'&sa=N');
    MHtml.Text := MHtml.Text + respuesta;

  end;
  finally
    IdHTTP.Free;
    params.Free;
  end;
end;

final es una variable tambien.

y tengo en los eventos de mi componente idHTTP lo mismo que tenía antes, no he tocado nada, osea está en mis ateriores post

saludos Dec