Автор Тема: Delphi power  (Прочитано 8640 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Zephyr

  • Пользователь
  • Сообщений: 544
  • Пол: Мужской
  • coder
    • Просмотр профиля
Delphi power
« : 08 Март 2008, 14:52:48 »
Сила Дельфи.
Наверняка многие из вас видели маленькие программки взломщики играющие
модульную музыку. Отличительной особенностью этих программ являлось:
маленький размер,
все данные хранятся в теле исполняемого файла.

Мне захотелось попробывать создать нечто подобное...
Силами Дельфи 7 и ассемблера:
Размер получился впечатляющим 14 309 байт из которых !!!15 546 байт!!! занимает
сама мелодия в формате *.xm. Ну ессесно все пожато до нельзя... Хотя можно еще меньше...
Самое маленькое чего мне удалось добиться 7 731 байт(за счет специальной мелодии 4Kb),
но ее пока не выкладываю...

http://webfile.ru/1790539

PS: может кто сможет меньше??? Пишите zephyrgl@yandex.ru

Оффлайн Йобан Матич

  • Emu-Land Team
  • Сообщений: 2593
  • Пол: Мужской
    • Просмотр профиля
Re: Delphi power
« Ответ #1 : 08 Март 2008, 14:58:40 »
Цитата: Zephyr
Размер получился впечатляющим 14 309 байт из которых !!!15 546 байт!!! занимаетсама мелодия в формате *.xm

Афигеть! сама прога весит -1507 байт  o_0
Меньше, имхо, некуда.

Оффлайн Zephyr

  • Пользователь
  • Сообщений: 544
  • Пол: Мужской
  • coder
    • Просмотр профиля
Re: Delphi power
« Ответ #2 : 08 Март 2008, 14:59:46 »
25 600 байт до пожатия и образки разными хренями

Оффлайн Planestranger

  • Пользователь
  • Сообщений: 1837
  • Пол: Мужской
    • Просмотр профиля
Re: Delphi power
« Ответ #3 : 08 Март 2008, 18:12:15 »
Zephyr, а смысл? полмега даже для 286-х не критично было...
или тебе не дают покоя лавры Билли Гейтса с его бейсиком в 4кб для Altair?

Оффлайн Йобан Матич

  • Emu-Land Team
  • Сообщений: 2593
  • Пол: Мужской
    • Просмотр профиля
Re: Delphi power
« Ответ #4 : 08 Март 2008, 18:24:56 »
Цитата: lost_hero
или тебе не дают покоя лавры Билли с его бейсиком в 4кб для Altair?
Когда бейсик изобрели, билли ещё на горшок ходил =)

Цитата: wikipedia
Бе́йсик — семейство высокоуровневых языков программирования.
Был разработан в 1963 профессорами Дартмутского колледжа Томасом Куртом (Thomas E. Kurtz, 1928-) и Джоном Кемени (John G. Kemeny, 1926—1993).

lost_hero,
Советую зайти на http://scene.org/ , там и не такое делают...
А Zephyr слишком много играл в kkrieger =)

Оффлайн aL1eN

  • Пользователь
  • Сообщений: 170
    • Просмотр профиля
Re: Delphi power
« Ответ #5 : 08 Март 2008, 19:08:07 »
Цитата
Размер получился впечатляющим 14 309 байт из которых !!!15 546 байт!!! занимает
сама мелодия в формате *.xm.
я один тут вижу несоответствие?
Йобан Матич
меньше всегда есть куда

Оффлайн Йобан Матич

  • Emu-Land Team
  • Сообщений: 2593
  • Пол: Мужской
    • Просмотр профиля
Re: Delphi power
« Ответ #6 : 08 Март 2008, 20:01:49 »
Цитата: aL1eN
я один тут вижу несоответствие?

Читаем внимательнее
Цитата: Йобан Матич
Афигеть! сама прога весит -1507 байт
=)

upx -d core.com
избавит от несоответствия =)

kM0

  • Гость
Re: Delphi power
« Ответ #7 : 08 Март 2008, 22:36:33 »
Есть демки с музыкой и 3д графикой в 4кб -)

Оффлайн aL1eN

  • Пользователь
  • Сообщений: 170
    • Просмотр профиля
Re: Delphi power
« Ответ #8 : 09 Март 2008, 01:21:18 »
таг, фсем стаять
это упиксом сжатый чтоли файл весит 14к? какое же это тогда достижение...

Цитата
Афигеть! сама прога весит -1507 байт
а я подумал, что это не "минус", а "тире" :-\

Оффлайн Planestranger

  • Пользователь
  • Сообщений: 1837
  • Пол: Мужской
    • Просмотр профиля
Re: Delphi power
« Ответ #9 : 09 Март 2008, 01:38:43 »
Йобан Матич, изобёл его конечно не Билли, но именно он сделал первую коммерческую версию бейсика для персонального компьютера (на базе микропроцессора). Этим компьютером был Altair 8800... В 1975 году...

Оффлайн HardWareMan

  • Модератор
  • Сообщений: 7435
    • Просмотр профиля
Re: Delphi power
« Ответ #10 : 09 Март 2008, 08:44:42 »
Zephyr, завидуй: 11,0 КБ (11 264 байт) и музычка намного богаче твоей. Это не мое - сразу говорю. Просто я собираю такие вещи. Собственно, на АСМе под Виндами писать не так сложно, как кажется. Даже ЕХЕ. А на дельфи, если отключить все лишнее (хочешь знать как - спроси хелп) ключиками "-$" то код в 14Кб ваще покажется монстром. Я получал 8Кб, если простая консольная прога с ожиданием кнопки.
« Последнее редактирование: 09 Март 2008, 08:47:36 от HardWareMan »

Оффлайн Йобан Матич

  • Emu-Land Team
  • Сообщений: 2593
  • Пол: Мужской
    • Просмотр профиля
Re: Delphi power
« Ответ #11 : 09 Март 2008, 12:04:24 »
HardWareMan,
FarbRausch - маньяки.

Оффлайн Zephyr

  • Пользователь
  • Сообщений: 544
  • Пол: Мужской
  • coder
    • Просмотр профиля
Re: Delphi power
« Ответ #12 : 09 Март 2008, 12:34:18 »
Хоть бы похвалил кто :)

2HardWareMan
Можно получить 524 байта!!! Мелодия тоже место занимает.
Завидовать там ни к месту - FR боги!!!
У меня как и у всех есть свои авторитеты :) И у них свой частотный синтезатор!!!
2aL1eN
Там много оптимизаций. Вплоть до переписаных системных модулей...
Но если ты полагаешь что это очень просто - дерзай!
2lost_hero
Смысл быть программистом. Вот и все.

PS: 2hwman если собираешь подобные вещи - принимай.
http://webfile.ru/1791737
8 478 байт
7 737 байт
А еще лучше напиши туторы по программированию на Genesis!!!
Может быть этот и соответствующий разделы на Эму-Раше начнут заполняться...

Кому интересно как сделать подобное сюда. Хотя я делал иначе:
http://xproger.mirgames.ru/?id=1&page=0&doc=delphi_min
« Последнее редактирование: 09 Март 2008, 12:44:22 от Zephyr »

Оффлайн Йобан Матич

  • Emu-Land Team
  • Сообщений: 2593
  • Пол: Мужской
    • Просмотр профиля
Re: Delphi power
« Ответ #13 : 09 Март 2008, 13:11:26 »
Цитата: Zephyr
Хоть бы похвалил кто =)
Сделаешь что-нить похожее на это(вложение), похвалим =)

Цитата: Zephyr
Можно получить 524 байта!!!
Удаление гланд бензопилой через...

Оффлайн Mefistotel

  • Emu-Land Team
  • Сообщений: 1509
  • Пол: Мужской
  • Генерал армии Хаоса
    • ВКонтакте
    • Youtube
    • Просмотр профиля
Re: Delphi power
« Ответ #14 : 09 Март 2008, 17:06:47 »
 PARADISE.7z это СУПЕР!!!! 0_0 :wow:
Ребят у меня вопрос. .kkrieger, chapter I - Beta Version-такая версия у меня на компе храниться.Хотелось бы узнать, данный проект развивался дальше??Имею ввиду-существует ли полноценная игра или нет??

Оффлайн HardWareMan

  • Модератор
  • Сообщений: 7435
    • Просмотр профиля
Re: Delphi power
« Ответ #15 : 09 Март 2008, 17:46:20 »
PARADISE.7z это СУПЕР!!!! 0_0 :wow:
Ребят у меня вопрос. .kkrieger, chapter I - Beta Version-такая версия у меня на компе храниться.Хотелось бы узнать, данный проект развивался дальше??Имею ввиду-существует ли полноценная игра или нет??
Вот еще чуток демок.
http://webfile.ru/1792188

Оффлайн Йобан Матич

  • Emu-Land Team
  • Сообщений: 2593
  • Пол: Мужской
    • Просмотр профиля
Re: Delphi power
« Ответ #16 : 09 Март 2008, 19:15:23 »
Цитата: Mefistotel
данный проект развивался дальше
http://theprodukkt.com/ оф. сайт
советую debris посмотреть.

HardWareMan,
спасибо :thumbup:

Оффлайн Zephyr

  • Пользователь
  • Сообщений: 544
  • Пол: Мужской
  • coder
    • Просмотр профиля
Re: Delphi power
« Ответ #17 : 09 Март 2008, 21:08:59 »
Демок - так уж на Дельфи (ближе к теме и с исходняками):
http://www.mirg.ru/

Завершение конкурса "MiniGames"
Конкурс “MiniGames” завершён. На рассмотрение было принято 7 работ.
Остался заключительный этап — определение победителя, поэтому просим принять участие в голосовании, которое продлится до 14 января.

Архив работ (1.82 мб)

Работы XProgera (видяха ни ниже 5ого GForce), и VGA.

Оффлайн Mefistotel

  • Emu-Land Team
  • Сообщений: 1509
  • Пол: Мужской
  • Генерал армии Хаоса
    • ВКонтакте
    • Youtube
    • Просмотр профиля
Re: Delphi power
« Ответ #18 : 10 Март 2008, 02:09:17 »
 Йобан Матич,HardWareMan, Спасибо ребята.Блин, я как в сказку попал.Челюсть реально до пола падает от такого просмотра.С такими талантами этим  програмерам в игровых компаниях надо работать, желательно российских  :)

Оффлайн Planestranger

  • Пользователь
  • Сообщений: 1837
  • Пол: Мужской
    • Просмотр профиля
Re: Delphi power
« Ответ #19 : 10 Март 2008, 07:51:17 »
PaRaDISE - это вообще что-то невероятное....

Оффлайн aL1eN

  • Пользователь
  • Сообщений: 170
    • Просмотр профиля
Re: Delphi power
« Ответ #20 : 14 Март 2008, 20:03:05 »
опоздал я немного, ну да ладно
Цитата
Там много оптимизаций. Вплоть до переписаных системных модулей...
какой же ето делфи, тогда?
Цитата
Но если ты полагаешь что это очень просто - дерзай!
я не говорил, что это просто (хотя и не думаю, что это слишком сложно. просто никогда не интересовался). моя мысль в том, что это не delphi power, а upx power

информация к размышлению:
программа написана на делфи, используя винапи, без объектов, выводит окошко и ждет закрытия. т.е ничего не делает - размер 8,5 кб
у меня генератор плейлистов для лайт аллоя с "интуитивно-понятным" интерфейсом =) весит 7,5 кб. из них 2,5 кб иконка.
при том, что никаких оптимизаций не проводилось, кроме самых очевидных. прога писалась для себя, с единственной целью: лишь бы работало хоть как-то

кстати начали с музычки, закончили демосценой

---------
щас в голову пришло.
можно уместить код в сотню байт, плюс музыка, плюс заголовок, плюс секция импорта
« Последнее редактирование: 14 Март 2008, 23:16:04 от aL1eN »

Оффлайн Zephyr

  • Пользователь
  • Сообщений: 544
  • Пол: Мужской
  • coder
    • Просмотр профиля
Re: Delphi power
« Ответ #21 : 15 Март 2008, 11:45:31 »
2aL1eN
чем языком бла... бла... бла... Выложи чего-нить, а мы заценим. ;)

Оффлайн Mefistotel

  • Emu-Land Team
  • Сообщений: 1509
  • Пол: Мужской
  • Генерал армии Хаоса
    • ВКонтакте
    • Youtube
    • Просмотр профиля
Re: Delphi power
« Ответ #22 : 15 Март 2008, 16:14:28 »
Да, действительно, выложи свою прогу(экзэшник с хороший музычкой).Размером, как ты сказал:
Цитата
   код в сотню байт
Буду тебе очень признателен от данного чуда!
« Последнее редактирование: 15 Март 2008, 16:18:07 от Mefistotel »

Оффлайн aL1eN

  • Пользователь
  • Сообщений: 170
    • Просмотр профиля
Re: Delphi power
« Ответ #23 : 15 Март 2008, 16:47:30 »
лень писать. код без создания окошка уместится в 50 байт, может меньше.
алгоритм такой:
в секции данных у нас лежит мидишная музыка. при старте создаем файл с расширением .mid, сбрасываем туда наш мидик, и делаем ShellExecute, все. при выходе файлик можно удалить.
а уж реализовать это смогу даже я.

Zephyr
выложить я могу только этот генератор, но нафиг такое чудо никому не надо

Оффлайн Йобан Матич

  • Emu-Land Team
  • Сообщений: 2593
  • Пол: Мужской
    • Просмотр профиля
Re: Delphi power
« Ответ #24 : 15 Март 2008, 17:32:45 »
Цитата: aL1eN
делаем ShellExecute
читерство =)

Оффлайн aL1eN

  • Пользователь
  • Сообщений: 170
    • Просмотр профиля
Re: Delphi power
« Ответ #25 : 15 Март 2008, 21:06:23 »
хех. =)
докажи мне, что алгоритм не рабочий =).
люблю я подобные извращения....

Оффлайн Zephyr

  • Пользователь
  • Сообщений: 544
  • Пол: Мужской
  • coder
    • Просмотр профиля
Re: Delphi power
« Ответ #26 : 16 Март 2008, 12:27:47 »
код без создания окошка уместится в 50 байт - можно и меньше правильно, что это даст,
!!!пользователь должен остановить проигрывание как-то, при необходимости!!!:

midi звучит некачественно на 90% компов - аля AC97 и другие встроенные звуковухи.
Ты вот модульный файл засунь + двиг который его проиграет.
А пихать в екзешник можно что душе угодно в массив, предварительно
перегнав в стопочку байт - утилитой, которую сам же должен и написать!!!

Оффлайн aL1eN

  • Пользователь
  • Сообщений: 170
    • Просмотр профиля
Re: Delphi power
« Ответ #27 : 17 Март 2008, 00:23:12 »
Цитата
!!!пользователь должен остановить проигрывание как-то, при необходимости!!!:
закрыв окно программы, или завершив процесс. люблю радикальные меры =)
Цитата
midi звучит некачественно на 90% компов - аля AC97 и другие встроенные звуковухи.
а это уже железные проблемы, програмеры этим не занимаются =). учитесь у мелкософта, товарищи. =D
Цитата
А пихать в екзешник можно что душе угодно в массив, предварительно
перегнав в стопочку байт - утилитой, которую сам же должен и написать!!!
да легко. написать прогу, которая перегонит одну цепочку байт, в другую, под силу любому. проблема потом восстановить начальные значения =)

сорри, я уже в который раз оффтоплю...

Оффлайн GManiac

  • Пользователь
  • Сообщений: 1284
    • Просмотр профиля
Re: Delphi power
« Ответ #28 : 19 Март 2008, 03:13:02 »
Слабо на Delphi написать "гипнотическую" программу на 120 байт? Со звуком ;)

Оффлайн Kostey D.

  • Emu-Land Team
  • Сообщений: 2979
  • Пол: Мужской
  • to destroy us all!
    • Просмотр профиля
Re: Delphi power
« Ответ #29 : 19 Март 2008, 11:54:25 »
А слабо сделать что нибудь полезное?