VPF::как правильно организовать цикл?

elementos

Дата 12.12.2007, 18:12 (ссылка)

(голосов:2)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 43
Регистрация: 10.12.2007

Репутация: нет
Всего: нет

к примеру есть код:

Код


procedure TForm1.Button1Click(Sender: TObject);
var pa, s, s1, s2, dir: string;
RegEx: TRegExpr;
begin
s := idhttp1.Get(adr);
RegEx := TRegExpr.Create;
try
regex.Expression := '\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}';
regex.Exec(s);
s1 := regex.Match[0];
caption := s1; // определили IP и сохранили его
repeat
runandwait(pa, '', dir, '', button1); // тут запускаем реконнект роутера, и ждем пока инет не подымется
application.ProcessMessages;
idhttp1.Disconnect; 
s := idhttp1.Get(adr); 
regex.Exec(s);
s2 := regex.Match[0]; // проверяем снова IP
until
caption <> s2; // если IP уже новый, то "стоп"
close; // тут закрывается прога
finally
regex.Free; // выполнится ли это???
end;
end;

интересно след. будет ли освобожден тип regex, ведь перед ним программа закрывается?
и как поймать ошибку если сайт adr будет к примеру недоступен?
где у idhttp ловить ее?
спасибо

Snowy

Дата 13.12.2007, 12:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484

Цитата(elementos @ 12.12.2007, 18:12

)

интересно след. будет ли освобожден тип regex, ведь перед ним программа закрывается?

Ну так для интереса, поставил бы бряку на этой строке и проверил бы ;-)

Цитата(elementos @ 12.12.2007, 18:12

)

и как поймать ошибку если сайт adr будет к примеру недоступен?

Аналогично - поместить Get в try .. except.

elementos

Дата 20.12.2007, 12:38 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 43
Регистрация: 10.12.2007

Репутация: нет
Всего: нет

подскажите, пишу следующую программу.
нужно: при запуске программа делает запрос на сайт, который возвращает внешний IP, сохраняет IP в переменной, затем запускает внешнюю программу реконнекта модема, ждет пока не подымется интернет после реконнекта, снова запрашивает свой внешний ip, и если он остался неизменным, то повторяет реконнект (при этом каждый раз нужно сравнивать ip после реконнекта) до тех пор, пока он не изменится.
при всем этом нужно чтобы если сайт, на котором идет проверка ip лежит к примеру, то выйти из цикла, т.е. нужно еще и обрабатывать ошибки от idhttp.
делаю так:

Код


var pa, s, s1, s2, dir: string;
RegEx: TRegExpr;
begin
timer1.Enabled := false;
try
s := idhttp1.Get(adr);
RegEx := TRegExpr.Create;
except // если поймаем какую-то ошибку, то уходим из процедуры
on E: EIdSocketError do
case E.LastError of
10060: exit; //
11001: exit; // может быть сдесь CLOSE вместо EXIT повесить ?
11004: exit; //
end;
end;
regex.Expression := '\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}';
pa := 'D:\а\reconnect.bat';
dir := 'D:\а\';
try
regex.Exec(s);
s1 := regex.Match[0]; // здесь определяем IP
caption := s1;
runandwait(pa, '', dir, '', button1); // запускаем реконнект и ждем
application.ProcessMessages;
idhttp1.Disconnect; // реконнект отработал, поехали снова проверять
s := idhttp1.Get(adr); // наверно тут нужно снова громоздить "try..xecept"?
regex.Exec(s); 
s2 := regex.Match[0];
if caption <> s2 then begin
exit;
close;
end
else begin
repeat
runandwait(pa, '', dir, '', button1);
application.ProcessMessages;
idhttp1.Disconnect;
s := idhttp1.Get(adr); //тут нужно снова громоздить "try..xecept"??
regex.Exec(s);
s2 := regex.Match[0];
until
caption <> s2;
end;
finally
regex.Free;
end;

для меня эта конструкция представляется слишком сложной и громоздкой, к тому-же непонятно, где какой end отвечает за какой блок. мозг можно сломать. smile

может есть более изящное решение?

Это сообщение отредактировал(а) elementos - 20.12.2007, 12:39

dumb

Дата 20.12.2007, 13:03 (ссылка)

(голосов:3)

Загрузка ...

sceloglauxalbifacies

Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

Репутация: 3
Всего: 158

Цитата(elementos @ 20.12.2007, 12:38

)

к тому-же непонятно, где какой end отвечает за какой блок. мозг можно сломать.

а не пробовал отступами пользоваться?!

Код


begin
  if blabla then begin
    blabla
  end;
end;

elementos

Дата 20.12.2007, 13:36 (ссылка)

(голосов:2)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 43
Регистрация: 10.12.2007

Репутация: нет
Всего: нет

Цитата(dumb @ 20.12.2007, 13:03

)

а не пробовал отступами пользоваться?!

так с отступами еще непонятней

dumb

Дата 20.12.2007, 19:44 (ссылка)

(голосов:1)

Загрузка ...

sceloglauxalbifacies

Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

Репутация: 3
Всего: 158

Цитата(elementos @ 20.12.2007, 13:36

)

так с отступами еще непонятней

эм... с проблемами глазомера - в клинику Федорова. smile

elementos

Дата 20.12.2007, 23:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 43
Регистрация: 10.12.2007

Репутация: нет
Всего: нет

Цитата(dumb @ 20.12.2007, 19:44

)

эм... с проблемами глазомера - в клинику Федорова.

у вас своеобразный (если не сказать странный) способ помощи. я пишу, что не знаю за какой блок какой end отвечает, вы мне советуете отступами пользоваться. как интересно их расставлять, если я не знаю куда?
и наконец в клинику, ну это уже за оскорбление я считаю. жаль правила форума слишком либеральны на этот счет ничего не написано. тогда учтите, "что посеешь - то и пожнешь".

dumb

Дата 21.12.2007, 00:04 (ссылка)

(нет голосов)

Загрузка ...

sceloglauxalbifacies

Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

Репутация: 3
Всего: 158

Цитата(elementos @ 20.12.2007, 23:29

)

я пишу, что не знаю за какой блок какой end отвечает

извини, но я не понимаю, как можно осмысленно писать программу не имея представления о базовом синтаксисе языка. когда видишь такие "шедевры", создается ощущение, что код бездумно "скопипастен" с какого-то убогого ресурса, что естественно не вызывает одобрения.

Цитата(elementos @ 20.12.2007, 23:29

)

тогда учтите, "что посеешь - то и пожнешь".

а угрожать мне не стоит - если смайлики недостаточно хорошо видны, включи отображение картинок.

elementos

Дата 21.12.2007, 09:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 43
Регистрация: 10.12.2007

Репутация: нет
Всего: нет

dumb
1. это мой код, ни откуда не "скопипастен".
2.

Цитата(dumb @ 21.12.2007, 00:04

)

а угрожать мне не стоит

это означает - "как вы будете к людям, так и люди будут к вам".
где здесь угроза?
3. кроме критики отсутствия отступов, и присвоения эпитета "шедевр", по сути вопроса сказать вам больше нечего?
все ясно.

ivan219

Дата 21.12.2007, 09:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 5
Всего: 12

elementos, вот так будет крассивее и понятнее.

Код


var 
   pa, s, s1, s2, dir: string;
   RegEx: TRegExpr;
begin
 timer1.Enabled := false;
 try
  s := idhttp1.Get(adr);
  RegEx := TRegExpr.Create;
 except // если поймаем какую-то ошибку, то уходим из процедуры
  on E: EIdSocketError do
   case E.LastError of
        10060: exit; //
        11001: exit; // может быть сдесь CLOSE вместо EXIT повесить ?
        11004: exit; //
   end;
 end;
 regex.Expression := '\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}';
 pa := 'D:\а\reconnect.bat';
 dir := 'D:\а\';
 try
  regex.Exec(s);
  s1 := regex.Match[0]; // здесь определяем IP
  caption := s1;
  runandwait(pa, '', dir, '', button1); // запускаем реконнект и ждем
  application.ProcessMessages;
  idhttp1.Disconnect; // реконнект отработал, поехали снова проверять
  s := idhttp1.Get(adr); // наверно тут нужно снова громоздить "try..xecept"?
  regex.Exec(s); 
  s2 := regex.Match[0];
  if caption <> s2 then
   begin
    exit;
    close;
   end
  else
   begin
    repeat 
     runandwait(pa, '', dir, '', button1);
     application.ProcessMessages;
     idhttp1.Disconnect;
     s := idhttp1.Get(adr); //тут нужно снова громоздить "try..xecept"??
     regex.Exec(s);
     s2 := regex.Match[0];
    until caption <> s2;
   end;
 finally
  regex.Free;
 end;

--------------------

Мой первый сайт и моя первая программа!!!!!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »