остановка и продолжение делфи
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
остановка и продолжение делфи - 2012-01-05 01:40:05.486666
|
|
|
DaEMonD1
Сообщений: 72
Оценки: 0
Присоединился: 2011-08-18 02:35:59.903333
|
Как сделать остановку программы и продолжение.
while e < r do
begin
info5:=form1.memo2.lines.Strings[t];
form1.idhttp3.Get(url+info5+'');
stream:=tmemorystream.create;
form1.idhttp3.get(url1,stream);
stream.savetofile('1.png');
form1.image1.picture.loadfromfile('1.png');
Сдесь Нужно пока не кликнеш Button4 дальше не пойдет выполнение кода
form1.idhttp3.POST(url2,info5);
end;
|
|
|
|
|
RE: остановка и продолжение делфи - 2012-01-09 17:08:11.806666
|
|
|
class0071
Сообщений: 300
Оценки: 0
Присоединился: 2011-01-27 17:15:23.750000
|
...
var
Cl: Boolean; // глобальная переменная
...
procedure TForm.FormCreate(Sender: TObject);
begin
Cl := False;
end;
...
procedure TForm.Button4Click(Sender: TObject);
begin
Cl := True;
end;
...
while e < r do
begin
info5:=form1.memo2.lines.Strings[t];
form1.idhttp3.Get(url+info5+'');
stream:=tmemorystream.create;
form1.idhttp3.get(url1,stream);
stream.savetofile('1.png');
form1.image1.picture.loadfromfile('1.png');
if Cl = false then Break else Continue;
Сдесь Нужно пока не кликнеш Button4 дальше не пойдет выполнение кода
form1.idhttp3.POST(url2,info5);
end;
P.S. Напиши свой ICQ.
|
|
|
|
|
RE: остановка и продолжение делфи - 2012-01-12 15:28:12.130000
|
|
|
unknownproject
Сообщений: 56
Оценки: 0
Присоединился: 2011-09-01 17:35:19.886666
|
Я бы затолкал все это дело в дополнительный поток, прописал код для обработчика оnclick кнопки и не создавал ничего обработчиком формы OnCreate.На сколько я понял, то нужно, чтобы программа выполняла свою задачу онли по нажатию кнопки, тогда мой вариант оптимален, даже более чем.
//Привет кодерам-извращенцам и бездумно копипастящей школоте, которая не умеет даже грамотно сформулировать свой вопрос.
|
|
|
|
|
RE: остановка и продолжение делфи - 2012-01-13 07:56:12.080000
|
|
|
Barkass$
Сообщений: 1854
Оценки: 40
Присоединился: 2008-11-11 12:19:45.216666
|
Зачем так извращаться?)
Помойму проще сделать поток:
TMyThread.Suspend - приостанавливает работу потока
TMyThread.Resume - возобновляет
|
|
|
|
|
|
