Delphi 4k DEMO

← →
XProger © (2005-05-31 08:13) [0]

Многие не верили в это! А многие не хотят верить... ;)
Собственно, это плод моей 8 часовой бессоницы.
Сжал всем чем можно и в итоге получил 4096 байт! :)
Исходник прилагается...

http://XProger.narod.ru/X4k.rar

← →
Kobik (2005-05-31 09:23) [1]

жестоко :)

← →
Xeno © (2005-05-31 09:36) [2]

Сильная видать бессоница была :))

← →
DillerXX © (2005-05-31 10:06) [3]

да уж, бессоница рулез =) только у меня экран после твоего чуда остался 640*480

← →
Zak3D[@Tm] © (2005-05-31 12:04) [4]

DillerXX
А у меня всё нормально вышло (разрешение востановилось)

XProger
Классная демка.

← →
Sapersky (2005-05-31 12:29) [5]

Дык, замена system от KOL + UPX - дело нехитрое...
Лучше бы нарисовал что-нибудь поинтереснее. Так и быть, мы готовы скачать аж 8192 байта :)
Ещё - работает весьма нестабильно, то чёрный экран после запуска, то разрешение остаётся. Зачем его вообще менять?

← →
Zak3D[@Tm] © (2005-05-31 12:54) [6]

Sapersky
А по моему очень даже интересно =)
Тока надоедает быстро.

← →
Antonn © (2005-05-31 13:15) [7]

X4k.com заражен вирусом Trojan-Dropper.Dos.Small.
Антивирус имени Касперского.

← →
keal (2005-05-31 13:19) [8]

XProger что-то мне не верится, что прогу от делфи можно ужать на 4к.
и проверь свой комп на вирусы.

← →
-=S.S=- © (2005-05-31 13:39) [9]

Хе ...
А Ехе в сом переделать ... Это сильно ... тем более прога как бы виндовая должна быть.

> Сжал всем чем можно и в итоге получил 4096 байт! :)

Этот СОМ вообще не сжат !
Но как ни странно он работает нормально.
Каспер бывает ошибаеться ... может это как раз тот случай ...

← →
Zer0 © (2005-05-31 14:14) [10]

зачОт! who`ll be next?

про [9] внутри файлика видно:
ü$wÍ ¹ ¾ ¿§#» ?ýó¤ü‡÷ƒîÆíWWé)"UPX!

интересно, что значит "UPX"?

← →
Antonn © (2005-05-31 14:15) [11]

> Каспер бывает ошибаеться ... может это как раз тот случай ...

не спорю.

← →
keal (2005-05-31 15:14) [12]

может Каспер и ошибается, но все равно не вериться, что прогу можна ужать, так как файл не запускал.

← →
-=S.S=- © (2005-05-31 15:19) [13]

> keal (31.05.05 15:14) [12]

Я запускал ... на ВМВАРЕ (Виртуальная машина ... чтобы не рисковать) и что самое интересно что работает.
Токо почему он работает я не знаю .... видать там вообще на асме написано. (смущает расщирение СОМ)

И что интересно автор ветки до сих пор не запостил ...
Подозрительно просто

← →
Zak3D[@Tm] © (2005-05-31 15:31) [14]

=) На этом сайте посмотрите, сдесь была ссыла на статью, как можно делать 4к демо на Delphi.
Автор в offline =)

← →
XProger © (2005-05-31 15:35) [15]

Автор ветки отсыпался... ;)

Если кому-то стрёмно запускать com пусть перекомпилит в ехе с системныйми заголовками KOL, затем из ресурса удалит .RCData, после этого с помощью fakecom.com переведёт программу в com файл и уже под конец запакует UPX"ом :)

Спасибо Zer0 который навёл на ссылку http://scene.migeel.sk/intro4k.html До этого я сам не верил ;)

Сомневаюсь, что троян мог влезть в 4096 байт и я этого не заметил ;)))

← →
XProger © (2005-05-31 16:23) [16]

Обновил демку. Проблема со сменой разрешения решена ;)
http://XProger.narod.ru/X4k.rar

← →
Кефир87 (2005-05-31 18:07) [17]

"Объект заражен вирусом Trojan-Dropper.DOS.Small.
Рекомендуется удалить этот объект."

Что за ...? Ладно. Исходник посмотрю...

← →
Кефир87 (2005-05-31 18:10) [18]

Шизафрения а не бессонница. полюбому 8)

← →
Zer0 © (2005-05-31 18:50) [19]

касперского - в мусорницу. есть подозрения что он просто запомнил связку fakecom+upx и считает что это вирус.

всем боящимся и сомневающимся - качаем UPX ( http://upx.sourceforge.net/ ), запускаем с параметрами:
upx -d X4k.com

на выходе видем .com (внутрях которого зарыт экзешник) размером почти в 9 кило и с характерной для борланда структурой.

← →
Fosgen (2005-05-31 23:05) [20]

Приветствую.
Салют автору - весьма впечатляющая весчь получилась. У меня - все работало без глюков и стабильно.

← →
Xeno © (2005-06-01 07:33) [21]

Касперский ругается на некоторые сигнатуры присущие вирусам,а то что эти последовательности команд могут использовать и вполне безобидные программы он так и не научился понимать :))

← →
Antonn © (2005-06-01 09:21) [22]

думаю лучше быть предупрежденным ложным сигналом, чем не информированным реальным.

← →
-=S.S=- © (2005-06-01 13:37) [23]

> Zer0 © (31.05.05 18:50) [19]

upx: x4k.com: NotPackedException: not packed by UPX

← →
XProger © (2005-06-01 14:27) [24]

Хватит тут шуму наводить! Исходники я вроде в архив кинул и как сжать описал...

← →
Omar2002 © (2005-06-06 23:00) [25]

Демка просто прикольная! Давай еще че-нить в этом роде!!!

я как раз вчера забрел на http://scene.org посмотрел новые демки, а тут у нас свои клепают и не хуже ! :)

Еще мона ужимать ACPacker-ом, он двоичный код ужимает. Хотя на 4К прогах я его не пробовал. Зато обычные ехе-шники дельфовые ужимает нормально :)

← →
XProger © (2005-06-07 01:01) [26]

http://www.pouet.net/prod.php?which=17447
UPX его жмёт нормально :)

← →
Zer0 © (2005-06-07 01:07) [27]

я не удивлюсь если фаурбрашовцы сидели на каком-то своем местечковом форуме по написанию баз данных =)

← →
XProger © (2005-06-07 01:14) [28]

Zer0, я шахтёр по специальности :)

← →
frame © (2005-06-07 01:51) [29]

Давайте соревноваться, у кого несжатый меньше :)

← →
frame © (2005-06-07 02:10) [30]

Хотя если соревноваться в размере, то вам лучше использовать MS VC2003 для этих целей - и по скорости кода он тоже получше

← →
Zer0 © (2005-06-07 02:21) [31]

MS VC2003 это один большой баг.
четать http://www.livejournal.com/users/2ero/52581.html

← →
Ландграф Павел © (2005-06-07 11:58) [32]

А нафик извратом заниматься, я аналогичное на asm`е напишу кила в 1.5, много потому что знаю его пока слабенько.
Ну не приспособлены для этого языки высоко уровня... я делфи оч. уважаю, но масенькие утилиты пишу на асме, даже winapi и kol не поможет получить 2 килобайта на прогу с формой и кнопками...
Если бы 4 кила были без сжатия upx и fuckcom=) то я бы лично перечислил этому человеку все свои сбережения, а сжимать енто NMXO нечестно...

← →
XProger © (2005-06-07 12:02) [33]

frame, не смей тут упоминать о скорости работы скомпилированного кода, ибо она не меньше чем у компилятор MSVС++...
Любой дурень сможет написать ехе в 4 кб на MSVC++...

P.S.
Заметь первое слово в названии топика! ;)

← →
XProger © (2005-06-07 12:04) [34]

Ландграф Павел, жмёт все! Даже дема с метровым ехе зажатая RAR"ом до 64 кб считается 64к демкой :)

← →
Ландграф Павел © (2005-06-07 14:52) [35]

ну видимо респект=) тада и я попробую после сессии что-нить написать в 4 кила...

← →
Zer0 © (2005-06-07 15:10) [36]

2 XProger ©:
советую посмотреть на это:
http://astronomy.swin.edu.au/~pbourke/surfaces/supershape3d/
http://astronomy.swin.edu.au/~pbourke/surfaces/sphericalh/
формула простая, а результат - офигенный. если сделать морфинг то получится неплохая 8k дема.

← →
frame © (2005-06-07 21:37) [37]

Спорить я не хочу, сам пишу на всём, что нравится )
http://opengl.land.ru/bin/misc.zip
хотя и старая тема, всё равно оцените

← →
Omar2002 © (2005-06-07 22:37) [38]

>frame © (07.06.05 21:37) [37]
Респект- красиво очень, тока немного не отцентровано по-моему. Но смотрится очень приятно!

Слуай как сделал такие переливы? Юзал OGL?

← →
П7 (2005-06-07 22:59) [39]

Там же исходник есть - глянь сам, а?

← →
XProger © (2005-06-07 23:07) [40]

П7, он походу к frame обращался ;)
Omar2002, да OpenGL он юзал! А "переливы" скорее всего текстурой :)

← →
П7 (2005-06-07 23:25) [41]

(:
Ну, это у меня просто уже на радостях от приближения "Автостопом по Галактике" крышку от люка рвёт. (: Извините, если обидел... (:

← →
Asteroid © (2005-06-08 01:39) [42]

XProger, respect :) Что б у меня была такая бессонница :)

P.S. По демку музыки не хватает ;)

← →
Xeno © (2005-06-08 06:17) [43]

>П7
"Автостопом по Галактике" ,меня реклама фильма тоже задела, жду с нетерпением :)))

← →
Darthman © (2005-06-08 11:16) [44]

>>Xeno, П7
Начал я его смотреть... помоему гадость порядочная. Сегодня досмотрю скажу :)

← →
X-Disa © (2005-06-08 11:21) [45]

Красиво!

← →
П7 (2005-06-08 14:48) [46]

Да вы не шарите, как нужно "фильмы по книгам" смотреть!

← →
Zer0 © (2005-06-08 15:06) [47]

[offtop]предлагаю ввести величину имени себя любимого (lambda z =), обозначающую период полураспада топега/треда, и говорящую о том через какое количество сообщений тема беседы меняется на на совершенно другую.
[/offtop]

← →
Omar2002 © (2005-06-08 19:08) [48]

Ага, тема точно сменилась :)
Но демки все же тема не узкая :)
Мне интересно как они туда свою музычку запихивают, скорее всего что-то типа миди, и набор используемых инструментов(сэмплы). Но как же тогда они туды в 64к умудряются еще и слова запихать, как например в fr-30.

← →
XProger © (2005-06-08 21:06) [49]

Трекерный формат (xm, mod, it)

← →
Zer0 © (2005-06-08 23:15) [50]

слова запихиваются при помощи вокодера. (специального кодека, который позволяет очень сильно сжимать речь.)
звуки составляют где-то 90% от всего размера, так что если их выкинуть компрессия получается раз в 10.
очень часто встречал xm`ки из которых выдраны все семплы. так вот они и вшиваются в дему. прога при помощи различных алхимических приемов типа генераторов, фильтров и микшеров создает семпл, пришивает к иксемке. а дальше все как обычно.

← →
Asteroid © (2005-06-09 02:22) [51]

По-моему у них не XM, а собственный звукогенератор...Это они в werkkzeug-е предлагают присоединить XM или OGG, а для своих демок они на своем музыку пишут.
Вокодер...может быть :)

← →
Zer0 © (2005-06-09 02:38) [52]

да, xm`ки сейчас импользуются все реже. на смену ему приходит рилтайм-синт.
например камрады из FarbRausch юзают свой собстенный V2 synthesizer system [ http://www.1337haxorz.de/products.html ]

← →
хм___ (2005-06-09 02:43) [53]

Кстати, нехилый синтезатор у них. Вот тут можно скачать и покрутить: http://web.hibo.no/~mva/machineinfo.php?id=873

← →
XProger © (2005-06-09 07:11) [54]

Во время очередной бессоницы поставил "мировой" рекорд!!!
Программа на Delphi 7 размером в 612 байт!!!
Работает на всех компьютерах (даже тех что без установленной Delphi)
Код программы:
program Project1; begin end.

Другой пример в 704 байта:
program Project1; function MessageBoxA(hWnd: Cardinal; lpText, lpCaption: string; uType: Cardinal): Integer; stdcall; external "user32.dll"; begin MessageBoxA(0, "Минимальная программа на Delphi", "Delphi min", 0); end.

← →
Zak3D[@Tm] © (2005-06-09 10:21) [55]

После того, как обрабатываю экзешник программой faceCom он становится мне не доступен! Постоянно выдаются ошибки мол файл занят и может быть у вас нету прав на его запускание! (я типа как админ на своём компе ....)
Не кто с этим не сталкивался?

← →
frame © (2005-06-09 23:21) [56]

Скорее всего, он у тебя в списке процессов висит

← →
Zak3D[@Tm] © (2005-06-09 23:49) [57]

Разобрался с этой проблеммой, дело было в Антивире, он никак не хотел пропускать эту прогу.
http://izgame.rpro.ru/downloads/demo_scene/intro/4K/z4K_i.rar
Вот собсно результат =).
Тока не ругаться, это моя первая работа. Алгоритмы рисования всяких красивостей было лом искать, и поэтому.... так.... бурдятина всякая =)...
При создании был важен сам факт создания, вотЪ =)
Вес ровно 4096.

← →
XProger © (2005-06-10 01:31) [58]

http://xproger.mirg.ru/?id=1&doc=delphi_min
Вот статейку накатал :)

← →
frame © (2005-06-10 02:32) [59]

Вот меня озадачила строчка "С:\a.exe" в fakecom - я её удалил вместе с нулевым символом в конце и файл стал аж на 9 байт меньше =)

← →
frame © (2005-06-10 02:53) [60]

..но работать перестал ((
>XProger
статью посмотрел, хорошая, начал было собирать system.pas под нужды OpenGL - слишьком много всякого нужно добавлять (((

← →
XProger © (2005-06-10 03:35) [61]

frame, статью обновил т.к. ShTiRLiC подкоректировал модули :)
Да и StripReloc давал плохие результаты, его заменил на "migeel"s Realigner" и теперь минимальная программа весит 524 байта!!! :D

← →
Zak3D[@Tm] © (2005-06-10 08:44) [62]

XProger
У меня прога весившая 4096 байт после замены StripReloc прогой migeel"я (realign) прога стала весиль почти на 400 байт больше!

← →
frame © (2005-06-10 21:38) [63]

>XProger посмотри на размер своей демки
http://opengl.land.ru/src/x4k.zip

← →
имя (2005-06-10 21:51) [64]

Удалено модератором

← →
XProger © (2005-06-10 23:29) [65]

frame, маньяк! =)
Но эту демку я не стремился озвучивать, так что не использовал "кастрированные" системные заголовки :)
Да и особо не оптимизировал код, т.к. стремился к чётному размеру 4096 байт :)

← →
П7 (2005-06-11 02:19) [66]

Во, озвучил свою интру...
Художественной ценности эта интра не несёт, зато несёт практические знания о том, что ТАКОЕ возможно... (:
Цените:
http://gfx.animka.com/backup/users/reijii/r4k3.rar

Хочу также заметить, что fakecom в процессе запуска просто переписывает из файла всё, что идёт после него самого в этот самый С:\a.exe и потом его же запускает. В итоге, скорее всего на многопользовательских машинах, где обычный пользователь не имеет права записывать в корень диска С (скорее всего!), программа работать не будет !!!

И даже не содержимое файла, а дамп 32кб памяти процесса!

frame, меня радует, что это всё в 60 байтном файле уместили :)
П7, ПсихЪ!!! ;)

← →
П7 (2005-06-11 07:56) [70]

> XProger

(:

← →
Andrew0 (2005-06-11 09:50) [71]

А где бы раздобыть fakecom

← →
Sapersky (2005-06-11 13:07) [72]

П7 (11.06.05 02:19) [66]

waveOutOpen выдаёт: "Указанный формат не может быть преобразован или не поддерживается"
Win98, Creative SB 128

Andrew0, http://xproger.mirg.ru/?id=1&doc=delphi_min в примере к статье...

Рулезная демка. У меня мой КолорТетрис меньше 7,5 не получается (сжимаю только через UPX) - вот, смотрите: http://osvldm.narod.ru/ctetris.rar

OSokin
не качается =(

OSokin, 5,94 КБ (6 083 байт) :)

О, скачал. =) //оффтоп

http://opengl.land.ru/bin/ny_tree.zip
12кб, правда без всякого сжатия

5,68 КБ (5 818 байт) со сжатием :)

Надо будет под грядущий Новый Год подобное замутить :)

хм.. а у меня после com`а upx выдает ошибку=( правда я делаю енто на vcl проекте))

А какая разница =). VCL, не VCL..
У тебя наверно тоже антивирь блокирует нормальную работу.
(Вырубай...)

Нет, антивиров не имею... остальное все сжимается, а вот один проект на 700 кб не хочет... а пофиг=))

← →
П7 (2005-06-14 22:45) [83]

> Sapersky (11.06.05 13:07) [72]

х3... Это чё-то у тя со звуком... (: Можешь попробовать поиграться с исходником...

Но хоть не вылетела позорно? Просто без звука-то пошла?

← →
Sapersky (2005-06-15 11:53) [84]

Разумеется, вылетела :) Там же при ошибке Halt делается. Хотя вообще (если убрать Halt) графика работает.
Со звуком у меня всё в порядке. Может, выбрать какой-нибудь звуковой формат попроще? Для пищания (или что там она должна издавать) подойдёт и самый примитивный, наверное.

← →
П7 (2005-06-15 13:05) [85]

> Sapersky (15.06.05 11:53) [84]
> Со звуком у меня всё в порядке.

Видимо не всё... (: У меня работает прекрасно. И у других вроде проблем н обнаружилось. Ты первый и пока единственный с подобной проблемой. (:

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

← →
имя (2005-06-21 19:02) [87]

Удалено модератором

← →
П7 (2005-06-21 19:23) [88]

> MisterAx (21.06.05 19:02) [87]

И тут ты? Задрал! Куда не придёшь - везде ты! А ну пшёл отсюда!

А может соревнование объявим: кто меньше сделает демку по заданным параметрам?

Вот и соревнуйся с Груздевым, у него тоже такие идеи есть 8)

Хехехе =))) Давайте, давайте интру сделаем :нервно_хихикает:

---
... we are walking on a thin line and you better avoid the risk ...

Условия подкинь-ка, и желательно на мыло

Да вообще-то я агитирую следующий конкурс на нее сделать. Присоединяйся:
http://code.rpro.ru/fusion_forum/viewthread.php?forum_id=20&thread_id=64
А условия обсуждаются. Имхо размер - от 32 до 256к, никак не больше. Срок <= 2 недели

---
... we are walking on a thin line and you better avoid the risk ...

Если только на каникулах... и 2д... то я согласен (я на GDI теперь крутой двиган пишу :-))

Delphi 4k DEMO Найти похожие ветки