Разделы сайта:

Новости сайта
Delphi.int.ru Expert
Файловый архив
∙ Статьи
∙ Компоненты
∙ Plug-in's
∙ Документация
∙ Исходники
∙ Изображения
∙ Игры
∙ Программы
Форум
F.A.Q.
Архив рассылки
Каталог сайтов
Обратная связь

Разделы рассылки:

Авторское слово
Delphi.int.ru Expert
Статья по Delphi
Файловый архив
Друзья
Юмор

Количество читателей рассылки (09.11.2006, 18:00):
5310+523=5833.

Текст вопроса:

Уважаемые эксперты!
Как в форму вставить таймер?
И по окончании времени заблокировать форму и выдать сообщение?
Спасибо.

Автор вопроса: Ilia Ermakov (статус: Посетитель)
Дата и время отправки вопроса: 28.07.2006, 18:16
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 3
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Помфюк Владимир Степанович (статус: 6-ой класс), 28.07.2006, 18:27]:

Здравствуйте, Ilia Ermakov!
Поместите на форму компонент TTimer и в событии OnTimer пишите все действия, которые должны произойти

Оценка за ответ: 5.

2. [Отвечает: Вадим К (статус: 8-ой класс), 28.07.2006, 19:53]:

Здравствуйте, Ilia Ermakov!
Выдать сообщение - ShowMessage('Сообщение');
Заблокировать форму - Form1.Enable:=false;
Хотя, если отображается сообщение, то форма будет заблокирована. А по закрытию сообщения закрываем форму.
Также неплохо отключить таймер в обработчике таймера, а то может выскакивать несколько сообщений.

Оценка за ответ: 5.

Текст вопроса:

Уажаемые эксперты, какой параметр формы отвечает за то, чтобы ее нельзя было растягивать (сохранить один размер и положение на экране)?

Автор вопроса: Ilia Ermakov (статус: Посетитель)
Дата и время отправки вопроса: 28.07.2006, 20:17
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 2
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Сергей Устинов (статус: 1-ый класс), 28.07.2006, 20:29]:

Здравствуйте, Ilia Ermakov!

Установите BorderStyle:=bsSingle; - растягивать форму нельзя.
Можно также убрать ненужные кнопки:
В разделе BorderIcons отключаете biMinimize и biMinimize.

Удачи!

Оценка за ответ: 4.

2. [Отвечает: Косолапов Дмитрий Юрьевич (статус: 2-ой класс), 28.07.2006, 20:51]:

Наиболее простой, но радикальный способ удить двух зайцев - поставить BorderStyle:=bsNone

Текст вопроса:

Уважаемые эксперты, какой метод таймера получает его текущее значение времени?
Спасибо.

Автор вопроса: Ilia Ermakov (статус: Посетитель)
Дата и время отправки вопроса: 28.07.2006, 20:36
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 1
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Косолапов Дмитрий Юрьевич (статус: 2-ой класс), 28.07.2006, 20:53]:

Смотря что понимать под значением таймера. Если его интервал - то свойство так и зовется - Interval. Если надо получить системное время, то это функция Time, и к таймеру она никакого отношения не имеет.

Оценка за ответ: 5.

2. [Отвечает: Alexander A. Gribanov (статус: 2-ой класс), 31.07.2006, 11:47]:

Никакой метод таймера не получает его текущее значние времени. Период таймера доступен через свойство Interval. Ввиду того, что TTimer - это обёртка вокруг функий WinAPI *WaitableTimer - в нём принципиально нет возможности узнать сколько он "натикал".

Оценка за ответ: 5.

Текст вопроса:

Уважаемые эксперты какое свойство, или, может быть, это по-другому делается, рисует в ProgressBar квадратики?
Цель - связать таймер с ProgressBar.

Спасибо.

Автор вопроса: Ilia Ermakov (статус: Посетитель)
Дата и время отправки вопроса: 28.07.2006, 20:38
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Косолапов Дмитрий Юрьевич (статус: 2-ой класс), 28.07.2006, 20:57]:

Не помню точно, у прогресс-бара есть свойство либо Value, либо Position, либо Progress, либо что-то наподобие... Поэтому в событии OnTimer твоего таймера надо напиать как-то так: ProgressBar1.Progress:=NewPos, где NewPos - переменная, в которой хранится новое положение прогресс-бара. Также должны быть свойства, определяюшие интервал значений прогресс-бара.

2. [Отвечает: Alexander A. Gribanov (статус: 2-ой класс), 31.07.2006, 11:37]:

У компонента TProgressBar есть свойства Min, Max и Position. Они задают минимальное, максимальное значение и текущую позицию соответственно. За то, чтобы рисовать "квадратики" или "не квадратики" отвечает свойство Smooth.
Для того, чтоб по таймеру показывать позицию ProgressBar'а нужно, например:
1. Помещаем на форму ProgressBar. Устанавливаем свойство Min в 0, Max в 10, Position в 0.
2. Помещаем на TTimer, устанавливаем Interval в 100 (0.1с) и в событии OnTimer увеличиваем значение ProgressBar.Position на 1. Проверяем его на равенство 10, и, если Position равен 10 останавливаем таймер (Timer.Enabled := False) и выдаём какое-то сообщение.
Всё. Это пример ProgressBar'а, заполняющегося в течение 1с.
P.S.: В встоенную систему помощи заглядывать пробовал ?.. Если не знаешь английского, то его пора начинать учить...

Оценка за ответ: 5.

Текст вопроса:

Доброе время суток, господа Программисты. Подскажите пожалуйста. Как сделать программу полностью невидимой для юзьверя? Заранее благодарен!!! Жду вашего ответа.

Автор вопроса: Stalker (статус: 1-ый класс)
Дата и время отправки вопроса: 28.07.2006, 23:38
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Евгений Козаченко (статус: 1-ый класс), 29.07.2006, 12:49]:

Здравствуйте, Гринько Виктор Генадьевич!
Чтобы спрятать приложение от непродвинутого пользователя достаточно прописать код из приложения.
В этом случае программу можно будет увидеть только во вкладке Процессы в окне Диспетчер задач.
Чтобы скрыть её от посторонних достаточно назвать её Sysini или inst32, чтобы все думали что она системная :)

Приложение:

ShowWindow(Handle,SW_HIDE); ShowWindow(Application.Handle,SW_HIDE);

2. [Отвечает: Матвеев Игорь Владимирович (статус: 10-ый класс), 31.07.2006, 06:25]:

Здравствуйте, Гринько Виктор Генадьевич!
Серьезно: Написать сервис - для XP или зарегистрировать как сервис для Win98.
Несерьезно: Написать драйвер (asm) и работать в режиме ядра.

Текст вопроса:

Доброе время суток, господа Программисты. Подскажите пожалуйста. Как открыть доступ к папке или диску програмно. Заранее благодарен!!! Жду вашего ответа.

Автор вопроса: Stalker (статус: 1-ый класс)
Дата и время отправки вопроса: 29.07.2006, 16:07
Получено ответов на вопрос: 1
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Матвеев Игорь Владимирович (статус: 10-ый класс), 31.07.2006, 06:49]:

Здравствуйте, Гринько Виктор Генадьевич!
См. Пример: будет работать и в XP и в Win98.
http://www.delphi.int.ru/expert/?step=download&id=12.

Текст вопроса:

Доброе время суток, господа Программисты. Подскажите пожалуйста. При запуске сокета, если нужный комп выключен вылетает виндю сообщение и программа перестает работать. Как сделать, что сообщение не вылетало, а програма продолжала работать? Заранее благодарен!!! Жду вашего ответа.

Автор вопроса: Stalker (статус: 1-ый класс)
Дата и время отправки вопроса: 12.08.2006, 15:51
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Виталий Лещенко (статус: 2-ой класс), 13.08.2006, 22:55]:

Здравствуйте, Гринько Виктор Генадьевич!

Можно код подключения к серверу завернуть в
try
// тут код подключения
except
// тут код обработки исключения...
end;

Подробнее про исключения можно почитать здесь
http://vitaliy.org/book/delphi/delphi_7_04.php

2. [Отвечает: Матвеев Игорь Владимирович (статус: 10-ый класс), 14.08.2006, 12:27]:

Здравствуйте, Гринько Виктор Генадьевич!
Конструкция try/except/finally в данном случае не поможет, Вы должны обрабатывать событие OnError, установите var-параметр ErrorCode в 0 и сообщение не будет показанно.

Приложение:

procedure TForm1.ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer); begin ErrorCode := 0; end;

Текст вопроса:

Я запускаю Ping в окне Memo1.
Получается такое(дополнение1);
Как можно с етого текста достать только IP?
Использовал следущий код (дополнение2);
А возможно как-то зделать все это(из названия www сайта IP) без memo?

Приложение:

Дополнение1: Обмен пакетами с www.mail.ru [194.67.57.26] по 32 байт: Ответ от 194.67.57.26: число байт=32 время=221мс TTL=111 Ответ от 194.67.57.26: число байт=32 время=280мс TTL=111 Ответ от 194.67.57.26: число байт=32 время=263мс TTL=111 Ответ от 194.67.57.26: число байт=32 время=247мс TTL=111 Статистика Ping для 194.67.57.26: Пакетов: отправлено = 4, получено = 4, потеряно = 0 (0% потерь), Приблизительное время приема-передачи в мс: Минимальное = 221мсек, Максимальное = 280 мсек, Среднее = 252 мсек ---------------------------------------------------------------------------------------- Дополнение2 procedure RunDosInMemo(CmdLine: string; AMemo: TMemo); const ReadBuffer = 2400; var Security: TSecurityAttributes; ReadPipe, WritePipe: THandle; start: TStartUpInfo; ProcessInfo: TProcessInformation; Buffer: Pchar; BytesRead: DWord; Apprunning: DWord; begin Screen.Cursor := CrHourGlass; Form1.Button1.Enabled := False; with Security do begin nlength := SizeOf(TSecurityAttributes); binherithandle := true; lpsecuritydescriptor := nil; end; if Createpipe(ReadPipe, WritePipe, @Security, 0) then begin Buffer := AllocMem(ReadBuffer + 1); FillChar(Start, Sizeof(Start), #0); start.cb := SizeOf(start); start.hStdOutput := WritePipe; start.hStdInput := ReadPipe; start.dwFlags := STARTF_USESTDHANDLES + STARTF_USESHOWWINDOW; start.wShowWindow := SW_HIDE; if CreateProcess(nil, PChar(CmdLine), @Security, @Security, true, NORMAL_PRIORITY_CLASS, nil, nil, start, ProcessInfo) then begin repeat Apprunning := WaitForSingleObject (ProcessInfo.hProcess, 100); ReadFile(ReadPipe, Buffer[0], ReadBuffer, BytesRead, nil); Buffer[BytesRead] := #0; OemToAnsi(Buffer, Buffer); AMemo.Text := AMemo.text + string(Buffer); Application.ProcessMessages; until (Apprunning <> WAIT_TIMEOUT); end; FreeMem(Buffer); CloseHandle(ProcessInfo.hProcess); CloseHandle(ProcessInfo.hThread); CloseHandle(ReadPipe); CloseHandle(WritePipe); end; Screen.Cursor := CrDefault; Form1.Button1.Enabled := True; RunDosInMemo('ping '+ edit1.text, Memo1);

Автор вопроса: Наземнов Вячеслав (статус: Посетитель)
Дата и время отправки вопроса: 11.08.2006, 23:27
Получено ответов на вопрос: 3
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Виталий Лещенко (статус: 2-ой класс), 13.08.2006, 23:03]:

Здравствуйте, Наземнов Вячеслав!

Первый встречный вопрос: а как этот текст попадает в memo?
Вероятно он не сам туда попадает...
Это я к тому, что при добавлении можно отследить первую строчку "Обмен пакетами с www.mail.ru [194.67.57.26] по 32 байт:" и из нее "выдрать" ip.
Это легко сделать т.к. он заключен в "[", "]".
Для этого есть функция copy.

Оценка за ответ: 5.

2. [Отвечает: mvp (статус: 4-ый класс), 14.08.2006, 02:07]:

См. приложение. Но это только под Ваш пример

Приложение:

var _ : integer; ip : String; //---- ip := ''; for _:= 0 to memo1.lines.count - 1 do if pos('[', memo1.lines[_]) > 0 then begin ip := copy(memo1.lines[_], pos('[', memo1.lines[_]) + 1, pos(']', memo1.lines[_]) - pos('[', memo1.lines[_]) - 1); break end; if ip <> '' then //есть ip

Оценка за ответ: 5.

3. [Отвечает: Матвеев Игорь Владимирович (статус: 10-ый класс), 14.08.2006, 12:05]:

Здравствуйте, Наземнов Вячеслав!
Если стоит конкретная задача вычлинить необходимые данные из текста можно воспользоваться механизмом Regular Expressions, т.е. Регулярными выражениями.
Возьмите, например, реализацию от Андрея Сорокина (http://regexpstudio.com/RU/).
Приемущество будет в том, что запрос можно изменить во время выполнения.

Приложение:

Маска регулярного выражения для поиска IP в тексте: \d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}

Текст вопроса:

Здравствуйте!
Как можно нажатием на кнопку вставить какой-нибудь текст в нужное место уже имеющегося текста в memo.
Проще говоря, мне нужно организовать что-то типо системы форматирования текста phpBB или IPB, только в программе. :)
Как я понял, нужно оперировать со свойствами
SelStart, SelEnd и SelLength. Но вот дальше додумать не могу. (:
Походу, надо узнать ещё номер строки, в которой курсор стоит, а затем оперировать с copy delete и length.
Но вот что-то торможу... :)

А может вообще как-то подругому можно сделать???
_____
Заранее, спасибо!!!

Автор вопроса: Евгений В (статус: 1-ый класс)
Дата и время отправки вопроса: 12.08.2006, 03:37
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 1
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Stalker (статус: 1-ый класс), 13.08.2006, 01:28]:

Здравствуйте, Евгений В! Я сейчас вам напишу маленькое приложение, а вы извлекайте нужные вам части кода.
У нас есть Memo, Button, Edit.
Мы щелкаем мышкай по нужной строчке в Мемо, нужная строчка показывается в Edit, мы изменям текст в Edit и нажимаем на кнопку, после этого нужная строчка изменяется в Мемо.
С полученной строчкой из Мемо можно работать как и обычной строкой.

Приложение:

\\Мы щелкаем мышкай по нужной строчке в Мемо procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Edit1.Text:=Memo1.Lines.Strings[Memo1.CaretPos.Y]; end; \\нажимаем на кнопку procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Lines.Strings[Memo1.CaretPos.Y]:=edit1.text; end;

Оценка за ответ: 5.
Комментарий: Спасибо!!! Вот оно, что мне надо Memo1.CaretPos.Y

2. [Отвечает: Косолапов Дмитрий Юрьевич (статус: 2-ой класс), 13.08.2006, 11:16]:

Вообще-то должно быть свойство SelText... Им и оперировать?

Оценка за ответ: 4.

Текст вопроса:

Уважаемые эксперты!
Помогите решить такую проблему:
Использую в проге обычный медиаплеер и на некоторых компьютерах файл *mp3 не звучит.
Пробую применить установленный в Делфи WindowsMediaPleer (внедрив его как ActivX). но он вообще не хочет проиграть файл с таким расширением. Может нужны какие-либо дополнительные установки?
Заранее благодарен

Автор вопроса: Freger (статус: Посетитель)
Дата и время отправки вопроса: 11.08.2006, 22:17
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 2
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Stalker (статус: 1-ый класс), 13.08.2006, 10:21]:

Здравствуйте, Freger! Вообще в Delphi с mp3 проблема. Не один из стандартных инструментов не может проигрывать mp3. Для этого нужно писать много кода, жалко не знаю какого. В Delphi World что-то по mp3 ecть. Если у вас нет Воролда, то я могу выслать статьи по mp3. Вот их названия:
>Получение MP3 тэга
>Просмотр и редактирование тэга ID3 (MP3)
>Работа с MP3 Tag-ами
Вообще, если надо чтобы программа играла mp3, то
пускай музыка проигравается через Winamp
Сначало мы открываем Винамп, потом нажимаем в Винампе несколько кнопок(можно другим приложением нажимать кнопки в другой программе), загружаем нужный mp3-файл. И запускаем на проигрывание.
Если нужны статьи или дополнения по загрузке через Винамп, пиши, пришлю.

2. [Отвечает: Матвеев Игорь Владимирович (статус: 10-ый класс), 14.08.2006, 11:43]:

Здравствуйте, Freger!
Дело в том, что ни MediaPlayer, ни WindowsMediaPlayer не могут играть mp3, как впрочем и все остальное. Они эксплуатируют медианитерфейс системы, описаный в файле mmsystem.pas. Проигрывание этими контролами возможно если установлен соответствующий декодер (это косается и аудио и видео).
Если тоскать кодеки обременительно в вашем случае можно использовать отдельный аудио движок, например bass.dll, он может играть mp3, ogg, некоторые трекерные форматы, такие как xm, it и т.д. и еще кое что.
Поищите на torry.net, в разделе Примеры по ключевому слову bass.dll.

Оценка за ответ: 5.

Программирование в Delphi 7 (Петр Дарахвелидзе, Евгений Марков):
- Кроссплатформенное программирование;
- Рекомендации по разработке приложений в стиле Windows XP;
- Современные технологии доступа к данным: ADO, dbExpress, InterBase Express;
- Распределенные многозвенные приложения и технология DataSnap.

:))