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

Delphi.int.ru

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

Delphi.int.ru Expert

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

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

Количество читателей рассылки (27.04.2007, 16:00):
5452+1135+335= 6922 (+57).

Связь по e-mail:

admin@delphi.int.ru
expert@delphi.int.ru
info@delphi.int.ru

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

Здравствуйте!
Хотелось бы получить серийный номер материнской платы данного компьютера каким-нибудь универсальным способом для защиты программного средства! Работаю под Delphi6, моя программа вероятно будет использоваться даже на платформе Win95

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

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

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

Не ищите универсального решения - его нет и быть не может в принципе. Платформы 9х и NT достаточно сильно отличаются, поэтому то, что можна в одной - категорически нельзя в другой (например прямой доступ к портам с пользовательского режима) Поэтому определяем версию операционки и применяем соответствующее решение.
Версия операционки - http://www.delphiworld.narod.ru/base/windows_version.html
Номера материнской платы можно взять с биоса. Читать
http://www.delphiworld.narod.ru/base\bios_number.html
http://www.delphiworld.narod.ru/base\bios_win2000_info.html
А здесь - как прочитать весь БИОС. Мало что прийдёт в голову
http://www.delphiworld.narod.ru/base\read_rom_bios.html
Но можна и проще поступить - у многих (практически всех) на материнской плате есть сетевая карточка, которая в свою очередь имеет MAC-адресс, который по идее уникален.
Вот код, который поможет его найти
http://www.delphiworld.narod.ru/base.get_pc_mac_address.html

Судить о качестве защиты, основаной на этих данных не буду, так как всё зависит от Вас и только от вас

Оценка за ответ: 5.
Комментарий: Принялся изучать!

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

Здравствуйте, RedMask!
Здравствуйте, RedMask!
Задача привязки к конфигурации компьютера не так проста. Оптимальным было бы организовать привязку сразу к нескольким параметрам, например серийный номер материнской платы, серийный номер жесткого диска, дата BIOS. Причем получать эту информацию лучше "нестандартными" методами, потому-что как только взломщик поймет, что программа имеет привязку к конфигурации, он сразу найдет место в коде, где она проверяется.
Лучше воспользоваться низкоуровневым драйвером, например компания ionworx (http://www.ionworx.com/) выпускает пакет именно для привязки - там и привязка сразу к нескольким параметрам и api для связи с приложением, только пакет платный и стоит недешево.

А касательно материнской платы - есть два возможных способа получить ее серийный номер:

1) Поискать в BIOS. При загрузке компьютера POST выводит производителя материнской платы, надо полагать, что и серийный номер тоже читается. Где конкретно искать этот номер я не знаю - ищите сами. Тут еще трудности с доступом к этой памяти, по-моему под NT просто так прочитать ее не дадут.

2) Воспользоваться средствами WMI, она собирает очень много информации о компьютере. Написал Вам небольшой пример по получению информации о материнской плате, правда на VisualBasic. Это можно перевести и на Delphi. И еще, не знаю у кого как, но у меня она все-равно не выдала серийного номера, может у Вас выдаст.
http://expert.delphi.int.ru/download_33

Оценка за ответ: 5.
Комментарий: Спасибо за полезную информацию! Уже почти защитил с помощью ваших советов =) А Ваш пример вызвал исключение =)

3. [Отвечает: Новаковский Юрий Аврамович (статус: 4-ый класс), 20.12.2006, 10:53]:

Здравствуйте, RedMask!
От себя могу добавить, что если злоумышленник найдет в ресурсах или еще где нибуть то значение с которым производится сравнение, то песец защите.
Что бы этого избежать примените ХЕШИРОВАНИЕ-значение полученное с помощью односторонних операций.

Держите библиотеку
http://expert.delphi.int.ru/download_34

Из секретного значения получаете хешированное значение, записываете его хоть "открытым текстом", это набор байтов, при проверке проверяемое значение также хешируете и сравниваете два хешированных значения.
Имея хешированное значение и алгоритм хеширования исходное значение получить не возможно, только перебором.
Удачи вам!

Оценка за ответ: 5.
Комментарий: Конечно надо использовать односторонню функцию, подругому ни как! "исходное значение получить не возможно, только перебором" -И перебор займёт даже на самой мощной машине несколько лет)! За советы спасибо, и библиотеку посмотрю)))

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

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

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

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

1. [Отвечает: PaVeL-Ekt (статус: 1-ый класс), 20.12.2006, 07:45]:

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

сперва задать глобальную переменную типа Boolean

Затем организовать рекурсивную процедуру, в которой будет проводиться сперва проверка по имени элемента, а затем если проверка отрицательна
запускаться цикл от 0 до количества дочерних веток-1 в котором процедура будет запускать сама себя.

2. [Отвечает: Вадим К (статус: Средний уровень), 20.12.2006, 12:08]:

Да, это будет работать, но очень медлено. Может на 10-20 элементах и будет незаметно, но на 100 - уже будет ощущаться.
для быстрейшего прохода по элементам пользуемся таким методом
var n:TTreeNode;
...
n:=TreeView1.item[0];//К нулевому елементу доступ всегда быстр
while n<>nil do
begin
//Вначале работаем с элементом.
n.Text:=''; //это типа работа.
n:=n.getNextSibling;//Перейдём к следующему элементу.
end;
Осталось только рекурсию прикрутить :)

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

В приложении использую TCoolTrayIcon и PageControl, сворачиваю приложение в трей, потом разворачиваю обратно командой контекстного меню значка в трее application.restore; или ShowWindow(Application.Handle, SW_Normal); и теперь при кликах по табам в PageControl не происходит смена самих листов, табы переключаются, а содержимое всех листов не меняется. остается то, что было на листе до сворачивания приложения.

Пожалуйста, помогите решить проблему

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

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

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

Здравствуйте, Косарев Антон Сергеевич!
Когда-то я встречался с такой проблемой - элементы действительно блокировались. По-моему, для сворачивания приложения нужно использовать готовые команды самого CoolTrayIcon: у него есть HideMainForm и ShowMainForm, HideTaskbarIcon и ShowTaskbarIcon. Вроде бы, после этого проблема решилась.

Оценка за ответ: 5.
Комментарий: Да действительно, ShowMainForm исправляет эту ошибку. Спасибо громаднейшее )

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

Здравствуйте. Подскажите,пожалуйста, почему в некоторых случаях при попытке выполнения операции TQuery1.filter:='значение' система выдает сообщение об ошибке "операция невыполнима"? Причем на других запросах работает нормально.

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

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

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

Здравствуйте, Мережников Андрей!
В BDE на ошибки проверяет DbiError(), вызывающая исключение EDBEngineError с соответствующим сообщением об ошибке, но среди этих сообщений нет строки "Операция невыполнима". Поэтому остается предполагать, что ошибку возвращает поставщик данных.
Возможно Вы задаете взаимоисключающие условия отбора.

Уточните вопрос, приведите примеры фильтров, укажите тип БД, а тот так тяжело определенно сказать.

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

Что такое фильтр обычно? Это дополнительное условия в where. Но не все символы обычно допустимы. К примеру у вас поле целого типа, а вы пытаетесь фильтровать по тексту или, что более часто - фильтр равен пробелу. Попробуйте понять (представить себе фильтр или подсмотреть его с помощью SQL монитора, если у вас BDE) - и всё станет на свои места

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

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

Подскажите пожалуйста как лучше написать SQL запрос типа "update baza set field1=(select a1 from baza2 where cond1),field2=(select a2 from baza2 where cond1),
чтобы все значения для полей field1,field2 вернулись одним подзапросом? и еще что делать если подзапрос может вернуть нулевой результат (как присвоить какое-то значение полям по умолчанию)

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

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

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

Здравствуйте, Мережников Андрей!
Не знаю точного ответа на Ваш вопрос, но могу посоветовать:

1) Найдите книги по SQL, например такие:
- Кевин Клайн - SQL Справочник;
- Джеймс Р. Грофф, - SQL - Полное руководство;
2) Попробуйте обратиться в форумы соответствующей направенности, например, www.sql.ru;

И еще, существует несколько стандартов SQL, начиная от SQL92 и заканчивая SQL2003, кроме того, в разных системах БД и реализация стандартов отличается, например в BDE невозможен вложенный SELECT. Поэтому задавая вопос обязательно уточните тип БД и средство доступа к данным, используемое Вами.

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

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

Здравствуйте, Мережников Андрей!

Данный запрос необходимо реализовывать с помощью Stored Procedure. Какая БД? Какие тип компонентов работы с БД используется? Хотелось бы знать структуру таблиц. Свяжитесь со мной по аське 165711772?

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

Доброе время суток, господа программмисты. У меня есть TreeView1, в TreeView1 есть готовый католог, хоче создать в нем подкатолог, как мне проверить если в этом катологе подкатологи с таким же названием, что я хочу создать(вообще катологов много, мне нужно именно этот католог). Если вы знаете самый быстрый способ, пишите его, если нет, то тот что знаете. Заранее благодарен.

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

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

1. [Отвечает: PaVeL-Ekt (статус: 1-ый класс), 22.12.2006, 07:49]:

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

Примерно так:
Var
Node: TTreeNode;
i: integer;
Exist: Boolean;
...
Node:=TreeView1.Items.Item[0]; //индекс вашей ветки дерева
For i:=0 to Node.Count-1 do
If Node.Item[I].Text=Name then Exist:=true;

If Exist then ...

Если Вам нужно проверить и все вложенные подветки тогда используйте рекурсию.

2. [Отвечает: min@y™ (статус: 8-ой класс), 22.12.2006, 08:25]:

function FolderExists(AParentFolder: TTreeNode; const AFolderName: string): Boolean;
var
FNLower: string;
Index: Integer;
begin
Result:= True;
FNLower:= AnsiLowerCase(AFolderName);

for Index:= 0 to AParentFolder.Count - 1 do
if AnsiLowerCase(AParentFolder.Item[Index].Text) = FNLower
then Exit;

Result:= False;
end;

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

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

Здравствуйте!
Мой программное DELPHI средство использует InterBase! Вопрос такой - как просто из одной базы данных IB(.GDB) взять несколько несвязанных таблиц и организовать из них другую базу данных? Сейчас у меня стоит IBConsole и есть IBExpert. Просто удалить остальные таблицы не получается. Спасибо

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

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

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

Здравствуйте, RedMask!
В IbExpert'e используйте пункт "Инструменты" -> "Извлечение метаданных". Там укажите все, что Вам нужно в новой базе и получите скрипт создания выбраных обьектов. Из него удалите начальные строки, в которых прописан коннект к базе, подключитесь к базе в которую хотите перенести таблицы и на ней выполните скрипт

Оценка за ответ: 5.
Комментарий: Спасибо! А как после этого мне перенести информацию из таблиц в новую базу? Она то и важна на самом деле!

2. [Отвечает: Alex Van Glukhman (статус: 7-ой класс), 22.12.2006, 21:15]:

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

1.Перекопируй файл и измени его название.
2.Подключись IBConsole к БД.
3.Войди в режим SQL запроса и для каждой удаляемой таблицы введи строку DROP TABLE имя;

Удачи!

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

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

Столкнулся с необходимостью сортировать записи по полям (DBGridEh). Я пользуюсь AutoSortMarker := true, т. е. сортируется датасет на основе запроса. Но как сортировать лукап поля? Подскажите хотя бы, куда копать

Автор вопроса: Ласковый 3лоумышленник (статус: 3-ий класс)
Дата и время отправки вопроса: 22.12.2006, 09:46
Получено ответов на вопрос: 0
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

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

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

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

Здраствуйте, эксперты, подскажите какую базу данных, созданную под какой СУБД лучше использовать для работы с ней по сети. И почему при работе с IBDatabase если к базе подключено более 1 пользователя не позволяет добавить новую запись?

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

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

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

Нормально по сети будет работать например связка FireBird(можно и InterBase, и Yaffil) + FIB компоненты. В этих компонентах есть специальные средства для того, что бы можно было продолжать работать, если сеть падает кажые 5 минут. Тоесть для клиента это будет достаточно прозрачно. Данные будут отправлены при первой возможности. Также эти компоненты умеют "уменьшать" нагрузку на сеть - если вы обновили пару записей, то с сервера не будут тянуться все новые, а только обновлённые.

И почему при работе с IBDatabase если к базе подключено более 1 пользователя не позволяет добавить новую запись?
А наверное вы подключаетесь к базе в монопольном (эксклюзивном)режиме на запись. FIB точно позволяют отрегулировать этот вопрос и если вы понимаете что делаете, то получите достаточно продуктивную систему

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

2. [Отвечает: Alex Van Glukhman (статус: 7-ой класс), 22.12.2006, 21:28]:

Здравствуйте, *!
Какой компонент вы используете для получения данных TIBTable или TIBQuery. Если TIBTable - всё закономерно.
Ещё в Interbase существует понятие транзакции. Любой набор данных необходимо связывать с БД через компонент TIBTransaction. Причём при любом изменении данных в наборе для того чтобы изменения вступили в силу выпоняется команда IBTransaction.Commit также при начале изменения данных рекомендуется дать команду IBTransaction.StartTransaction

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

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

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

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

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

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

Разобём ваш вопрос на 2 части.
1) как работать с ProgressBar. Для этого вам надо знать о таких свойствах.
Max и min - задают значения максимума и минимума, который отображает компонент.
Position - "позиция" должна находиться между min и Max (по значению). Только не советую часто устанавливать свойство position, так как компонент пересоздаёт себя (если так можно сказать) - а это отбирает много времени.
Проще написать что то в виде
if PB1.Position<>CPos then PB1.Position:=CPos;
Но также не стоит забывать, что если прогрессбар занимает 50 пикселей, а разница max-min равна 100, то пользователь не заметит изменения position на еденицу (правда в половине случаев).
Также есть интересные свойства
Smooth - сделать прогресс соцельным, без разбиения на "кубики"
Orientation - вертикальный или горизонтальный он у вас будет.
Step - это свойсво указывает, на скоко поменяется position при вызове метода StepIt; (типа "сделать шаг")
2)теперь разбирём как делать длиные расчёты.
Обычно тут есть два подхода - просто цикл, который ужасно тормозит интерфейс и поток, в котором тот же цикл, но интерфейс в поряде. Но как минус, нужно делать обновления через синхронизацию.
Покажу пример с циклом
PB1.max:=MyMax;
PB1.Position:=0;
for i:=1 to MyMax do
begin
//Делаем полезную работу
PB1.Position:=i;
Application.ProcessMessage;
end;
С потоком почти аналогично.
Но самая большая проблема возникает тогда, когда конец сложно определить. Например вы выполняете поиск по диску. Тут можно сделать следующее.
Классический майкрософтовский - прогресс бар бегает по кругу и от процесса слабо зависит.
Второй тоже майкрософтовский (в броузере используется) - за каждый шаг прогресс продвигается на половину (третью часть) незаполненного пространства справа. Таким образом он никогда не дойдёт до конца. А когда процесс будет завершён - мы можем вручную его "додвинуть"

2. [Отвечает: Новаковский Юрий Аврамович (статус: 4-ый класс), 25.12.2006, 09:30]:

Здравствуйте, Geron!
От себя могу добавить, если у Вас есть цикл обработки Вашего процесса вызвайте в нем

ProgressBar1.StepIt;

Полоска переместиться на ProgressBar1.Step позиций, по умолчанию ProgressBar1.Step:=10;.

Удачи Вам.

Компонент TCoolBar - это разновидность TToolBar. TCoolBar - это элемент управления, который обычно содержит в себе два или более TCoolBand-ов, размеры и местоположение которых можно изменять во время выполнения программы. CoolBand в свою очередь является областью элемента управления, которая может содержать другие оконные контролы, главным образом панели инструментов, окошки редактирования и выпадающие списки.

Создать CoolBar довольно просто: достаточно поместить компонент CoolBar из набора Win32 VCL на форму. У CoolBar-а есть довольно много настроек (настройка осуществляется через свойства): Align - по умолчанию, расположение Coolbar настроено на верхнюю часть окна, поэтому, чтобы изменить расположение кулбара, нам прийдётся подредактировать это свойство; Bitmap - используется для закрашивания фона CoolBar-а картинкой; свойство FixedOrder определяет, может ли пользователь переопределить порядок панелей.

Как уже упоминалось выше, компонент Coolbar - это обычно набор объектов TCoolBand. Чтобы добавить несколько CoolBand-ов в CoolBar, нам потребуется вызвать редактор Coolbar Band-ов. Сделать это можно путём нажатия на значjк, расположенный сразу после свойства Bands.

Один из способов разместить компонент (или компонент-контейнер) на CoolBar-е, это перетащить его из палитры VCL, при этом автоматически создастся новый band для хранения компонента. Другой способ заключается в том, что компонент вставляется в форму напрямую, а затем, при помощи редактора CoolBar Band-ов связывается с каким либо CoolBand-ом. Далее на CoolBar обычно добавлется Toolbar, путём простого перетаскивания его из палитры Win32 на Coolbar. Потом на toolbar добавляются одна или несколько кнопок.