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

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

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

ShIvADeSt (19-05-2010 05:14): Продолжаем тут http://forum.ru-board.com/topic.cgi?forum=33&topic=11215  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 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

   

ShIvADeSt



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

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

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

  • Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 02:09 28-06-2009 | Исправлено: psa1974, 12:00 02-02-2010
    EugeneBoss3



    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Delta RuBoard
    в твоем примере цикл зависнит (не объявлен начальное значение i ) или сразу же завершится, т.к. условие выхода True 1<5
    Подробнее...

    Всего записей: 247 | Зарегистр. 15-09-2009 | Отправлено: 10:45 08-12-2009 | Исправлено: EugeneBoss3, 10:48 08-12-2009
    mdid

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    так ща соберусь с мыслями и попробую оформить то что мне надо..
    в общем есть TChart..у него как бы всплывающая подсказка(сверху) на сколько я понял формируется по Series2.AddBar(val,fld,clGreen); по второму параметру...можно ли как то сделать по первому?
    просто сдалал запрос движения товара по месяцам и первый параметр это количество... второй - месяц...и вверху вместо количества показывается месяц...который там наф не надо

    Всего записей: 1298 | Зарегистр. 13-02-2006 | Отправлено: 16:18 08-12-2009 | Исправлено: mdid, 16:21 08-12-2009
    John_White



    Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Уважаемые...
    Не могу скомпилить проект.
    Вот соуры:
    http://slil.ru/28312721
    Предположительно версия 2002 (7.0)
    Помогите выявить ошибки.

    Всего записей: 221 | Зарегистр. 25-07-2009 | Отправлено: 16:47 08-12-2009
    psa1974



    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    John_White
    В проекте используются сторонние модули UJDragDrop, ThemeMgr. Если их убрать, а также убрать в классе TForm1 следующие поля и методы:  
        FileDropSource: TUJFileDropSource;
        ThemeManager1: TThemeManager;
        procedure FileDropSourceStartDrag(const Shift: TShiftState; var BeginDrag: Boolean);
        procedure FileDropSourceDragDrop(const Effects: TDropEffects; const DragRes: TDropResult);
    то проект компилируется (при этом программа лишается драгендропа). Насчет работает или нет - не проверял
     

    Всего записей: 438 | Зарегистр. 08-11-2005 | Отправлено: 17:46 08-12-2009
    John_White



    Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    psa1974
    а зачем убирать?
    там помойму нарушена структура проекта
    я не могу понять сам.
    На дрэгэнддроп навешано много.

    Всего записей: 221 | Зарегистр. 25-07-2009 | Отправлено: 18:40 08-12-2009
    data man



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

    Цитата:
    Предположительно версия 2002 (7.0)  
     Помогите выявить ошибки.

    А твою версию Delphi или сообщения компилятора об ошибках - угадывать ?

    Цитата:
    а зачем убирать?

    Ну а как кто-то другой может скомпилировать этот проект, не имея всех этих модулей ?

    ----------
    Любой достаточно развитый тролль неотличим от подлинно помешанного на какой-либо идее.
    Кекс. Антибиотики. Ламбада.

    Всего записей: 1696 | Зарегистр. 13-10-2005 | Отправлено: 18:57 08-12-2009
    John_White



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

    Цитата:
    А твою версию Delphi или сообщения компилятора об ошибках - угадывать ?

    уважаемый у меня 7.0

    Цитата:
    Ну а как кто-то другой может скомпилировать этот проект, не имея всех этих модулей ?

    Могу дать готовую версию этого проекта.
    У меня цель стоит сначала добиться что этот проект 3 летней давности а потом если получится обьединить с другим.
    Буду благодарен если окажите помочь с компиляцией проекта.

    Всего записей: 221 | Зарегистр. 25-07-2009 | Отправлено: 19:02 08-12-2009 | Исправлено: John_White, 19:12 08-12-2009
    data man



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    John_White
     
    Ошибки при компиляции ?
    Например, в модуле View.pas используются dxCore и dxButtons, хотя ничего из этих модулей не используется.
    И что выдает компилятор ?

    ----------
    Любой достаточно развитый тролль неотличим от подлинно помешанного на какой-либо идее.
    Кекс. Антибиотики. Ламбада.

    Всего записей: 1696 | Зарегистр. 13-10-2005 | Отправлено: 19:35 08-12-2009
    psa1974



    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    John_White
    Дай обозначенные модули - UJDragDrop, ThemeMgr (а они, кстати, могут потянуть за собой другие модули, поскольку могут входить в состав соотв. библиотек), тогда будем вести беседу про компиляцию проекта в целом. Без этих модулей никто не сможет собрать проект и предугадать, где же там ругается компилятор.

    Всего записей: 438 | Зарегистр. 08-11-2005 | Отправлено: 19:45 08-12-2009
    John_White



    Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    data man
    при попытки скомпилировать проект пишет что не найдены два класса:
    TUJFileDropSource
    TThemeManager
    если эти ошибки игнорировать то текщая ошибка имеет вид
    [Fatal Error] Mainfrm.pas(7): File not found: 'UJDragDrop.dcu'
     
     
     
    Добавлено:
    psa1974
    Сама прога (исходники в папке проги после установки):
    http://sourceforge.net/projects/innounp/files/GUI/IsUnp%20Explorer%201.0/IsUnp10setup.exe/download

    Всего записей: 221 | Зарегистр. 25-07-2009 | Отправлено: 19:50 08-12-2009
    Frodo_Torbins

    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    John_White
    Нужные вам компоненты легко находятся через гугл:
    http://www.torry.net/authorsmore.php?id=2859
    http://www.soft-gems.net/index.php?option=com_content&task=view&id=17&Itemid=33

    Всего записей: 2318 | Зарегистр. 24-05-2007 | Отправлено: 20:00 08-12-2009
    John_White



    Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Frodo_Torbins
    Подключил к проекту оба соурса
    но пишет:
    [Fatal Error] ISUnp.dpr(6): Unit Themes was compiled with a different version of UxTheme.BP_PUSHBUTTON
    видимо в оригинале писали под другой версией

    Всего записей: 221 | Зарегистр. 25-07-2009 | Отправлено: 20:22 08-12-2009
    snike555



    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    John_White
    А все компоненты в сурсах? Просто если все в сурсах, то так ругаться не должен, как выход искать нужные компоненты в сурсах и пересобирать.

    Всего записей: 380 | Зарегистр. 02-10-2009 | Отправлено: 21:06 08-12-2009 | Исправлено: snike555, 21:07 08-12-2009
    John_White



    Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    snike555
    уважаемый...
    я прошу помощи реальной
    я написал конкретную ошибку...
    По комментам я сделал вывод что проект собирали на делфях 5.

    Всего записей: 221 | Зарегистр. 25-07-2009 | Отправлено: 21:09 08-12-2009
    Delta RuBoard



    Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    EugeneBoss3
    я же написал что с "i" у меня все нормально
     
    snike555

    Цитата:
    Полностью программа будет спать, начнет работать после слипа.

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

    Код:
    repeat  
        //Получаем данные. Процедура работает в блокирующем режиме,  
        //таким образом следующая строка кода не получит управление,  
        //пока не поступят данные от клиента.  
        vsize := recv(s,abuf[0],bufsize,0);  
        if vsize<=0 then break;  
        setlength(vbuf,vsize);  
        lstrcpyn(@vbuf[1],@abuf[0],vsize);  
        writeln(format('received from cleint: %s',[vbuf]));  
    until vbuf = 'q';

     
    получается в форм_креейт его запихнуть нельзя, в форм апликейшн вроде как нет тела программы как в паскале аля "begin ... end"

    ----------
    мой маленький блог
    Создание on-line игр

    Всего записей: 382 | Зарегистр. 21-06-2005 | Отправлено: 21:16 08-12-2009 | Исправлено: Delta RuBoard, 21:17 08-12-2009
    snike555



    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Delta RuBoard
     
    Ну ты выдал, изобретаем велосипед?
     
    http://docs.luksian.com/programming/delphi/prsokdelph/
    http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1021
    http://www.realcoding.net/article/view/1833
     
    Если поискать можно простейшие примеры исходников найти по работе с сокетами.

    Всего записей: 380 | Зарегистр. 02-10-2009 | Отправлено: 21:24 08-12-2009
    Frodo_Torbins

    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Delta RuBoard
    Еще раз рекомендую вам взглянуть в сторону потоков: http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1370 http://www.delphikingdom.com/asp/itemq.asp?mode=1&itemid=115
    John_White
    Хз, я вообще выкинул из вашего проекта менеджер тем, и все нормально скомпилировалось.

    Всего записей: 2318 | Зарегистр. 24-05-2007 | Отправлено: 21:26 08-12-2009
    data man



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

    Цитата:
    [Fatal Error] ISUnp.dpr(6): Unit Themes was compiled with a different version of UxTheme.BP_PUSHBUTTON

     
    Судя по этому сообщению, нужно удалить из папки проекта все файлы dcu.

    ----------
    Любой достаточно развитый тролль неотличим от подлинно помешанного на какой-либо идее.
    Кекс. Антибиотики. Ламбада.

    Всего записей: 1696 | Зарегистр. 13-10-2005 | Отправлено: 21:42 08-12-2009
    John_White



    Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Frodo_Torbins
    у меня пишет что нет файла
    [Fatal Error] Mainfrm.pas(7): File not found: 'ThemeMgr.dcu'
    опять же
    я не знаю как у вас может компилится
    вот весь проект:
    http://slil.ru/28314637
    компилю под делфи 7.0

    Всего записей: 221 | Зарегистр. 25-07-2009 | Отправлено: 21:46 08-12-2009
    psa1974



    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    John_White
    Во-первых, изначально проект компилировался под Дельфи 5 (легко убедиться, взглянув на последние строки ISUnp.cfg)
    Во-вторых, берем в руки модуль ThemeMgr.pas и тщательно и вдумчиво читаем строки с 50 по 53:

    Цитата:
    {$ifdef COMPILER_7_UP}
      ATTENTION! Theme support is already included in this Borland product. Remove the Delphi Gems Theme Manager from your project to compile it correctly!
    {$endif COMPILER_7_UP}
     

    Что в переводе на русский означает:

    Цитата:
    ВНИМАНИЕ! Если у Вас Дельфи 7 и выше, то поддержка тем уже включена в этом продукте Borland.  Для корректной сборки удалите Delphi Gems Theme Manager из своего проекта!
     

    Поскольку у тебя Дельфи 7, тебе именно так и следует поступить:
    тут - как именно
    после этого при условии что ты подкинул модули компоненты UJ Drag&Drop Library v.1.0 все компилируется на ура.
    И даже работает - только что распаковал собственноручно собранной программой инсталлятор ThemeManagerSetup.exe
     
     
    Добавлено:
    Пофиксенный рабочий проект: Ссылка

    Всего записей: 438 | Зарегистр. 08-11-2005 | Отправлено: 22:19 08-12-2009 | Исправлено: psa1974, 22:30 08-12-2009
       

    Страницы: 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

    Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (до версии 2009) - часть 5
    ShIvADeSt (19-05-2010 05:14): Продолжаем тут http://forum.ru-board.com/topic.cgi?forum=33&topic=11215


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

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

    BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

    Рейтинг.ru