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

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в 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
    Frodo_Torbins

    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Grande
    Добавил к вашему коду:

    Код:
    for I := low(RecipNames) to high(RecipNames) do
      Memo1.Lines.Add(recipnames[i]); //<- на первой итерации AV

    Это при подключенном к проекту SafeMM. Так что версия V1s1terра полностью подтверждается.

    Всего записей: 2318 | Зарегистр. 24-05-2007 | Отправлено: 19:11 15-12-2009
    nickjust



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    2Hiken
    Сорри ...рапортую
    Солюха - производная от Solution
    Картинка схемы или фото мобильного телефона,где доступно нарисовано что и как сделать ,чтобы исправить ту или иную неисправность!
    WBR!

    Всего записей: 100 | Зарегистр. 17-04-2003 | Отправлено: 23:06 15-12-2009
    ShIvADeSt



    Moderator
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    nickjust
    Вверху тема предложение по работе для программистов. Если ты считаешь что работа с PSD файлами на Дельфи - это типовая задача, то :поклонение: Либо создавай отдельную тему и сам пытайся что то сделать, либо предлагай оплату.

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

    Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 02:33 16-12-2009
    Frodo_Torbins

    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    nickjust
    Действительно PSD очень неудобный формат. Как минимум для запуска программы каждому пользователю потребуется ставить фотошоп. Лучше выбрать что-нибудь из этого списка: http://galfar.vevb.net/imaging/doc/html/fileformats.html Основные требования со стороны программиста: поддержка прозрачности, возможность запихнуть несколько картинок в один файл. То есть например gif подходит.

    Всего записей: 2318 | Зарегистр. 24-05-2007 | Отправлено: 13:12 16-12-2009
    Grande



    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Frodo_Torbins
    Понял... Как говорится - век живи, век учись
    Спасибо, уважаемые.

    Всего записей: 588 | Зарегистр. 18-09-2003 | Отправлено: 18:57 16-12-2009
    Vostrikovskiy

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

    Цитата:
    То есть например gif подходит.

    10-ка tiff поддерживает.

    Всего записей: 403 | Зарегистр. 19-11-2008 | Отправлено: 01:02 17-12-2009
    V1s1ter



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

    Цитата:
    Действительно PSD очень неудобный формат

    Мужики, но Вы ведь серьезные люди и прекрасно понимаете, что при такой постановке задачи, любые разговоры это флуд, а для этой темы видимо и офттоп.

    Всего записей: 948 | Зарегистр. 06-02-2007 | Отправлено: 02:49 17-12-2009
    Vostrikovskiy

    BANNED
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    V1s1ter
    Я указал на самый мощный универсальный графический формат, который впервые появился в 2010. Мне кажется, что это к прикладному программированию имеет прямое отношение. В чем я не прав?

    Всего записей: 403 | Зарегистр. 19-11-2008 | Отправлено: 15:05 17-12-2009
    andrewtishkin



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Немного оффтопик, про форматы и D2010

    Цитата:
    10-ка tiff поддерживает

    Хм, в твиттере добавили ссылку на запись в блоге о новых форматах, поддерживаемых в "десятке", в частности про поддержку RAW говорят (правда не напрямую, но всё же)
    http://blogs.embarcadero.com/matthiaseissing/2009/12/15/38566

    Цитата:
    New in 2010!
    Support for Windows Imaging Component (WIC) including JPEG, TIFF, GIF, PNG, BMP and HD Photo image formats. RAW camera formats (such as NRW, NEF, CRW, CR2, RW2, ARW, SR2, SRF, ORF, PEF and DNG) also supported with manufacturer supplied codecs.


    ----------
    111 222 [u]333[/u] [strike]епра[/strike] [size=3]пвр[/size] [sub]енн[/sub] [sup]ррр[/sup] :biggrin: [hr] [url=:javascript:alert("qwe")]ппп[/color]v 123 Мелкий шрифт

    Всего записей: 781 | Зарегистр. 28-08-2008 | Отправлено: 17:59 17-12-2009
    Grande



    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Стоит у меня пиратская Delphi7. А на днях появилась лицензионная. Подскажите, пожалуйста, как поменять пиратский ключик на купленный?

    Всего записей: 588 | Зарегистр. 18-09-2003 | Отправлено: 10:20 18-12-2009
    volser

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Grande
    А смысл менять ключик, если и так все работает. Лицензия нужна только проверяющим органам.

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



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

    Цитата:
    Лицензия нужна только проверяющим органам.

    Вот-вот, и я про то же - пиратка-то на работе

    Всего записей: 588 | Зарегистр. 18-09-2003 | Отправлено: 11:51 18-12-2009
    SIgor33

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Есть папка на сервере в которую ограниченный доступ для пользователей(только для чтения) и учетка имеющая права на запись. Необходимо из приложения, запущенного под учеткой пользователя имеющего ограниченый доступ к папке на сервере, программно скопировать с компа пользователя файл в эту папку на сервере. Какие есть предложения?

    Всего записей: 652 | Зарегистр. 03-03-2009 | Отправлено: 12:21 18-12-2009
    volser

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    SIgor33
    Подключится к папке с нужным пользователем. Посмотрите функцию WNetAddConnection.

    Всего записей: 713 | Зарегистр. 31-03-2006 | Отправлено: 12:29 18-12-2009
    pakusya

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Здравствуйте. Пожалуйста подскажите, что здесь не так, почему форма через 30 секунд не меняет цвет? И как сделать чтобы через 40 секунд раздавался звуковой сигнал, а через 1 минуту появлялся вопрос о продолжении работы.  
     procedure TForm1.Button1Click(Sender: TObject);
    begin
       if    Timer1.Interval=2000 then
    Form1.Color:= Form1.Color;
       Form1.Color:=Random($FFFFFF);
        Timer1.Enabled := True;
       // Timer.Interval в милисекундах  
      Timer1.Interval := 2000;  
      Timer1.OnTimer := DrawCircle;
      Timer1.Enabled := True;
    end;
        procedure TForm1.DrawCircle(Sender: TObject);
    var  
      X, Y, R: Integer;  
     shar: TColor;  
    begin
       Form1.Refresh;
      X := Random(Min(ClientHeight, ClientWidth)); // чтобы центр не выходил за пределы клиентской части окна  
      Y := Random(Min(ClientHeight, ClientWidth)); // чтобы центр не выходил за пределы клиентской части окна  
      R := Random(Min(ClientHeight, ClientWidth)) div 2; // чтобы радиус был меньше половины клиентской части окна
     shar := TColor(Random($FFFFFF));
       Canvas.Ellipse(X-R, Y-R, X+R, Y+R);
       Canvas.Pen.Color := Form1.Color;
       Canvas.Pen.Color :=shar;
        Canvas.Brush.Color :=shar;
      Canvas.Ellipse(X-R, Y-R, X+R, Y+R);
     end;
     
     

    Всего записей: 21 | Зарегистр. 17-10-2008 | Отправлено: 16:14 18-12-2009
    volser

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    pakusya
    Рисовать нужно в методе Paint формы. А вообще странный какой то код.

    Всего записей: 713 | Зарегистр. 31-03-2006 | Отправлено: 16:32 18-12-2009
    pakusya

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    но он работает,разноцветные шары   периодично появляются и исчезают, но форма не меняет цвет и остальное до меня тоже не доходит.

    Всего записей: 21 | Зарегистр. 17-10-2008 | Отправлено: 16:40 18-12-2009
    V1s1ter



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

    Цитата:
    Рисовать нужно в методе Paint формы. А вообще странный какой то код.

    Не нужно, это у них лаба такая - на таймер.
     
    pakusya
    Солнышко, я написал Вам только одно решение, в надежде, что остальное Вы сделаете хотябы по образу и подобию. Однако не прошло и полгода и Вы снова здесь....
    Я готов рассказать, что и как делать, если Вы готовы учиться. Сделать за Вас всю работу мне не дают религиозные убеждения.

    Всего записей: 948 | Зарегистр. 06-02-2007 | Отправлено: 19:33 18-12-2009
    psa1974



    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    pakusya
    И снова здрасте

    Цитата:
    почему форма через 30 секунд не меняет цвет?

    Потому что нигде это ей не сказано делать. Разбор Вашего кода здесь
    При использовании таймеров, для изменения цвета формы можно использовать еще один таймер. В его обработчике просто менять цвет формы. Активизировать его по нажатию кнопки. Еще один таймер - на спикер. Еще один - на выдачу вопроса. Если будет получен утвердительный ответ об окончании, деактивизировать все таймеры.
     
    Другой вариант - обойтись без таймеров, используя ф-цию GetTickCount для подсчета тиков времени. Тогда можно все сделать в одном обработчике нажатия кнопки подробнее...

    ----------
    У программёра есть два состояния: "Втупляю" и "Попёрло"...

    Всего записей: 438 | Зарегистр. 08-11-2005 | Отправлено: 20:35 18-12-2009 | Исправлено: psa1974, 21:32 18-12-2009
    pakusya

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Большое спасибо за объяснение psa1974 и  V1s1ter. Просто я не знала, что можно использовать несколько таймеров.
    А ваше решение V1s1ter  мне помогло понять как нарисовать шары в разных местах формы, но там шары только появлялись и не исчезали, так как для меня это сложновато, так как в теории не было толком объяснений, я наконец-то поняла что делать чтобы исчезали шары(вставила  Form1.Refresh; ).
     
     
     
     

    Всего записей: 21 | Зарегистр. 17-10-2008 | Отправлено: 03:48 19-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