Problema con bucle.

[rauros]

Okey. Voy a explicarlo todo lo que pueda:

Edit1 - Edit20 son huecos en los que se ponen los links que quiera abrir.
Edit21 es el número de páginas que vamos a abrir.
x es integer. Cada pagina abierta se le suma 1 para saber por que página va.
y es edit21 pero traducido a integer (StrToInt).

Función del programa:

Abrir páginas de una en una cada 35 segundos, a excepción de la primera, que será inmediata. El tiempo empieza a contar desde que aprieto el botón button2. Cuando acaba de abrirse todas las páginas, se cierra la aplicación.

[[Delphius]]

Bueno rauros, debería funcionarte.
Con poner el intervalo en el button2 en 35 segundos debería funcionar.

Por el tema de cerrar la aplicación una vez que termine debes hacer algo asi:

Código Delphi [-]
if x > y
  then begin 
          Timer1.Enabled := False;
          Application.Terminate;
          // Exit sólo abandona el procedimiento o función!
         end;

Saludos,

[rauros]

No hace falta, ya lo solucioné con halt; después de else pero gracias por la preocupación.

[ixMike]

A ver si te gusta esta alternativa:

Coloca un TMemo, un TTimer y un TButton.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
y:=Memo1.Lines.Count;
x:=0;
Timer1.Interval:=35000; //Esto se puede poner en tiempo de diseño.
Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
If y>x then
  begin
  ShellExecute(Handle, 'open', PChar(Memo1.Lines[x]), nil, nil, SW_SHOWNORMAL);
  Inc(x);
  end
 else
  Close;
end;

Ahora sólo tendrás que escribir las páginas en el Memo1 (sin dejar renglones en blanco). No tendrás la limitación de 20 páginas, ni tendrás que escribir la cantidad en un edit. Además, podrías poner otro edit, para indicar el tiempo (en segundos) de espera. Sólo tendrías que cambiar una cosa:

Código Delphi [-]
Timer1.Interval:=StrToInt(EditTiempo.Text)*1000; //multiplico *1000 porque está es segundos

¿Te gusta?

Salu2

[[Delphius]]

Y bueno ya que andamos... también podemos usar otra variante (aprovechando el Memo): abrir un archivo que contenga estos datos.

E incluso podemos eliminar el timer y aún asi hacer que cada 35 segundos se visite una página. ¿O no ixMike?

Saludos,

[rauros]

Bueno bueno, ya terminé de compilarlo y todo. He visto tu código ixMike, pero como hay cosas que no comprendo aun lo he dejado como yo lo he hecho. Muchísimas gracias.

[ixMike]

Empezado por Delphius

Y bueno ya que andamos... también podemos usar otra variante (aprovechando el Memo): abrir un archivo que contenga estos datos.

E incluso podemos eliminar el timer y aún asi hacer que cada 35 segundos se visite una página. ¿O no ixMike?

Saludos,

y también hacer un programa sin ventana, que lea de un archivo los datos, tanto las páginas como el tiempo de espera. Sería algo así: dos archivos, MiniUnidad.pas, y MuestraPaginas.dpr

Código Delphi [-]
unit MiniUnidad;

interface

//Para ahorrarnos Windows.pas
const
  SW_SHOWNORMAL = 1;

//Para ahorrarnos ShellApi.pas y Windows.pas
function ShellExecute(hWnd: Integer; Operation, FileName, Parameters,
  Directory: PChar; ShowCmd: Integer): Integer; stdcall;
procedure Sleep(dwMilliseconds: Integer); stdcall;

//Para ahorrarnos SysUtils.pas
function StrToInt(const S: String): Integer;

implementation

function ShellExecute; external 'shell32.dll' name 'ShellExecuteA';
procedure Sleep; external 'kernel32.dll' name 'Sleep';

function StrToInt(const S: String): Integer;
var n, r, m: integer;
begin
r:=0;
m:=1;
for n:=Length(S) downto 1 do
  begin
  Inc(r, (Ord(S[n])-48)*m);
  m:=m*10;
  end;
Result:=r;
end;

end.

Código Delphi [-]
program MuestraPaginas;

uses MiniUnidad;

var
  F: TextFile;  //Archivo de texto
  L: String;  //Página a abrir
  T: Integer; //Tiempo a esperar

begin
AssignFile(F, ParamStr(0)+'.txt'); //Abre el archivo MuestraPaginas.exe.txt
Reset(F);
ReadLn(F, L);
T:=StrToInt(L);
while not EOF(F) do
  begin
  ReadLn(F, L);
  ShellExecute(0, 'open', PChar(L), nil, nil, SW_SHOWNORMAL);
  Sleep(T);
  end;
CloseFile(F);
end.

No lo he comprobado, pero debería funcionar.


Salu2

[rauros]

No se que decir. Bravo xD. Y como funcionaría? Debo crear un archivo de texto y ponerle que nombre? Y cada linea sería una página web?

[ixMike]

Bueno, tiene algún fallo, pues no se ejecuta nada, ¿a alguien se le ocurre qué puede ser?

[rauros]

No se. Yo desde cero solo se hacer programas con Turbo Pascal XD... Los demás tienen que tener las propiedades principales de unit y eso creadas ya.