Крайний изврат - формат webp
Подарок
Сообщений 31 страница 35 из 35
Поделиться3107.05.2025 18:12:42
- Активный участник
- Зарегистрирован: 26.07.2021
- Приглашений: 0
- Сообщений: 200
- Уважение: [+1/-0]
- Позитив: [+0/-2]
- Провел на форуме:
1 день 1 час - Последний визит:
Сегодня 18:29:52
Поделиться3207.05.2025 18:41:12
AZJIO написал(а):
В архив?
не архив конечно, но так называют сей процесс
наверно потому что эти проги предназначены для уменьшения веса, как и архив
egons написал(а):
Крайний изврат - формат webp
ЧЁ?????
ГДЕ???
Поделиться3307.05.2025 19:39:40
- Активный участник
- Зарегистрирован: 26.07.2021
- Приглашений: 0
- Сообщений: 200
- Уважение: [+1/-0]
- Позитив: [+0/-2]
- Провел на форуме:
1 день 1 час - Последний визит:
Сегодня 18:29:52
newJS написал(а):
ЧЁ?????
ГДЕ???
Поделиться34Вчера 06:57:36
newJS написал(а):
но так называют сей процесс
А переведи слово "Compressed" в твоей проге... Это просто игра терминов. Мы когда переводим программный интерфейс всегда в спорах что является более подходящим и у каждого свои привычки.
Поделиться35Вчера 17:08:58
Есть способ загружать из DataSection циклом.
Код:
Define *EndPos
Macro AddFile(Num)
Data.i ?LabelEnd#Num
IncludeBinary ""+Num+".png"
LabelEnd#Num:
EndMacro
DataSection
IncludePath "images\"
Start:
AddFile(1)
AddFile(2)
AddFile(3)
AddFile(4)
AddFile(5)
AddFile(6)
AddFile(7)
AddFile(8)
AddFile(9)
AddFile(10)
AddFile(11)
AddFile(12)
AddFile(13)
AddFile(14)
AddFile(15)
AddFile(16)
AddFile(17)
AddFile(18)
AddFile(19)
AddFile(20)
AddFile(21)
AddFile(22)
AddFile(23)
AddFile(24)
AddFile(25)
AddFile(26)
AddFile(27)
AddFile(28)
AddFile(29)
AddFile(30)
AddFile(31)
AddFile(32)
AddFile(33)
AddFile(34)
AddFile(35)
AddFile(36)
AddFile(37)
AddFile(38)
AddFile(39)
AddFile(40)
AddFile(41)
Data.i 0 ; Файлов больше нет.
EndDataSection
*p = ?Start
i=1
Repeat
*EndPos = PeekI(*p)
If *EndPos=0
Break
EndIf
*p + SizeOf(Integer)
CatchImage(i, *p)
*p=*EndPos
i+1
ForEver