Вверх ↑
Ответов: 263
Рейтинг: 18
#1: 2019-01-15 09:15:45 ЛС | профиль | цитата
Не знаю правильно ли конвертировать картинку в текст, но получилось чуть проще и понятнее (для меня).
схема


Add(BitmapArray,11681732,490,147)
{
Bitmaps=['Bitmap'=[ZIP5A0B000078DAB5D44D6813411407F078163C7B520F227A097811BDF6AA82071511F1D48B52940A82972882624F162B529A86B4256DD29026E4BBD9A4C96E1277936EA2B55D4DD3DA34A818090429A5E8A98C6FB29975CDEC6E53930E6F2EC9F29B99FFDBD9BECB370F9B9AE31CCCD3308FC13C0EF390E968F3F793F0FF09B33CC9E8BF3F7840653221848AA1D0A2DF9FF7FB733E1F94E0F50A7373BCC7F3D6E3C9BADD5099D9D9B4CB95763AB99919767A9A7538520E47726A6A016A7232313191B0DBE3763B63B3C56CB6F9F171286217C2E11EF2F20ACABE23915EF1CA0AC47E178DF684571F80D8EFA3D1EEF9B603107B2916EB92A7F351D9DDF09AF910FB03C3D0BCFBDE91E0E3337BF33AF12B763C4EF3CC33F3AFB22BF3AA8F7D73458F37889FD8CB8904CD33CFCFA2EF1CAA06EBB9E1F09353346FDC5D62AF2412348FEDFA228ADC428265F74BB4E41D8088147ECFEE125B4A26691EDB0D09DBBE4B28741D49633B6B3E88881BBDDAC9CBA3B2699E19BA80B62A88E9C7B65C0B7720A29A30A23E801E4FEC8FA914CD637BFB1B6207FFDA728943D0078828F4D46CC013FB13CBD2BCAE0D0541959D3B15FC8C1EAFD81C47F32D5BB0E0B0A1D43684F395FD5174C0D6F5C22176299DA679F6F5456C4302DC5D9C7AEC766B1169EC776D89B75E83070C6E16B15733199A6FED7BD58A8A16947F84F807789D86B4917C09BD2C0483622060F05D50EC6C96E6E75F9CC776D5854AC3A83402FDDBDECCC28281D1017C714321639ED865B0295EB6E1D6A01AB3FB737DC5FB10D2FDE7BB60C8137B8DE769BEB5EFAD4A7DD90BAAE677C18027F63ACFD33CB61B52C67A037AA679718D79C516049A87864169BEFA9DF0C4FE9CCBD1BCE6CBD339AFD8F97C1BAFD9DD7DF1C4DE005BC56BC6BF5F9ED815515478CD7CFE8327F6A628CA7CDB01BAE1895D2D1414BE077624023CB10F6234ED3FED76DBFC],'Bitmap'=[ZIP5A0B000078DAB5D43D6FD3401807F063E60B300103035317101F8019562458902A568418189158905858BA36725BD257A58DD2364E9398244E829D60535EFA4679AD041B62E20B1C4FFCF839997BCE8D53D2D3FF4E8A63FFCE2F77CFF59B77CE8AA85D837E19FA79E817A09F11E7A2E397E0FF8B13D8A9DD7BF0F094228494F2CDE6E6EB52A95F2AF58A4588BFB6E6AFAE7A85C2AB42A1BBB202E92C2FB79796DA8B8BEEC2426B7EBE95CF37F3F9C6DCDC4BC8ECAC3333E35856DDB26AB95C3597DB9A9E86901D96CB63E4710675DFB63D2E5ECD40F676A532122FE1AA7F837CF201C87E5BA964E7657489DE84D01E80EC77D56A46DE0C9BF8849D853F0E663CD9EF6BB5A1FC7038B2D5D75576BD3E94E7B6EBBAB0F56034F2647F701CCE3FBDBA950C5C748535111DD46C5C9B64EF380EE7C1FBBD2B7F6DC7C97EDFB8F4C9DE6D34388F76F1461CE3FB16FC20CC16EDAC84CDF993D842A88D4BF65EB3C979CD36F2DC567581ECFD568BF368976F0D02308E1A2FC493E48F645D50B6EB721EEDCE7DE94CCADADDC18849DBF35AD921FBA0DDE67C9A6DDF96BC56F1B243F6C74E87F368878F07F11FC523046783C0BF704E5A555376B7CB79B40FA7E4FEF3383BCFE2E08468A75535B20FC1663CDA3F5EC8236B30038E189C0AED607DDDC893FDC9F3388FF69F9FC705CE0937368C3CD99F3D8FF35A3D490BD43323AF6CDF37F2C6B569289A269EEC2FBD1EE78D8B273BAFEC7E5FE38D5F77249EECAF602778F3FB199127FB5B1028DEF87E4EC093FD3D0890D71EE07F78B28FC250F163B06D1B78B24FA345F65FDA64FA28],'Bitmap'=[ZIP5A0B000078DAB5D43B4FDB501407F074EE17602A1D3A3075AAFA013AD3150916A4AA6B851818192B7561E94AE42484A742A240E290C4E4E1043BA95D4A9B9496B640A422905A31F50B5C4E727C2E69EEBDC8E461FDEF1D62E777EC9313BF7839F330D0399EC39A80F508D638AC0781B1CEE74FE0FCE3A7B8E8783D373FA204028CB18FA9D48764B29E4CD61209881D8FDBDBDB562C76108B55B7B62095CD4D7363C35C5F2FAFAD9556574BD168311A2D4422FB9070D808850C4DCB6B5A2E18CC06837BCBCB10B2DD747A883C56E0F7ADEBC3E27905B20F3399A1F0DD0F40F6A74C6670BEE701C83ECA6607E4C5FE74D983F0D2FE90FD3997EB9F57B49FDBF9BCC8BF7DB6E727AAF693FDC530441EBE77DD647F0F6FF3A7EEE5CA6497450667E11AD5AF4B76C330441EEDC4A432DC96F264370B0591F769AB86A7CB16799FB66A78C8FE5A2C8A3CDAE9A97640C25DB455B349F671A924F26857DE30E315CBCDB6778C3EEDD5F16CC56C72BB5C16799FB66AF4C9FE669A228FB6BBD88EBDE0ED10AC06E1B69427FB7BA522F2689FBC67C74B5E1AEFBC6041B4557F5C6E57AB228FF6EF15D6D2DA1570C76029B455EF05B24FC01678B4FF5DDC15B8C6D9D991F264FFB02C91F7F93E717777A53CD93F2D4BCAC3DD4B47FFBFB75A2A25E5B96DDB725E369B3E79B27FD56A222F1D1EFF3CB7EBF51E5EDA9F7BF1649F82DDC5DFD17EFF3CD9678EC379697FFAE0C93E771CE47B1E60109EEC96EB727E08B6AE034FF6288E8E7D0317D1DACA]]
}
Add(MainForm,1105219,210,133)
{
Width=370
Height=238
Caption=""
link(onCreate,6397971:doEnum,[])
}
Add(Image,6289249,553,259)
{
Left=35
Top=150
Width=32
Height=32
}
Add(StringTableMT,15384470,427,147)
{
Left=10
Top=35
Width=115
Height=110
Columns=#4: =60|4: =20|
IconsCheck=[]
MiscIcons=[]
Icons=[]
Point(FStream)
Point(doSaveFStream)
link(onClick,6809424:doRead,[(475,153)(475,265)])
}
Add(StrList,7950823,266,84)
{
Strings=#7:image;1|7:image;2|7:image;3|
}
Add(ArrayEnum,6397971,280,147)
{
link(onItem,15384470:doAdd,[])
link(Array,7950823:Array,[])
}
Add(ArrayRW,6809424,490,259)
{
Point(Count)
link(onRead,6289249:doLoad,[])
link(Array,1644154:Var2,[])
}
Add(Image,1036128,1261,277)
{
Left=260
Top=150
Width=32
Height=32
}
Add(StringTableMT,1316878,1142,144)
{
Left=235
Top=35
Width=115
Height=110
Columns=#4: =60|4: =20|
IconsCheck=[]
MiscIcons=[]
Icons=[]
Point(doLoadFStream)
Point(FTblStream)
link(onClick,7895206:doRead,[(1182,150)(1182,283)])
link(FTblStream,13077494:sttable,[(1155,131)(1025,131)(1025,483)(1042,483)])
}
Add(ArrayRW,7895206,1197,277)
{
link(onRead,1036128:doLoad,[])
link(Array,521636:Array,[])
}
Add(BitmapArray,521636,1197,130)
{
Bitmaps=[]
}
Add(Button,6700001,210,567)
{
Left=30
Top=5
Caption="Save"
link(onClick,12294494:doEvent1,[])
}
Add(Button,10989959,875,434)
{
Left=260
Top=5
Caption="Load"
link(onClick,1449169:doEvent1,[])
}
Add(StreamPack,10340199,588,588)
{
DataCount=#7:sttable|5:stbmp|
link(onPack,9551284:doCopyFromStream,[])
link(sttable,15384470:FStream,[(594,554)(639,554)(639,301)(447,301)])
link(stbmp,1791150:Text,[])
}
Add(FileStream,9551284,700,574)
{
Mode=1
AutoCopy=0
Point(doCopyFromStream)
link(FileName,11976393:Var1,[(706,418)])
}
Add(FileStream,10758982,973,434)
{
AutoCopy=0
link(onLoad,13077494:doUnPack,[])
link(FileName,11976393:Var3,[(979,418)])
}
Add(Hub,1449169,931,434)
{
link(onEvent1,10758982:doOpen,[])
link(onEvent2,10758982:doClose,[])
}
Add(Edit,16013048,809,364)
{
Left=120
Top=5
Width=110
Text="контент2.dat"
}
Add(GetDataEx,11976393,809,413)
{
link(Data,16013048:Text,[])
}
Add(StreamUnPack,13077494,1036,434)
{
DataCount=#7:sttable|5:stbmp|
link(onUnPack,7113959:doEvent1,[])
}
Add(InfoTip,6256813,406,105)
{
Info=#13:Это сохраняем|
Width=141
Height=130
}
Add(InfoTip,12169793,1106,112)
{
Info=#14:Сюда загружаем|
Width=141
Height=130
}
Add(InfoTip,10882306,777,336)
{
Info=#9:Имя файла|
Width=106
Height=74
}
Add(Hub,12294494,266,567)
{
OutCount=4
link(onEvent1,15384470:doSaveFStream,[(335,573)(335,174)])
link(onEvent2,1791150:doClear,[(583,580)(583,503)])
link(onEvent3,8675574:doEnum,[(347,587)(347,531)])
link(onEvent4,10340199:doPack,[])
}
Add(ArrayEnum,8675574,378,525)
{
link(onItem,1448185:doEvent1,[])
link(Array,1644154:Var1,[(384,208)])
}
Add(GetDataEx,1644154,490,203)
{
link(Data,11681732:Array,[])
}
Add(Hub,1448185,427,525)
{
OutCount=3
link(onEvent1,15561524:doClear,[(465,531)(465,454)])
link(onEvent2,6485638:doWrite,[(476,538)(476,517)])
link(onEvent3,3661983:doConvert,[])
}
Add(Hub,7113959,1092,434)
{
OutCount=4
link(onEvent1,1316878:doLoadFStream,[(1115,440)(1115,171)])
link(onEvent2,521636:doClear,[(1126,447)(1126,136)])
link(onEvent3,14921755:doData,[])
link(onEvent4,12786939:doEnum,[(1116,461)(1116,489)])
}
Add(BitmapStream,5205948,1295,483)
{
link(onRead,7895206:doAdd,[(1339,489)(1339,393)(1185,393)(1185,297)])
}
Add(StrList,1791150,595,490)
{
}
Add(MemoryStream,15561524,490,441)
{
}
Add(StreamConvertor,3661983,525,539)
{
Point(Data)
link(onResult,1791150:doAdd,[(576,545)(576,496)])
link(Data,5231647:Var3,[(531,489)])
}
Add(BitmapStream,6485638,490,504)
{
link(Stream,5231647:Var2,[])
}
Add(GetDataEx,5231647,490,484)
{
link(Data,15561524:Stream,[])
}
Add(DoData,14921755,1134,448)
{
link(onEventData,2490959:doText,[])
link(Data,13077494:stbmp,[(1140,414)(1074,414)(1074,483)(1049,483)])
}
Add(StrList,2490959,1183,427)
{
}
Add(ArrayEnum,12786939,1197,483)
{
link(onItem,13176669:doConvert,[])
link(Array,2490959:Array,[])
}
Add(StreamConvertor,13176669,1246,483)
{
Mode=1
link(onResult,5205948:doRead,[])
}

карма: 3

0