Вверх ↑
Ответов: 321
Рейтинг: 10
#1: 2017-02-04 13:54:00 ЛС | профиль | цитата
Леонид,
Покажите пожалуйста, поменял формат, но он перестал сохранять. Понимаю, что там уже нужны компоненты с "Файлы", наверное)
Надо конвертировать картинку в потом данных и эти данные сохранить в файл.
Есть пример в справке (данные в картинку), но там данные уже в хранилище стримов, а вот как взять данные с Image непонятно


Add(MainForm,2203323,168,252)
{
Height=326
}
Add(ImageLoader,8184193,553,245)
{
ScaleMode=0
DrawSource=2
link(onLoad,8184193:doDraw,[(595,251)(595,239)(541,239)(541,258)])
link(onDraw,9860787:doLoad,[])
}
Add(ODialog,224274,497,245)
{
link(onExecute,8184193:doLoad,[])
}
Add(Button,2327098,378,343)
{
Left=105
Top=240
Caption="Draw"
link(onClick,3093395:doDraw,[])
}
Add(Img_Text,3093395,434,343)
{
X=55
Y=55
Font=[MS Sans Serif,14,0,255,1]
Text="Hiasm 2017"
Point(doFont)
Point(X)
Point(Y)
link(onDraw,9860787:doRefresh,[(609,349)(609,272)])
link(Bitmap,8127632:Var1,[(440,313)])
}
Add(Image,9860787,637,252)
{
Left=95
Top=10
Width=200
Height=200
Color=-16777211
ViewStyle=4
Picture=[ZIP3671020078DAEDC9B11180201044D1D34A08AD8002CC29862EEDEA048780D002DE9F79C9EEDD6A3F6356876B789623CAB7C7FAF7321300000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000E09717CA5B0A58]
Point(doRefresh)
Point(MouseX)
Point(MouseY)
}
Add(Button,5610518,385,245)
{
Left=105
Top=215
Caption="Open"
link(onClick,224274:doExecute,[])
}
Add(Button,16520002,378,420)
{
Left=165
Top=240
Caption="Save"
link(onClick,10489777:doExecute,[])
}
Add(GetDataEx,8127632,637,308)
{
link(Data,9860787:ImageBitmap,[])
}
Add(SDialog,10489777,476,420)
{
Filter="bmp|*.bmp"
link(onExecute,15080836:doEvent1,[])
}
Add(Label,3030738,343,245)
{
Left=165
Top=220
Width=86
Height=17
Caption="Не обязательно"
}
Add(FileStream,1306936,630,469)
{
Mode=1
Point(doCopyFromStream)
link(FileName,8782893:Value,[])
}
Add(BitmapStream,8098625,630,350)
{
link(onRead,7595084:doPut,[])
link(Bitmap,8127632:Var2,[])
}
Add(DataToFile,7595084,693,350)
{
link(onGet,1306936:doCopyFromStream,[(737,356)(737,391)(618,391)(618,489)])
}
Add(Hub,15080836,532,420)
{
link(onEvent1,8782893:doValue,[])
link(onEvent2,8098625:doWrite,[(588,433)(588,363)])
}
Add(Memory,8782893,630,420)
{
}


nesco, спасибо! IE - это Internet Explorer ?! Читал в справке и не понял, что за IE, просто интересно так получается
карма: 1

0