Текущий архив: 2007.09.30;
Скачать: CL | DM;

Вниз

Проблема   Найти похожие ветки 

← →
Bast   (2007-09-04 10:10) [0]

Здравствуйте! У меня 1 прооблемка. Дело в том что я хочу написать: Если невозможно подключиться то заного исполняется код... Сделал я это через метку, но почему то неработает

begin
inc(Timer);
If Timer>strtoint(form1.edit5.Text) then
begin
form1.Memo2.Lines.Add("Îòñîåäèíÿ&#2 29;ìñÿ îò ñåðâåðà íà "+form1.Edit6.Text+" ìèí.");
zz:
Synchronize(men);
form1.IdPOP31.Disconnect;
form1.IdSMTP1.Disconnect;
sleep(strtoint(form1.edit6.text)*60000);
form1.IdSMTP1.Host:=form1.Edit1.Text;
form1.IdPOP31.Host:=form1.Edit2.Text;
form1.IdSMTP1.Username:=form1.Edit3.Text;
form1.IdSMTP1.Password:=form1.Edit4.Text;
form1.IdPOP31.Username:=form1.Edit3.Text;
form1.IdPOP31.Password:=form1.Edit4.Text;
form1.IdPOP31.Connect();
If not form1.IdPOP31.Connected then goto zz;
timer:=0;
end;


---

← →
Ega23 ©   (2007-09-04 10:13) [1]

Расстрелять.

---

← →
Bast   (2007-09-04 10:15) [2]

:) расстрелять потом, сначало подсказать)

---

← →
Ega23 ©   (2007-09-04 10:15) [3]

А если серьёзно, то:
1. While (условие)
2. Выкинуть эту дрянь из дополнительного потока. Вообще убрать нафиг дополнительный поток.

---

← →
Ega23 ©   (2007-09-04 10:16) [4]

Да, ну и по аналогии с именами объектов, процедуры такде именовать
procedure1, procedure2, ... procedureN

---

← →
Сергей М. ©   (2007-09-04 10:28) [5]

> Bast


Если мне не изменяет память, тебя уже тыкали (и не раз) носом в грубые ошибки, связанные с обращениями к VCL-контролам в доп.потоке. А воз и ныне там)

Спамер из тебя, однако, никакой.. И это радует)

---

← →
Anatoly Podgoretsky ©   (2007-09-04 12:11) [6]

Действительно проблема, при том перманентная.

---

← →
Ivolg ©   (2007-09-04 13:24) [7]

А не проще ли сделать отдельную процедуру для подключения, в соответственном обработчике ловить ошибку, а затем исполнять процедуру подключения заново ?

---

Страницы: 1 вся ветка

Текущий архив: 2007.09.30;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.025 c