Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Разное > Ваши программы
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 12.01.2011, 23:03
nex nex вне форума
Прохожий
 
Регистрация: 12.01.2011
Сообщения: 10
Репутация: 10
Радость Цитатник v1.2

Небольшая программулина...
Через заданный пользователем интервал времени, выводит в небольшом полупрозрачном окошке (над часами) Случайную цитату с сайта BashOrg.ru

Имеется возможность настроить интерфейс, прописать в автозагрузку.

Обновление!!! Версия 1.2

Что нового: Наконец то появился интерфейс (=
Исправил пару ошибок ^_^





--==СКАЧАТЬ==--


Установка: Распаковать 2 файла из архива в удобное для вас место.

Жду комментариев )))
Ответить с цитированием
  #2  
Старый 12.01.2011, 23:36
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

После запуска обновилось через 10 секунд, хотя написано "минута"
Смущает абсолютно прозрачный прямоугольник вокруг прогресс-бара. Может это баг из-за вин7.
Время имхо удобнее было бы задавать вручную, т.е. писать в секундах, а не выбирать из списка.
Жалко что нельзя окно перетащить куда-нибудь.
Сразу после запуска в радио-групп не выбрано ничего.
Еще бывает, что читаю длинную цитату, а тут она переключается. Имхо надо продумать, чтоб такого не было.
Не получилось скопировать цитату.

(на любителя) Я бы добавил три состояния для каждой кнопки: обычное, когда навел мышь и когда нажал.

В остальном неплохо.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.

Последний раз редактировалось Bargest, 12.01.2011 в 23:52.
Ответить с цитированием
  #3  
Старый 12.01.2011, 23:50
nex nex вне форума
Прохожий
 
Регистрация: 12.01.2011
Сообщения: 10
Репутация: 10
По умолчанию

Спасибо за отзыв!!! Всё принял к сведению - исправлю в следующей версии (=

Да, вы правы, лучше задавать время вручную (или бегунком).

Насчёт "бага" бегунка: Да, так и есть. Даже на ХР. Неполучилось исправить =\ Так как форма у меня прозрачная, а бегунок принимает цвет самой формы... Но я постараюсь.

Двигать окошко - да легко!!! (=

Скопировать цитату - Пока неполучается )


Значит уберу РадиоГрупп и заменю на поле для ввода текста, добавлю возможность перемещать окошко и буду думать, как убрать баг с бегунком.

Ещё раз спасибо, ждите новой версии...

Последний раз редактировалось nex, 13.01.2011 в 00:01.
Ответить с цитированием
  #4  
Старый 13.01.2011, 00:32
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Проект, в котором сделал отрисовку картинки на фоне TTrackBar. Немного через Ж... ну да ладно, главное, что работает, и без тормозов.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием
  #5  
Старый 13.01.2011, 04:03
nex nex вне форума
Прохожий
 
Регистрация: 12.01.2011
Сообщения: 10
Репутация: 10
Восклицание Цитатник v2.0

Вот и новая версия (=




Что нового:

>>>Окошко теперь можно перемещать. Добавлена функция прилипания к краям экрана.


>>>Теперь время обновления вводится вручную, в секундах. Теперь вы можете настроить хоть часовые интервалы (=

>>>При выходе из программы, она автоматически запоминает своё местоположение, прозрачность, настройки времени обновления

>>>Заменил "неправильный" Бегунок - на более красивый (= Теперь всё отображается без глюков.

Цитатник версия 2.0 СКАЧАТЬ

Последний раз редактировалось nex, 13.01.2011 в 04:06.
Ответить с цитированием
  #6  
Старый 13.01.2011, 08:15
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,721
Репутация: 52347
По умолчанию

Нормально работать под семеркой 64х отказалась.
1. Окно не перетаскивается, не меняет размера. Возможно причина широкий экран 1920х1280
2. Вызов локального меню на цитате периодически приводит к исключению.
3. Интерфейс недоработан (неаккуратен)
В общем есть еще над чем поработать.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
  #7  
Старый 13.01.2011, 08:23
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
 
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,906
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию

Хреново работает с прокси.
__________________
Некоторые программисты настолько ленивы, что сразу пишут рабочий код.

Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты.
Ответить с цитированием
  #8  
Старый 13.01.2011, 09:45
Аватар для TOJluK
TOJluK TOJluK вне форума
Местный
 
Регистрация: 25.02.2009
Адрес: Минск
Сообщения: 551
Версия Delphi: 2007
Репутация: 110
По умолчанию

На 7-ке, как и говорили выше, не работает масштабирование, чтоб перетянуть окно- надо очень сильно постараться. При разрешении 1920х1080 текст в исходном размере почти что не читабелен.
И еще, не помешало бы сделать кнопку "Далее"- след. цитата не по таймеру
После пеорехода по ссылке- цитаты больше не обновляются или это так и задумано?

Последний раз редактировалось TOJluK, 13.01.2011 в 10:03.
Ответить с цитированием
  #9  
Старый 13.01.2011, 15:28
nex nex вне форума
Прохожий
 
Регистрация: 12.01.2011
Сообщения: 10
Репутация: 10
По умолчанию

FAQ

В. Окно не перетаскивается, не меняет размера.
О. Окошко перетаскивается, но тянуть нужно за синюю рамку. Не текст (исправлю). Размер не меняется (а надо ли это?) т.к. предпологалось сделать максимально - маленькое окошко программы, а не на пол рабочего стола.

В. Вызов локального меню на цитате периодически приводит к исключению.
О. Программа использует компонент TWebBrowser браузера IE. Возможно у вас проблемы с ним. В ходе моего тестирования такого небыло. =(

В. Интерфейс недоработан (неаккуратен)
О. Поясните, Пожалуйста, В чём именно - и исправим.

В. Хреново работает с прокси.
О. Как вы это узнали? О_О

В. На 7-ке, как и говорили выше, не работает масштабирование
О. Масштабирование текста и окошка программы? Оно не меняется с разрешением монитора. А текст выводится 8pt.

В. Чтоб перетянуть окно- надо очень сильно постараться.
О. Дада, это мой косяк - исправлю.

В. При разрешении 1920х1080 текст в исходном размере почти что не читабелен.
О. Постараюсь сделать настройки размера, шрифта.

В. И еще, не помешало бы сделать кнопку "Далее"- след. цитата не по таймеру.
О. Такое УВЫ невозможно, так как java скрипты предоставлялись сайтом БашОрг. Они сами транслируют цитаты в случайном порядке, с минимальным интервалом в 10 секунд. Быстрее 10 секунд - необновляются цитаты. Но кнопочку могу вставить, и посмотреть, может поможет, если таймер задан больше 10 секунд. Но минимальный интервал всё равно останется 10 сек.

В. После пеорехода по ссылке- цитаты больше не обновляются или это так и задумано?
О. После перехода по ссылке вы попадаете на сайт Bashorg. Могу сделать в данном случае так: Появится кнопка, которая вернёт вас к цитатам.

Мои вопросы:

Какая есть замена TWebBrowser ? Чтобы хоть копирование было бы возможно.
Насчёт интерфейса: А предложите свой) Может быть вы лучше придумаете)


СПАСИБО ЗА ВАШУ ПОДДЕРЖКУ!!!
С Уважением Nex

Последний раз редактировалось nex, 13.01.2011 в 15:35.
Ответить с цитированием
  #10  
Старый 13.01.2011, 16:03
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Цитата:
Какая есть замена TWebBrowser ? Чтобы хоть копирование было бы возможно.
То, что отображается в окне - текст и ссылка. Нужна ли ссылка на баш? на мой взгляд нет: в маленьком окошке все равно на сайте не полазать. Можно просто написать адрес баша.
Если же убрать ссылку - остается обычный текст, который можно смело выводить в МЕМО. Написать простейший парсер, который на месте <br> поставит переводы строки и сделает прочее мелкое форматирование.
Или же использовать сторонний TRichView (можно будет сделать оформление в стиле Word'а)

Из МЕМО же копирование работает нормально, и к тому же оно не зависит от IE.

З.Ы. если ничего не вводить в окне настроек, и переключиться на нормальное - ошибка: '' is not a valid integer value. И после в заголовке написано: "Обновление: сек"
Время, через которое происходит обновление, у меня явно не соответствует объявленным мной 10 секундам.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.

Последний раз редактировалось Bargest, 13.01.2011 в 16:13.
Ответить с цитированием
  #11  
Старый 13.01.2011, 16:21
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
 
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,906
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию

Цитата:
В. Хреново работает с прокси.
О. Как вы это узнали? О_О

На работе запускал - там только через прокси инет + HC
Программа показала только одну цитату, зашел в настройки, вышел из настроек, все повисло
__________________
Некоторые программисты настолько ленивы, что сразу пишут рабочий код.

Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты.
Ответить с цитированием
  #12  
Старый 13.01.2011, 16:34
Аватар для TOJluK
TOJluK TOJluK вне форума
Местный
 
Регистрация: 25.02.2009
Адрес: Минск
Сообщения: 551
Версия Delphi: 2007
Репутация: 110
По умолчанию

Цитата:
Сообщение от nex
FAQ
В. И еще, не помешало бы сделать кнопку "Далее"- след. цитата не по таймеру.
О. Такое УВЫ невозможно, так как java скрипты предоставлялись сайтом БашОрг. Они сами транслируют цитаты в случайном порядке, с минимальным интервалом в 10 секунд. Быстрее 10 секунд - необновляются цитаты. Но кнопочку могу вставить, и посмотреть, может поможет, если таймер задан больше 10 секунд. Но минимальный интервал всё равно останется 10 сек.

На самом деле иногда не успеваешь дочитать цитату до конца- происходит рефреш. Кнопку можно назвать "Прочитано", и по ее нажатии активировать таймер с мин. значением. Может быть даже повесить все это на правый клик. Как- то так.

И по поводу размера шрифта. Сам шрифт вообщем- то можно читать, уже привык.

И еще, при наведении мыши было бы хорошо чтоб работал скроллинг без клика, а то приходиться кликать на окно чтоб его проскролить вниз.
Ответить с цитированием
  #13  
Старый 13.01.2011, 16:43
nex nex вне форума
Прохожий
 
Регистрация: 12.01.2011
Сообщения: 10
Репутация: 10
По умолчанию

Обьясню вам...

Я всё сделал через "Одно место"

Дело в том, что я ненаучился копировать текст с сайта в Memo....

Пришлось поизвращаться и сделать так:

Есть html документ, в него я вписал скрипт, который выдаёт башорг

Код:
<div style="border: 1px solid #9999bb; background: #f0f0ff; padding: 5px; font-family: 'Monaco', 'Courier New', monospace; font-size: 10pt;">
<script language="JavaScript" type="text/javascript" src="http://bash.org.ru/forweb/">
</script>
</div> 

И залил этот html документ себе на FTP

А в программу всунул TWebBrowser который по таймеру загружает мой Html Документ на FTP.... И поэтому настроить вывод текста для каждого пользователя Невозможно... Так как все настройки указаны в файле на FTP...

Если бы можнобыло каким то образом копировать Только текст с сайта, и вставлять в memo То было бы круто. Можно было бы уже и стиль текста менять и размеры ,и шрифты.....


Но у меня всё нетак...

Я несмог найти в интернете, как с сайта копировать весь текст в memo...

И ссылка на Башорг в конце цитат - тоже выдаётся сайтом... тогда же как в memo можно будет сделать так, что её просто не выводить...


Может поможете мне, как организовать парсер? Был бы очень благодарен.....
Видал ICQ бот - Он выводит цитаты текстом и без всяких ссылок!!! Значит это возможно всё-же.....Очень хочется в итоге, сделать всё по правильному )))

Собственно нужно юзать только
Код:
<script language="JavaScript" type="text/javascript" src="http://bash.org.ru/forweb/">
</script>
Эту часть... в самом TWebBrowser Можно вписать скрипт этот?, и чтоб текст копировался в мемо...

ЗЫ: Код программы можно написать 10тью разными способами, и за 9 из них получить по шапке от программиста .....

Последний раз редактировалось nex, 13.01.2011 в 17:00.
Ответить с цитированием
  #14  
Старый 13.01.2011, 17:17
Аватар для Konrad
Konrad Konrad вне форума
Эксперт
 
Регистрация: 19.03.2009
Сообщения: 1,261
Репутация: 45834
По умолчанию

Цитата:
Сообщение от nex

И залил этот html документ себе на FTP
А в программу всунул TWebBrowser который по таймеру загружает мой Html Документ на FTP....


Влом проверять... но твоя прога тогда сначала связвается с твоим сайтом, грузит что-то , а далее обращается на башорг?

Довольно таки интересная схема для ...

Файл кстати можно криптонуть тру-шфром XOR, далее прога его скачиват раскриптует, после чего переименует в меговирь.ехе и запустит)))
Не сразу конечно, а в определеннй день Х

Последний раз редактировалось Konrad, 13.01.2011 в 17:52.
Ответить с цитированием
  #15  
Старый 13.01.2011, 19:20
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Насчет
Цитата:
как с сайта копировать весь текст в memo...
Можно открыть справочник по WinSock и сделать простейший HTTP клиент. Там надо отправить определенный запрос и получить назад HTML страницу. Потом выковыривать из нее все, что угодно.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 03:30.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter