Add(MainForm,11779120,98,140)
{
 Width=457
 Height=236
 Caption="QR reader"
 Position=1
}
Add(Memo,2568247,756,147)
{
 Top=20
 Width=441
 Height=177
 Align=5
 Font=[MS Sans Serif,12,0,0,1]
 ScrollBars=2
}
Add(HTTPClient,6023390,483,140)
{
 URL="ttp://api.qrserver.com/v1/read-qr-code/"
 Method=1
 URLCodePage=1
 FileField="file"
 FieldCharset=1
 Point(UploadFile)
 link(onFinish,7965911:doSearch,[])
 link(UploadFile,12595752:Text,[(503,124)(300,124)(300,180)(258,180)])
}
Add(Edit,12595752,252,140)
{
 Width=441
 Align=2
 Text="Укажите путь к файлу..."
 ReadOnly=0
 ClearAfterEnter=1
 link(onChange,6203740:doRead,[])
}
Add(FileAttributes,6203740,308,140)
{
 Point(FileSize)
 link(onRead,10679641:doCompare,[])
}
Add(If_else,10679641,364,140)
{
 Type=1
 Op2=Integer(1048576)
 link(onTrue,10250940:doData,[])
 link(onFalse,2760712:doMessage,[(403,153)(403,195)])
 link(Op1,6203740:FileSize,[(370,131)(356,131)(356,180)(335,180)])
}
Add(DoData,10250940,427,140)
{
 link(onEventData,6023390:doLoadString,[])
}
Add(Message,2760712,427,189)
{
 Message="Размер файла больше 1 Мб"
}
Add(LinkTip,13820451,266,42)
{
 Link="https://goqr.me/api/doc/read-qr-code/"
 Font=[MS Sans Serif,8,0,16711680,1]
}
Add(BlockFind,7965911,539,147)
{
 IncludeBlock=1
 StartBlock="data":""
 EndBlock="","
 link(onSearch,9318198:doReplace,[])
}
Add(Menu,8308424,154,140)
{
 Menu=#13: Read QR-code|
 link(onSelectStr,2057774:doExecute,[])
}
Add(ODialog,2057774,203,140)
{
 Filter="Фаилы изображений|*.png;*.gif;*.jp*g"
 Title="Выберите файл  QR-кода "
 FileName=""
 link(onExecute,12595752:doText,[])
}
Add(Replace,13925381,700,147)
{
 SubStr="\"
 link(onReplace,2568247:doAdd,[])
}
Add(VBJScript,9290393,644,147)
{
 @Hint=#16:unescape( Data )|
 WorkPoints=#6:doWork|
 EventPoints=#7:onEvent|
 Language=1
 Script=#31:function doWork( Data, Index ){|33: sys.onEvent( unescape( Data ) );|1:}|
 UseName=0
 link(onEvent,13925381:doReplace,[])
}
Add(Replace,9318198,595,147)
{
 SubStr="\u"
 DestStr="%u"
 link(onReplace,9290393:doWork,[])
}