Вверх ↑
Ответов: 759
Рейтинг: 165
#1: 2024-05-24 06:45:08 ЛС | профиль | цитата
На сколько я понял, TheRenat нужно просто удалить заголовок файла BMP.
Адрес начала данных растрового массива находится по смещению 10 (https://pascal.sources.ru/articles/099.htm)
The Structure ofthe Bitmap Image File(BMP)
В новый файл копируем всё начиная с этого места
Add(MainForm,2953706,105,84)
{
Point(onClose)
link(onCreate,10749451:doExecute,[])
link(onClose,7650964:doEvent1,[(151,111)(151,55)])
}
Add(ODialog,10749451,161,98)
{
Filter="BMP|*.bmp"
link(onExecute,15873387:doValue,[])
}
Add(FileStream,13740685,301,98)
{
Point(doPosition)
link(onLoad,384480:doData,[])
}
Add(DataToFileEx,4160234,462,105)
{
Point(doPosition)
link(onGet,8659885:doEvent1,[])
link(Stream,1361429:Var1,[(468,96)(454,96)])
}
Add(DoData,384480,350,98)
{
Data=Integer(10)
link(onEventData,193121:doEvent1,[])
}
Add(Hub,193121,406,98)
{
link(onEvent1,11433049:doWork3,[(431,104)])
link(onEvent2,4160234:doGet,[])
}
Add(Hub,8659885,504,105)
{
OutCount=3
link(onEvent1,11433049:doWork2,[(529,111)(529,90)])
link(onEvent2,11569468:doStrCat,[])
link(onEvent3,13972348:doOperation,[(532,125)(532,195)])
}
Add(Memory,15873387,217,98)
{
link(onData,13740685:doOpen,[])
}
Add(FileStream,6933692,637,112)
{
Mode=1
}
Add(StrCat,11569468,567,112)
{
Str2="-raw"
link(onStrCat,6933692:doOpen,[])
link(Str1,15873387:Value,[(573,82)(272,82)(272,138)(223,138)])
}
Add(HubEx,11433049,427,84)
{
Angle=2
link(onEvent,13740685:doPosition,[(291,90)(291,118)])
}
Add(StreamCopy,1109744,637,189)
{
link(onCopy,11683823:In,[])
link(Dest,6933692:Stream,[])
link(Source,1361429:Var3,[(650,166)])
}
Add(Hub,7650964,238,49)
{
link(onEvent1,6933692:doClose,[(606,55)(606,125)])
link(onEvent2,13740685:doClose,[(263,62)(263,111)])
}
Add(LineBreak,16402533,63,105)
{
link(Out,2953706:doClose,[])
Primary=[11683823,616,84]
}
Add(GetDataEx,1361429,448,161)
{
Angle=3
link(Data,13740685:Stream,[(307,166)])
}
Add(Math,13972348,560,189)
{
OpType=1
link(onResult,1109744:doCopy,[])
link(Op1,13740685:Size,[(566,180)(314,180)])
}

карма: 15

0
Редактировалось 4 раз(а), последний 2024-05-24 07:53:46