Конференция VBStreets

**tyomitch** » 23.10.2004 (Сб) 19:10

Читалка гифов на VB.

Спортирована из публичных сишных исходников за 5 часов.

Нету: прозрачности, анимации, интерлейса. Но есть главное - LZW-декодинг, а остальное имхо мелочи, которые можно за час прикрутить.

BP и всем остальным, кто периодически оспаривает мою квалификацию, предлагаю принять участие в конкурсе: http://bbs.vbstreets.ru/viewtopic.php?t=10455&start=15

BP » 24.10.2004 (Вс) 0:48

Пока открыть не удалось - Не хватает памяти. Но я ещё поколдую. Может действительно что стоящее.

BP » 24.10.2004 (Вс) 0:52

А что такое "Недопустимый формат файла"?
Кстати я читаю из гифа через файловый мапинг. Да, и ещё, ты похоже просто тупо передрал чужой код и представления о том что такое дескриптор изображения или таблицы цветов не имеешь. Но это так, отвлечение от темы. Пока ничего из GIF увидеть не удалось. Но это не значит что оно не работает(я так не утверждал). Сейчас буду смотреть дальше.

**GSerg** » 24.10.2004 (Вс) 0:55

Оно работает.
Оно пока не работает с анимацией. Гиф должен быть статичным.

BP » 24.10.2004 (Вс) 0:56

Так, один 8-битный открыл. Это стандартный cloud.gif из каталога Windows. Отобразил правильно, но почему-то три копии. Причём каждая последующая шире(по высоте предыдущей). Может так задумано?

BP » 24.10.2004 (Вс) 0:58

Так, 5-битный и 2-х битный тоже открыл. Значит мой заграничный коллега неплохо разбирается в формате GIF.

**Sedge** » 24.10.2004 (Вс) 1:11

Аааааа. Ура, ура. Здесь теперь тоже деруться! Дайте и мне кого-нибудь стукнуть за компанию!

BP » 24.10.2004 (Вс) 1:12

Блоки управления изображением тоже обрабатывает.
Чтож, декодер неплохой наверное. На изучение потребуется время. Вот мне только интересно как ты будешь анимацию делать? Тоже искать? А если не найдёшь? Ведь главное в GIF - анимация, которая поддерживается начиная с GIF89a. А если один рисунок - это 87a.

**Sedge** » 24.10.2004 (Вс) 1:16

Справа, справа! По корпусу работай! Где твой удар правой? Тперь в челюсть его, в челюсть!

BP » 24.10.2004 (Вс) 1:17

Я не понял, при чём тут собственно твоя квалификация? Ты что сам этот декодер написал? По моему у тебя уже мания величия началась. Не рановато ли?

BP » 24.10.2004 (Вс) 1:20

Дайте и мне кого-нибудь стукнуть за компанию!

Только прошу - не надо все на одного. Я же не супермен типа tyomitch'а.

**Sedge** » 24.10.2004 (Вс) 1:24

А теперь прямой в челюсть! ЭЙ, СУДЬЮ НЕ ТРОГАЙ!!!!!!

По почкам, по почкам!

BP » 24.10.2004 (Вс) 1:27

Я тут прочёл коментарий к модулю. Зачем ты устаревший формат с ДОС'а на VB переносил?
Тебе нужно было сразу с 89a начинать. Ну да ладно, всё равно 89 дополняет 87-й. Видать другого примера не было? Ну ладно, ищи. А пока что останусь при мнении что нормальных просмоторщиков нет для VB. Это не моё кстати мнение, а нескольких людей, занимавшихся форматом GIF. Я его просто пересказал.

**Sedge** » 24.10.2004 (Вс) 1:36

Предлагаю высоким договаривающимся сторонам поспать, затем прочитать сей документ: http://www.canonical.org/~kragen/tao-of ... mming.html , после чего осознать бессмысленность своего спора, расслабиться, выпить, нюхнуть или пожевать чего-нибудь для восстановления внутренней гармонии и перестать распугивать посетителей форума умными словами

BP » 24.10.2004 (Вс) 2:00

Боюсь ошибиться, но по моему я это на русском читал. Что то из WASM.RU'вского Дзен-Буддизма.

**tyomitch** » 24.10.2004 (Вс) 2:06

BP, какие проблемы? Я тебе продемонстрировал, что найти на VB исходники GIF-декодера не проблема.
Он работает в соответствии с теми ограничениями, которые заявлены в начальном посте. Они не имеют отношения к самому LZW-сжатию, которое ты постиг.

Всё, BP. Ты проиграл. Умойся.

Я тебе бросил ответный вызов - сжать 24-битную картинку с менее чем 256 уникальными цветами в gif без потери качества. Сможешь? Или ты, кроме склок, ни на что не способен? А?

**tyomitch** » 24.10.2004 (Вс) 2:12

BP писал(а):Я тут прочёл коментарий к модулю.

Молодец. После долгих стараний, сумел вломиться в открытую дверь... :-)

BP писал(а):Это не моё кстати мнение, а нескольких людей, занимавшихся форматом GIF. Я его просто пересказал.

А своего мнения у тебя что, нету? :-)

Я не собираюсь дописывать в этот код анимацию и другие фичи, только чтобы тебе ещё что-то доказать. Ты говорил, исходников нет. Я показал, что исходники есть. Точка.

**pitbull** » 24.10.2004 (Вс) 6:44

Гонг!... Дзинь!
Разойдитесь в разные углы ринга!
Таймаут!!!!!!!!!!!!

BP » 25.10.2004 (Пн) 0:26

tyomitch,
То что ты показал - это отстой. Просто я тебе выразил это в мягкой форме. А то что ты сумел перевести с Си на VB ещё не значит что ты сможешь сам сделать нечто подобное. Именно об этом и шла речь. Являешся ли ты носителем знания или же носителем флуда.
Давай анимацию. Этот код ничего не стоит.

BP » 25.10.2004 (Пн) 0:32

Я тебе бросил ответный вызов - сжать 24-битную картинку с менее чем 256 уникальными цветами в gif без потери качества.

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

**tyomitch** » 25.10.2004 (Пн) 1:00

BP писал(а): То что ты показал - это отстой. Просто я тебе выразил это в мягкой форме. А то что ты сумел перевести с Си на VB ещё не значит что ты сможешь сам сделать нечто подобное. Именно об этом и шла речь. Являешся ли ты носителем знания или же носителем флуда.
Давай анимацию. Этот код ничего не стоит.

Я тебе показал, что у меня есть хоть какой-то рабочий код. У тебя же не было и нет ничего, кроме гонора и спеси.

И зачем мне показывать тебе, что я могу? Ведь сам ты ещё ничего не показал, кроме умения разбрасываться оскорблениями. Или может быть, LZW-сжатие ты выдумал?

Вот анимация. Жуй песок, ничтожество.

BP » 25.10.2004 (Пн) 1:57

Раньше хоть криво, но показывал статические, а теперь вообще не работает.
Ошибка во время выполнения программы '453':
Не может найти DLL точку входа RtlFillMemoryUlong в ntdll

BP » 25.10.2004 (Пн) 1:59

Работает, хвалю. А описать принцип работы сможешь?

BP » 25.10.2004 (Пн) 2:04

У меня рабочий код был с самого начала, но для Power Basic. Ты меня ничем не удивил. А вот принцип работы действительно интересен.

BP » 25.10.2004 (Пн) 2:11

Я тоже мог его тупо передрать и выдать за своё творение, но я пошёл путём исследования. В том то и разница.

BP » 25.10.2004 (Пн) 2:18

Напиши свой упаковщик и кодер/декодер - не сможешь. А если в сдираемых тобой алгоритмах закрадётся ошибка? Ты даже не будешь знать где её искать. Это формат написали настоящие учёные и понять его принципы желательно каждому программисту. Собственно для этого и писалась статья, а вовсе не для того чтобы ты, неуч, поливал её грязью. Копировать готовое решение любой дурак может.

BP » 25.10.2004 (Пн) 2:45

Попробовал другой GIF, опять выдаёт "Недопустимый формат файла". Ты не то что свой написать, ты даже не можешь содранный код оформить в рабочее состояние. Работает через раз. Кому такой просмоторщик нужен.
Так что останусь при мнении что нормальных просмоторщиков нет для VB. Твоя дешёвая поделка не исключение. Иди, делай работу над ошибками.

Какой там супермэн, ты даже не программист. Так, передирало.

**FaKk2** » 25.10.2004 (Пн) 3:04

Интересно, спорщики получают интеллектуальный оргазм, когда им удается побольнее уязвить, и поглубже в грязь втоптать?

ИМХО есть менее извращенные и более здоровые способы развлечения...

**tyomitch** » 25.10.2004 (Пн) 3:16

BP писал(а):Напиши свой упаковщик и кодер/декодер - не сможешь. А если в сдираемых тобой алгоритмах закрадётся ошибка? Ты даже не будешь знать где её искать.

А ты сможешь? Кодировать готовые алгоритмы - не сложнее, чем перевести на другой язык. Или LZW ты придумал?

И вообще:

Ты писал(а):Опять флудишь? Покажи хотя бы один просмоторщик GIF на VB, а потом продолжай словесный понос сколько угодно. А то что ты считаешь никого кроме тебя не волнует.

Пока что от тебя нет ничего, кроме визга. На что ещё ты способен?

BP » 25.10.2004 (Пн) 3:34

А это для тех, кто захочет использовать эту дрянь в Win'9x. Если вас конечно устроит что оно работает через раз.

Private Declare Sub FillMemory Lib "kernel32.dll" Alias "RtlFillMemory" ( _
ByRef Destination As Any, _
ByVal Length As Long, _
ByVal Fill As Long)

И все filler (их там 2) замените на ByVal VarPtr(filler)

Конференция VBStreets

Посрамим лжемессию!!

Посрамим лжемессию!!

Кто сейчас на конференции