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

Delphi.int.ru

Новости сайта
Регистрация »
Файловый архив
∙ Статьи
∙ Компоненты
∙ Plug-in's
∙ Документация
∙ Исходники
∙ Изображения
∙ Игры
∙ Программы
Рассылки сайта
Дружеств. сайты
Каталог ссылок

Delphi.int.ru Expert

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

» Авторское слово
» Обучение Delphi
» Delphi.int.ru Expert
» Статья по Delphi
» Файловый архив
» Ссылки
» Юмор

Количество читателей рассылки (10.03.2007, 12:00):
5428+981+273= 6682.

Связь по e-mail:

admin@delphi.int.ru

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

В БД InterBase хранятся документы в формате PDF. Подскажите, как сделать просмотр в форме и браузере на Delphi 2006?

Автор вопроса: Краснов Сергей (статус: Посетитель)
Дата и время отправки вопроса: 18.11.2006, 07:55
Получено ответов на вопрос: 1
Сообщений в форуме вопроса: 1
Страница данного вопроса >>

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

1. [Отвечает: min@y™ (статус: 5-ый класс), 20.11.2006, 08:37]:

Если на компе у тебя установлен какой-нить Acrobat (Reader), то тыкай в Delphi: Component -> Import ActiveX control и там в списке найдёшь Adobe Acrobat 7.0 Browser Control Type Library. Сам я с ним не работал, но давно где-то в инете натыкался на статью, посвящённую сабжу.

Больше ничем помочь не могу, сорри.

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

Вечер Добрый! Подскажите пожалуйста, где можно найти инфу по написанию клиента на делфях к SQLServer?

Автор вопроса: T (статус: Посетитель)
Дата и время отправки вопроса: 18.11.2006, 21:08
Получено ответов на вопрос: 0
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

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

К сожалению, ответов на данный вопрос не поступило...

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

Уважаемые эксперты!
1) Необходимо сделать настройки горячих клавиш, наподобие как в WinAmp. То есть, есть лист, где два столбца (что это за компонент? Случаем не ValueListEditor?): Пункт и Горячая клавиша. Две кнопки (Принять и Очистить) и компонент HotKey. Нужно, чтобы при выборе строки из листа горячая клавиша
появлялась в HotKey (конечно, если она есть в листе). Затем эти данные (из листа) заносить в Ini-файл и при загрузке программы заносить их обратно в лист. Пунктов много (150-200, разделенные на несколько частей) и они заранее известны (и прописаны в листе). Что для всего этого нужно? Желательно с примером...
2) Как создать глобальные горячие клавиши?
3) Почему у меня не отображается Pages Common Controls, а в частности TTextViewer и TTextBrowser (D7)? Заранее спасибо...

Автор вопроса: feenords (статус: 1-ый класс)
Дата и время отправки вопроса: 19.11.2006, 00:08
Получено ответов на вопрос: 1
Сообщений в форуме вопроса: 10
Страница данного вопроса >>

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

1. [Отвечает: Dron (статус: 10-ый класс), 19.11.2006, 08:37]:

Здравствуйте, feenords!
1. Нет, в Winamp используется не ValueListEditor - там обыкновенный SysListView (в Delphi соответственно TListView со страницы Win32). Он достаточно удобен. Создаются два столбца и дальше они обрабатываются циклом. В ini-файл комбинации клавиш записываются в числовом эквиваленте. Более того, для этого даже ничего не нужно делать - тип TShortcut или THotkey легко можно использовать в качестве в параметра в IniFile.WriteInteger(). Аналогично делается и загрузка - через ReadInteger(). Раз горячих клавиш много, то всё следует обрабатывать циклом.
2. Их можно регистрировать в системе вручную, но проще воспользоваться готовыми компонентами. Я рекомендую использовать JvApplicationHotKey из JediVCL. В последних версиях пакета компонент немного изменил своё название, но найти его не сложно. Работать с ним просто: в HotKey заносится нужная комбинация, дальше Active:=True и горячая клавиша уже работает. При нажатии активируется соответствующее событие. При выходе из программы желательно делать Active:=False во избежание дальнейших ошибок. При этом никто не мешает регистрировать горячие клавиши собственноручно. См. пример в приложении. Там всё достаточно просто.
3. По умолчанию в Delphi вкладка "Common controls" скрыта, а компоненты "раскиданы" по остальным вкладкам. Компоненты TTextViewer и TTextBrowser недоступны вообще, даже при перемещении их на другие вкладки. К сожалению, указать точную причину этого я не могу.
Удачи!

Приложение:

# Пример демонстрирует установку горячей клавиши CTRL+F7 # unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls; type TForm1 = class(TForm) procedure FormActivate(Sender: TObject); procedure FormDestroy(Sender: TObject); private procedure WMHotKey(var Message: TMessage); message WM_HOTKEY; end; var Form1: TForm1; implementation {$R *.DFM} procedure Tform1.WMHotKey(var Message: TMessage); begin application.Restore; application.bringtofront; showmessage('Нажата CTRL-F7!'); end; procedure TForm1.FormActivate(Sender: TObject); begin RegisterHotKey(form1.Handle,123,mod_control,vk_f7); end; procedure TForm1.FormDestroy(Sender: TObject); begin UnregisterHotKey(Handle, 123) end; end.

Оценка за ответ: 5.
Комментарий: 1) Можно небольшой примерчик связи HotKey со вторым столбцом (занесение в данный столбец)?

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

Как автоматически создать псевдоним базы данных,
причем каталог с файлами должен указать пользователь
и на основе этих данных задается путь к базе в псевдониме.
Функция ExtractFilePath(ParamStr(0)) извлекает путь только
если файл данных находится в том же каталоге что и исполняемый
файл, а нужно указать путь, например если база находится на сетевом диске.
Спасибо за ответ.

Автор вопроса: Alexey (статус: Посетитель)
Дата и время отправки вопроса: 19.11.2006, 00:41
Получено ответов на вопрос: 1
Сообщений в форуме вопроса: 3
Страница данного вопроса >>

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

1. [Отвечает: Матвеев Игорь Владимирович (статус: Средний уровень), 19.11.2006, 03:06]:

Здравствуйте, Alexey!
Как создать псевдоним быза данных - воспользоваться методом TSession.AddStandardAlias(...). Первый параметр - имя псевдонима, второй - путь, третий - тип базы данных.
Выбрать каталог можно с помощью SHGetPathFromIDList(...), если этот диалог не нравится можно взять простой TOpenDialog и выбирать любой файл быза данных, а потом "округлять", оставив только каталог.

Приложение:

var Session : Tsession; --------- // Создание псевдонима TForm1.Create(Sender: TObject); begin with Session do begin ConfigMode := cmSession; try // Создание псевдонима if OpenDialog1.Execute then AddStandardAlias('Alias', ExtractFilePath(OpenDialog1.FileName), 'PARADOX'); // Соединение Table1.Active := True; finally ConfigMode := cmAll; end; end; end;

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

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

Здравствуйте, хотел бы узнать вот что: Какой метод должен быть в программе, чтобы часы выводили на экран текущее астрономическое время? Опишите пожалуйста этот метод. И ещё: как проверить чётность числа? If x mod 2=0 Then... это понятно, а второй способ?

Автор вопроса: Полушин Сергей Анатольевич (статус: Посетитель)
Дата и время отправки вопроса: 19.11.2006, 12:50
Получено ответов на вопрос: 5
Сообщений в форуме вопроса: 6
Страница данного вопроса >>

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

1. [Отвечает: Dron (статус: 10-ый класс), 19.11.2006, 16:22]:

Здравствуйте, Полушин Сергей Анатольевич!
Честно говоря, не понял, с чего Вы взяли, что способов проверки чётности числа всего 2... Ну раз 2, значит 2 :-) Первый, как Вы верно указали - проверять остаток от деления с помощью mod, а второй, более удобный - использование готовой функции... Однако стандартная функция проверяет не чётность числа, а его нечётность. Это функция Odd. Вот пример:
If not(Odd(x)) Then {число чётно}
Удачи!

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

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

Не совсем понятно, что значит "текущее астрономическое время", но узнать системное время можно, используя функцию Time...

3. [Отвечает: Новаковский Юрий Аврамович (статус: 3-ий класс), 20.11.2006, 12:16]:

Здравствуйте, Полушин Сергей Анатольевич!

Если Вам действительно нужно текущее астрономическое время, см. здесь:

http://www.intuit.ru/department/se/pposix/12/pposix_12.html на Си, но лучше чем ничего.
Удачи Вам!

4. [Отвечает: Матвеев Игорь Владимирович (статус: Средний уровень), 21.11.2006, 04:32]:

Здравствуйте, Полушин Сергей Анатольевич!
Добавлю только пару слов о Odd. Это суперфункция, т.е. например, если указать ей константное значение оно будет вычислено на этапе компиляции, а потом просто возвращено. И еще, это быстрая функция, она использует флаг P контроля четности, выставляемый командой ADD.

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

5. [Отвечает: Alexander A. Gribanov (статус: 2-ой класс), 21.11.2006, 09:43]:

Самый универсальный вариант безотносительно языка программирования - если чесло чётное, то младший бит числа равен 0, если не чётное - 1.
Следовательно в Delphi это может выглядеть так:
if (i and 1)=0 then ... // число чётное

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

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

Здравствуйте. В вопросе № 156 я спрашивал, как ограничить доступ к файлу Test.dat другими приложениями, пока запущено собственное. Но, видимо, вопрос был сформулирован некорректно. Дело в том, что интерес представляет ограничение доступа к файлу в принципе. Т.е., программа работает с каким-то файлом (*.ini; *.doc; *.txt и т.д.). В этот файл программа осуществляет чтение/запись. При чем, файл открывается только на время операции чтение/запись. Все остальное время он закрыт (это принципиально).
Подскажите пожалуйста, как сделать так, чтобы пока приложение запущено этот файл нельзя было открыть/скопировать проводником или Total commander'ом.

Автор вопроса: Романов М.Ю. (статус: Посетитель)
Дата и время отправки вопроса: 19.11.2006, 18:56
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 1
Страница данного вопроса >>

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

1. [Отвечает: Alex Van Glukhman (статус: 7-ой класс), 19.11.2006, 20:37]:

Здравствуйте, Романов М.Ю.!
Как и было написано ранее.
Тип TFileStream.
Берёшь файл с которым работаешь - вешаешь его в поток с параметром fmShareDenyNone, и делай с ним в проге всё что хочешь. Я же приводил код.

2. [Отвечает: Матвеев Игорь Владимирович (статус: Средний уровень), 21.11.2006, 04:43]:

Здравствуйте, Романов М.Ю.!
Есть два известных мне способа блокировать файл:
1. CreateFile с соответствующим параметром dwShareMode, суда же относятся TFileStream и file AssignFile т.к. это одно и тоже.
2. Написать драйвер, который будет перехватывать CreateFile, проврять имя файла - если указан Ваш файл - возвращать ошибку, если нет - передавать управление в оригинальную системную функцию.

Думаю в Вашем случае применим первый вариант.

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

Пишет автор вопроса № 165. Первая часть вопроса, видимо, не всем стала ясна. Как сделать так, чтобы выводилась строка, в которой было написано 12:30:45 РМ или АМ, короче текущее время а часть дня, это и есть астраномическое время. Пробовал искусственным способом, ну то есть проверять скок время и добавлять РМ или АМ условием больше или меньше 12, всё получается, но в вопросе сказано одним оператором. Заранее спасибо.

Автор вопроса: Полушин Сергей Анатольевич (статус: Посетитель)
Дата и время отправки вопроса: 21.11.2006, 18:37
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 1
Страница данного вопроса >>

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

1. [Отвечает: mvp (статус: 4-ый класс), 21.11.2006, 20:35]:

FormatDateTime('hh:mm:ss am/pm', now);

Посмотрите в helpe FormatDateTime и Date-Time Format Strings, если интересно, как это работает :)

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

2. [Отвечает: min@y™ (статус: 5-ый класс), 22.11.2006, 08:28]:

А ещё есть чудесный модуль DateUtils.pas, там много вкусных функций для работы с датами и временами. Ну, и в частности вот эта:

Приложение:

IsPM function ndicates whether the time portion of a specified TDateTime value occurs after noon. Unit DateUtils Category datetime routines Delphi syntax: function IsPM(const AValue: TDateTime): Boolean; C++ syntax: extern PACKAGE bool __fastcall IsPM(const System::TDateTime AValue); Description IsPM returns true if the time portion of AValue occurs on or after 12:00 noon and before 12:00 midnight.

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

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

Здравствуйте. Хочу узнать, можно ли написать прогу, типа драйвера, чтобы через неё можно было регулировать напряжение в USB порту, ну а если не регулировать, то тогда хотябы отключать или включать его.

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

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

1. [Отвечает: Вадим К (статус: Средний уровень), 22.11.2006, 11:18]:

С помощью Делфи написание драйвера трудная задача (трудная? мож неразрешимая оффициально, но некоторые думаю иначе). Это раз. А во вторых регулировать напряжение там вроде как и не можно. Но всегда есть резервный вариант. Никто не мешает подавать импульсы с различной скважностью, а на выходе порта поставить электролитический конденсатор. И если первая часть ещё делфи касается, то вторая нет. Может вы задачу слишко зашифровали? И решить можно проще. Что хочеться сделать?

Оценка за ответ: 4.
Комментарий: Спасибо. Всё ясно, больше ничего не нужно.

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

Здравствуйте,уважаемые эксперты!Ответьте,пожалуйста, на такой вопрос: как из Дельфи6 напрямую обращаться к LPTпорту под WinXP?Способ,применяемы под Win9x не годится - Винда не пропускает

Автор вопроса: Мережников Андрей (статус: Посетитель)
Дата и время отправки вопроса: 22.11.2006, 19:21
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

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

1. [Отвечает: min@y™ (статус: 5-ый класс), 23.11.2006, 08:26]:

Вариантов, я думаю, много.
На работе мне приходится обращаться к плате, которая торчит в ISA-слоте. Под WinXP. Естественно, написать обмен на ассемблере - не прокатит, т.к. команды IN и OUT заблокированы и доступны только приложениям кольца 0 (драйверам). Пришлось юзать компонент TDLPortIO, который работает со своим универсальным драйвером, позволяющим обмениваться данными с портами с адресами от $100 до $FFFF. Всё работает, все довольны.

При установке этого пакета в палитре компонентов появляются 2 компонента: для работы с последовательными и параллельными портами соответственно.

Скачать его можно, например, отсюда:
http://www.torry.net/vcl/system/portaccess/dlportio.zip

Ещё советую зайти сюда: http://www.torry.net/pages.php?id=227

Тут много чего есть, например (см. приложение):

Приложение:

ZLPortIO driver interface unit v.1.50 FWS 15 k 27 Nov 2001 By SpecoSoft.com. This library allow your application direct access port input and output under all versions of Microsoft Windows. With it you can easily control any hardware from your application. For example, you can access your LPT port. Fully functional Source: Included Download: CB4 CB5 D3 D4 D5 D6 http://www.torry.net/vcl/system/portaccess/zlportio.zip

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

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

Ну к Delphi этот вопрос прямого отношения не имеет, но всё-же. Напрямую обращаться к LPT-порту, по-хорошему, под w2k/xp из пользовательского процесса нельзя - нужно писать драйвер. Но это только по-хорошему - в реальности существуют универсальные драйверы, обеспечивающие не совсем честным путём прямой доступ к портам. К таким драйверам относятся giveio.sys или gwiopm.sys. Google по запросу "gwiopm.sys Delphi" выдаёт неплохие ссылки с самим драйвером и примерами работы.

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

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

Здравствуйте уважаемые эксперты!
На одном компьютере видел, что сообщения об ошибках Delphi, появляющиеся при exception'ах (вроде Division by zero, Invalid floating point value и пр.) были русифицированы. Также были русифицированы стандартные заголовки MessageDlg() и названия кнопок в этих стандартных диалогах. Как выяснилось, существует какая-то библиотека, которая всё это русифицирует. Может быть, кто-то встречался с этой библиотекой? Если да, подскажите, где скачать или хотя бы её название. Заранее благодарю.

Автор вопроса: Sunshine (статус: Посетитель)
Дата и время отправки вопроса: 22.11.2006, 19:57
Получено ответов на вопрос: 1
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

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

1. [Отвечает: Новаковский Юрий Аврамович (статус: 3-ий класс), 22.11.2006, 21:03]:

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

Вот файлик с некоторыми русскими ресурсами
для Delphi7

http://expert.delphi.int.ru/download_25

Удачи Вам!