Отмена выпонения цикла.

← →
Xmen (2006-11-23 13:45) [0]

Привет Мастера. Нужен ваш совет
Хочу сделать так.
В цикле проигрывается beep пока не нажата любая клавиша.

repeat
beep;
until сюда нужно писать условие;

Вот это незнаю как это сделать.

← →
Сергей М. © (2006-11-23 13:48) [1]

> незнаю как это сделать.

Можешь ли объяснить, зачем это делать ?)

Т.е. конечная задача, решаемая твоим приложением ?

← →
Xmen (2006-11-23 13:54) [2]

Делаю процедуру который проверяет каталог куда приходит писма-файлы, когда придет новый файл то нужно извещать юзера звуком. Звук прекрашается когда нажимается любая клавиша.

← →
Array © (2006-11-23 13:56) [3]

repeat K := I mod J; I := J; J := K; until J = 0;
в чем собственно проблема?

← →
Anatoly Podgoretsky © (2006-11-23 13:56) [4]

А где этот огрызок кода фигурирует?

← →
Array © (2006-11-23 13:58) [5]

> когда придет новый файл то нужно извещать юзера звуком.

бедный юзер....
Application.ProcessMessages

← →
Jeer © (2006-11-23 13:58) [6]

Используй таймер, на приход письма - Enabled := True и OnTimer делай beep и проверку флага.
Когда юзер нажмет любую клавишу - сбрасывай флаг.

← →
Джо © (2006-11-23 13:59) [7]

> [2] Xmen (23.11.06 13:54)
> Делаю процедуру который проверяет каталог куда приходит
> писма-файлы, когда придет новый файл то нужно извещать юзера
> звуком. Звук прекрашается когда нажимается любая клавиша.

sndPlaySound ("имя_wave_файла",SND_ASYNC or SND_LOOP);
Звук будет проигрываться асинхронно и "бесконечно".
Для прекращения проигрывания вызвать:
sndPlaySound (nil,0);

← →
Anatoly Podgoretsky © (2006-11-23 14:03) [8]

> Array (23.11.2006 13:58:05) [5]

Телепатия?

← →
Xmen (2006-11-23 14:04) [9]

Процедура проверяюший каталог и дабавляюший данные листбокс и вызевает процедуру проверки изменения.

procedure RefreshFileRecv;
var F: TSearchRec;
i, done: integer;
begin
form1.lbFileRecv.Items.Clear;
i:=0;
done := FindFirst(PathForRecv+"*.*",faArchive,F);
while done = 0 do
begin
form1.lbFileRecv.Items.Add((F.Name+" "+FormatDateTime("dd-mm-yyyy hh:nn:ss", FileDateToDateTime(f.Time))));
inc(i);
done := FindNext(F);
end;

provrecv(i);

end;

проверка изменения (правда приметивный)

procedure provrecv(ResultRecv:integer);
var TotalRecvFiles:string;
begin
IniFile := TIniFile.Create(path+"MyMail.ini");
TotalRecvFiles:=IniFile.ReadString("Main","TotalRecvFiles","");читает данные из ини для проверки и идет сверка
if strtoint(TotalRecvFiles)<>ResultRecv then
begin
repeat
beep;
Form1.Update;
form1.lbFileRecv.Color:=clblue;
until пока ненажемается клавиша;
IniFile.WriteString("Main" , "TotalRecvFiles", inttostr(ResultRecv));изменяется данные в ини
end;
end;

← →
Джо © (2006-11-23 14:06) [10]

> [9] Xmen (23.11.06 14:04)

См. [7] и не нужно никаких циклов и извращений :)

← →
Xmen (2006-11-23 14:06) [11]

> sndPlaySound ("имя_wave_файла",SND_ASYNC or SND_LOOP);
> Звук будет проигрываться асинхронно и "бесконечно".
> Для прекращения проигрывания вызвать:
> sndPlaySound (nil,0);

у юзера нет колонок!

← →
Джо © (2006-11-23 14:07) [12]

> [11] Xmen (23.11.06 14:06)
>
> > sndPlaySound ("имя_wave_файла",SND_ASYNC or SND_LOOP);
>
> > Звук будет проигрываться асинхронно и "бесконечно".
> > Для прекращения проигрывания вызвать:
> > sndPlaySound (nil,0);
>
>
> у юзера нет колонок!

Так может, он и не хочет, чтобы у него компьютер шумел? А ты его писиспикером мучишь :D

← →
Xmen (2006-11-23 14:12) [13]

Делаю внутренную почтовую прогу для филиала и увы знаю что не у всех есть колонки и поэтом делаю это c beep.

← →
Сергей М. © (2006-11-23 14:18) [14]

> делаю это c beep.
> <Цитата>
>
>

Тогда уж с Windows.Beep() .....)

тебе придется сотворять глобальный низкоуровневый клавиатурный хук.

А что делать ?)

Сам виноват)

← →
Xmen (2006-11-23 14:28) [15]

И что можете еще посоветовать

← →
Сергей М. © (2006-11-23 14:29) [16]

Оно самое и посоветую - глобальный низкоуровневый клавиатурный хук.

← →
Xmen (2006-11-23 14:42) [17]

Если бы твои слова понял то опять не спрашевал бы.

← →
clickmaker © (2006-11-23 14:42) [18]

> [15] Xmen (23.11.06 14:28)
> И что можете еще посоветовать

а это... может иконку в трей? с хинтом

← →
Сергей М. © (2006-11-23 14:43) [19]

> Xmen (23.11.06 14:42) [17]

Я вроде бы громко сказал) ... И не шумно в сей момент было ...

Что ж не понять ?

Гугль в руки - и вперед !

Ы ?

← →
RASkov (2006-11-23 14:48) [20]

[18]... или MessageBox("Пришло новое письмо");

← →
Xmen (2006-11-23 15:02) [21]

> а это... может иконку в трей? с хинтом

тоже вариант, прога обычно в трейе находится. Я вроде как в QIPe хотел сделат, в нем есть такая фишка когда приходит новое сообщение то показвает форму с сообшением над трейем. Но незнаю как это сделать.

> Xmen (23.11.2006 15:02:21) [21]

Какая версия Дельфи?

Отвечать не надо, посмотрел исходное сообщение.
Если бы 2006, то в tray-icon есть baloon hint
А у тебя Д7 да еще и 98

← →
Xmen (2006-11-23 15:59) [25]

> Если бы 2006, то в tray-icon есть baloon hint
> А у тебя Д7 да еще и 98

и ХР

> Xmen (23.11.2006 15:59:25) [25]

А это уже роли не играет, поскольку должно работать на обеих системах.
ОЕ например в этом случае высвечивает дополнительную иконку в трее.

← →
Xmen (2006-11-24 07:35) [27]

Ну тогда наверно иду по неправелному пути раз эту задачу я немог решит. Предется отказатся от него.

← →
ASoft (2006-11-24 08:16) [28]

> Xmen (23.11.06 13:54) [2]

а просто модальное окно (или по верх всех окон) + сопровождение beep показать пользователю нельзя?

← →
Xmen (2006-11-24 08:32) [29]

Попробую.

Отмена выпонения цикла. Найти похожие ветки