Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (до версии 2009) - часть 6

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125

Открыть новую тему     Написать ответ в эту тему

ShIvADeSt



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Продолжение темы Вопросы по Delphi (до версии 2009) - часть 5

Познаем сами, помогаем другим...
Обсуждаем вопросы, не связанные с юникоидными версиями Delphi - для этого есть соответствующая тема (см. ссылки ниже).


 
Правила топика:
    Прежде чем спрашивать:
  1. Желательно изучить вопрос, попытаться найти ответ в прилагаемых мануалах, хелпах и анализируя исходники.
  2. Выполнить поиск по топику (открыть "Версия для печати" и поискать ответ там).
  3. Применить фильтр по разделу "Прикладное программирование". Ответы на многие старые вопросы могли быть даны в отдельных темах.
  4. Продумайте вопрос. На поверхностные вопросы вы получите поверхностные ответы, или вообще ответов не получите.
  5. Желательно указывать версии используемого компилятора и операционной системы.
    Прежде чем отвечать:
  1. Если не можете помочь, не мешайте.
  2. Если уж вы отвечаете на вопрос, давайте ответ по сути.
  3. Если вы не уверены, так и говорите! Ошибочный, но авторитетно звучащий ответ хуже, чем отсутствие ответа.
  4. Задавайте дополнительные вопросы, чтобы получить больше информации.
  • Отсутствие ответа не равносильно игнорированию - иногда участники форума просто не знают ответ. Повторная посылка вопроса не приветствуется. Посты типа "неужели никто не знает ответа..." или "может мне все-таки кто-нибудь ответит" недопустимы.  
  • Все большие куски кода (более 5 строк) оформляем в тег [morе] дабы уменьшить размер поста. FAQ по тегу [morе].


    Некоторые "родственные" топики:
     
  • Вопросы по Delphi (версии 2009-2010 Weaver)
  • Вопросы по компонентам для Delphi, C++ Builder
  • Использование DevExpress
  • Вопросы по Ehlib
  • Компоненты и утилиты для Delphi/BCB/FreePascal/Lazarus - только Open Source
  • Коммерческие компоненты и утилиты для Delphi/BCB
  • кабак программистов :)
     
    См. также: Некоторые полезные ресурсы о Delphi
     
    И старайтесь, чтобы ваш код не попал сюда :)

  • Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 05:13 19-05-2010 | Исправлено: akaGM, 02:33 15-07-2020
    Graach



    Junior Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Отвечу на свой вопрос.
    Для того, чтобы работала справка для главного окна, прописала обработчики событий  
    Application.OnHelp := ShowApplicationHelp;
    Application.OnMessage := HelpKeyPressed;  
    Соответственно в HelpKeyPressed:
    if not Assigned(ActiveMDIChild) then
    begin
       ShowApplicationHelp(HELP_CONTENTS, 0, CallHelp);  //или как-то так, в моем случае мне поровну что туда передать
       Handled := true;
    end;
     

    Всего записей: 111 | Зарегистр. 20-10-2007 | Отправлено: 17:07 14-11-2011
    Coltrain

    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Здравствуйте!
    Нужен совет. Имеется сетевой ресурс с файлами, права на чтение/запись которых имеет только специальный пользователь. Как из приложения Delphi зная логин и пароль этого пользователя можно прочитать/записать эти файлы? При этом само приложение будет запускаться под другим пользователем не имеющем прав на ресурс.

    Всего записей: 160 | Зарегистр. 31-07-2002 | Отправлено: 11:55 18-11-2011
    wasilissk

    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Coltrain

    Цитата:
    Имеется сетевой ресурс с файлами

    Имеется в виду расшаренная папка?

    Цитата:
    права на чтение/запись которых имеет только специальный пользователь

    Домен?

    Всего записей: 293 | Зарегистр. 25-12-2006 | Отправлено: 12:14 18-11-2011
    volser

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Coltrain
    WNetAddConnection2

    Всего записей: 713 | Зарегистр. 31-03-2006 | Отправлено: 12:15 18-11-2011
    Coltrain

    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    wasilissk

    Цитата:
    Имеется в виду расшаренная папка?  

    Да. Именно.

    Цитата:
    Домен?

    Тоже верно.
     
    volser

    Цитата:
    WNetAddConnection2

    Спасибо за функцию. Насколько я понял, она подключает расшаренную папку как сетевой диск. Будет ли он виден работающему пользователю через, скажем, проводник?
     
     

    Всего записей: 160 | Зарегистр. 31-07-2002 | Отправлено: 12:36 18-11-2011
    wasilissk

    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Coltrain
    Tags:
    MSDN
    LogonUser
    ImpersonateLoggedOnUser
    RevertToSelf
    FileCopy

    Всего записей: 293 | Зарегистр. 25-12-2006 | Отправлено: 12:42 18-11-2011
    Coltrain

    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    wasilissk
    Спасибо! Пошел курить мануалы.

    Всего записей: 160 | Зарегистр. 31-07-2002 | Отправлено: 12:44 18-11-2011
    Profiles1

    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Прошу помочь скомпилировать в Делфи один пример из NeuralBase, лежит в архиве по пути «neuralbase-1-0\Demo\Hopfield\», нужен .exe . У меня не хватает некоторых компонентов (не шарок в этом деле)
    находится тут

    Всего записей: 148 | Зарегистр. 09-09-2009 | Отправлено: 19:29 18-11-2011
    Corsairs

    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Если исходить из списка используемых юнитов
    Цитата:
    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  Grids, NeuralBaseComp, NeuralBaseTypes, Db, DBTables, ExtCtrls, DBCtrls, StdCtrls,  ToolWin, ComCtrls;
    предполагаю, что ругается на NeuralBaseComp, NeuralBaseTypes Да?
    А собственно компонент NeuralBase установлен? (Надо прописать пути к папке с файлами из архива, и установить компоненту (NeuralBase.dpk))

    Всего записей: 569 | Зарегистр. 30-06-2006 | Отправлено: 20:32 18-11-2011
    Profiles1

    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Corsairs, да, ругается на них. Как это сделать то? Нельзя ли напр. через Cкaйп помочь?

    Всего записей: 148 | Зарегистр. 09-09-2009 | Отправлено: 20:50 18-11-2011
    Corsairs

    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Нужно установить скачанную компоненту (т.е. NeuralBase) В принципе в установке подобных компонент ничего особо сложного нет...
     
    Скайпа у меня нет. Можно через icq и teamviewer...

    Всего записей: 569 | Зарегистр. 30-06-2006 | Отправлено: 21:51 18-11-2011
    datato



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Хотел попробовать написать простенькую прогу (игру), чтобы та по нажатию, к примеру на стрелку влево отодвигала некий обьект вправо (на 20 пунктов) до тех пор, пока значение Left обьекта не станет 800 (граница формы), а если будет равно 800 - то скроет фон.
    Подробнее...
    Если мой код ну ооочень ужасен говнокод, то можете указать на какие-нибудь исходники которые мне помогут?
    P.S. Delphi 10 Lite v3.0 (2006)

    Всего записей: 154 | Зарегистр. 16-07-2010 | Отправлено: 23:15 21-11-2011 | Исправлено: datato, 23:28 21-11-2011
    Frodo_Torbins

    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    datato
    Значение Key внутри этого обработчика в пределах одного вызова остается неизменным. Так что while тут абсолютно не катит.
    Возможно вам будет интересно почитать вот это: Жизнь и смерть в режиме run-time и это:  
    Основы работы с Win API в VCL-приложениях (раздел про обработку сообщений).
    А от лайта лучше поскорее избавьтесь и поставьте себе полноценную XE2 со справкой. Места она конечно сожрет раз в 10 больше, зато получите полноценную среду и рабочую справку.

    Всего записей: 2318 | Зарегистр. 24-05-2007 | Отправлено: 23:40 21-11-2011 | Исправлено: Frodo_Torbins, 23:43 21-11-2011
    ShIvADeSt



    Moderator
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    А с каких пор конструкция
    while do
    until ...
    является корректной?
    Если память не изменяет есть  
    while do end
    repeat until
    но никак не то, что написал datato
     
    Судя по всему тут надо прежде чем программировать - вначале синтаксис подучить.

    ----------
    И создал Бог женщину... Существо получилось злобное, но забавное...

    Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 03:03 22-11-2011
    datato



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    ShIvADeSt,
    извиняюсь, у меня вчера ночью мозги не варили, сейчас понимаю какую ерунду написал...

    Всего записей: 154 | Зарегистр. 16-07-2010 | Отправлено: 07:33 22-11-2011
    DmitryKz

    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Наверно, глупый вопрос, но стало интересно:
    возможно ли вести мониторинг изменений значения, например, глобальной переменной, как это происходит с событиями компонентов. Условно говоря, что-то вроде OnVaribaleChange? Т. е., понятно, что какой-то код можно и самому написать. Интересует, существуют ли, так сказать, аутентичные, или, по крайней мере, "кошерные" способы...
    Примерная ситуация. Глобальная переменная должна получить некий путь - она берет его из реестра, ежели он там не обретается, пользователь сам должен его ввести, через диалог выбора директории. Т. е. существуют два способа получения этого значения. Независимо от этого, полученное значение нужно продублировать в Edit, для его визуализации, так сказать. Т. е. один и тот же код для отображения текста в Edit в программе существует в двух местах. Что уже как-то не нравится. А если кроме Edit значение понадобится дублировать где-то ещё в третий раз, или появится третий способ получения необходимого значения.

    Всего записей: 3142 | Зарегистр. 29-09-2005 | Отправлено: 18:04 27-11-2011
    XPerformer



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    DmitryKz
    Полагаю, именно поэтому глобальные переменные считаются плохим стилем программирования
    Нужно создать класс, который имеет рассылать нотификейшины об изменении свого состояния

    Всего записей: 2536 | Зарегистр. 20-06-2011 | Отправлено: 18:33 27-11-2011
    wasilissk

    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    DmitryKz

    Цитата:
    Интересует, существуют ли, так сказать, аутентичные, или, по крайней мере, "кошерные" способы...

    Нет, не существует.  
    Можно установить брейкпоинт на изменение памяти. Можно установить сеттер для поля объекта, а на него повесить событие. Это и является самыми кошерными способами.

    Всего записей: 293 | Зарегистр. 25-12-2006 | Отправлено: 18:34 27-11-2011
    DmitryKz

    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    XPerformer
    wasilissk
    Понял, спасибо, парни, за разъяснение...

    Всего записей: 3142 | Зарегистр. 29-09-2005 | Отправлено: 18:37 27-11-2011
    wasilissk

    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Имеется ExceptObject и ExceptAddr. Возможно ли как-то определить где возник эксепшен в защищенном блоке try..except или нет?
    EurekaLog и madExcept как-то это определяют и не генерят отчет, если исключение возникло в try..except. EurekaLog и madExcept у меня без исходников, посмотреть не могу.
     
    Ну и в инете есть эврика ентерпрайз версия с исходниками, скачай посмотри.

    Всего записей: 293 | Зарегистр. 25-12-2006 | Отправлено: 13:27 08-12-2011 | Исправлено: ShIvADeSt, 05:42 09-12-2011
    Открыть новую тему     Написать ответ в эту тему

    Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125

    Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (до версии 2009) - часть 6


    Реклама на форуме Ru.Board.

    Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
    Modified by Ru.B0ard
    © Ru.B0ard 2000-2024

    BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

    Рейтинг.ru