Вверх ↑
Ответов: 16841
Рейтинг: 1232
#1: 2020-06-21 18:37:53 ЛС | профиль | цитата

Add(MainForm,2953706,21,112)
{
Width=513
Height=285
BorderStyle=1
Position=1
Point(onClose)
link(onCreate,7541278:doOpen,[])
link(onClose,7541278:doClose,[])
}
Add(ComboBox,8730412,252,182)
{
Left=75
Top=5
Width=305
Height=21
Text="Выбор сервера."
Point(Data)
link(onClick,12642516:doEvent1,[])
}
Add(Label,13039691,14,175)
{
Left=5
Top=5
Width=65
Height=70
Caption="Сервер\r\n\r\nФайл\r\n\r\nСкришоты"
AutoSize=1
Alignment=1
}
Add(ComboBox,202778,441,196)
{
Left=75
Top=30
Width=305
Height=21
Text="Выбор файла."
Point(Data)
link(onClick,10954420:doEvent1,[])
}
Add(FormatStr,12858237,350,196)
{
Mask="SELECT name, id from files WHERE ser_id=%1;"
link(onFString,1073998:doQuery,[])
link(Str1,8730412:Data,[(356,180)(314,180)(314,222)(272,222)])
}
Add(Hub,12642516,322,189)
{
link(onEvent1,202778:doClear,[(431,195)(431,209)])
link(onEvent2,12858237:doString,[])
}
Add(FormatStr,10284540,525,210)
{
Mask="SELECT name from ssh WHERE f_id=%1;"
link(onFString,3894306:doQuery,[])
link(Str1,14509082:Var3,[(531,194)(489,194)(489,236)])
}
Add(Hub,10954420,497,203)
{
link(onEvent1,13597979:doClear,[(619,209)(619,223)])
link(onEvent2,10284540:doString,[])
}
Add(ListBox,13597979,630,210)
{
Left=75
Top=55
Width=100
Height=165
Hint="Выделите необходимые скриншоты."
MultiSelect=0
Point(SelectArray)
}
Add(GetDataEx,14509082,455,231)
{
link(Data,202778:Data,[])
}
Add(Memo,2267509,658,266)
{
Left=180
Top=55
Width=325
Height=190
ScrollBars=2
}
Add(MT_Enum,6230144,609,266)
{
link(onItem,2267509:doAdd,[])
}
Add(Button,9862664,392,266)
{
Left=90
Top=225
link(onClick,15318066:doString,[])
}
Add(SQLite_DB,7541278,77,126)
{
FileName=":memory:"
link(onOpen,5634017:doValue,[])
}
Add(SQLite_Query,2289830,252,126)
{
SQL="SELECT CASE \r\n WHEN count()=0 THEN 0 ELSE 1 END \r\n FROM files;"
link(onQuery,7278304:doEvent,[])
link(dbHandle,1135469:Var2,[])
}
Add(SQLite_Exec,1636882,203,126)
{
SQL="--Список серверов\r\nCREATE TABLE IF NOT EXISTS [servers](\r\n [id] INTEGER PRIMARY KEY, -- 1\r\n [name] TEXT); -- forum.hiasm.com/rwerdsfsd\r\n----------------------------------------\r\n-- Список файлов \r\nCREATE TABLE IF NOT EXISTS [files](\r\n [id] INTEGER PRIMARY KEY,-- 1\r\n [name] TEXT, --gfsdfsdf.mp4\r\n [ser_id] INTEGER); -- 1 id сервера на который выложен этот файл\r\n----------------------------------------\r\n--Список скриншотов\r\nCREATE TABLE IF NOT EXISTS [ssh](\r\n [id] INTEGER PRIMARY KEY, -- 1\r\n [name] TEXT, -- gfsdfsdf1.jpg\r\n [f_id] INTEGER); -- 1 id файла к которому относится этот скриншот\r\n"
}
Add(SQLite_Exec,13479172,343,126)
{
SQL="INSERT INTO [servers] VALUES(NULL,"forum.hiasm.com/rwerdsfsd");\r\nINSERT INTO [files] VALUES(NULL, "gfsdfsdf.mp4", 1);\r\nINSERT INTO [files] VALUES(NULL, "aaaaa.mp4", 1);\r\nINSERT INTO [ssh] VALUES(NULL,"gfsdfsdf1.jpg",1);\r\nINSERT INTO [ssh] VALUES(NULL,"gfsdfsdf2.jpg",1);\r\nINSERT INTO [ssh] VALUES(NULL,"gfsdfsdf3.jpg",1);\r\nINSERT INTO [ssh] VALUES(NULL,"gfsdfsdf4.jpg",1);\r\nINSERT INTO [ssh] VALUES(NULL,"gfsdfsdf5.jpg",1);\r\nINSERT INTO [ssh] VALUES(NULL,"sdf1.jpg",2);\r\nINSERT INTO [ssh] VALUES(NULL,"sdf2.jpg",2);\r\nINSERT INTO [ssh] VALUES(NULL,"sdf3.jpg",2);\r\nINSERT INTO [ssh] VALUES(NULL,"sdf4.jpg",2);\r\nINSERT INTO [ssh] VALUES(NULL,"sdf5.jpg",2);"
link(dbHandle,8882193:Var2,[])
}
Add(IndexToChanel,7278304,294,126)
{
link(onEvent1,13479172:doExec,[])
}
Add(GlobalVar,5634017,119,126)
{
Name="dH"
link(onValue,7484858:doEvent1,[])
}
Add(GetDataEx,1135469,252,110)
{
Angle=3
link(Data,5634017:Var,[(156,115)(156,152)(125,152)])
}
Add(Hub,7484858,168,126)
{
OutCount=3
link(onEvent1,1636882:doExec,[])
link(onEvent2,2289830:doQuery,[(217,139)(217,132)])
link(onEvent3,6226590:doQuery,[(192,146)(192,188)])
}
Add(SQLite_Query,3894306,574,210)
{
link(onQuery,13597979:doAdd,[])
link(dbHandle,13001970:Var3,[(580,115)])
}
Add(SQLite_Query,6226590,203,182)
{
SQL="SELECT name, id from servers;"
link(onQuery,8730412:doAdd,[])
link(dbHandle,12555659:Var1,[(209,166)])
}
Add(SQLite_Query,1073998,392,196)
{
link(onQuery,202778:doAdd,[])
link(dbHandle,12555659:Var2,[])
}
Add(GetDataEx,8882193,343,110)
{
Angle=3
link(Data,1135469:Var3,[])
}
Add(GetDataEx,2872961,392,110)
{
Angle=3
link(Data,8882193:Var3,[])
}
Add(SQLite_Query,12640233,560,266)
{
link(onQuery,6230144:doEnum,[])
link(dbHandle,13001970:Var2,[])
}
Add(GetDataEx,13001970,560,110)
{
Angle=3
link(Data,2872961:Var3,[])
}
Add(FormatStr,15318066,448,266)
{
Mask="SELECT "Имя сообщения", "Имя файла: "||name FROM files WHERE id=%2;\r\nSELECT "Скриншоты:";\r\nSELECT "http://"||"%1"||"/"||name FROM ssh WHERE f_id=%2;\r\nSELECT "1280x720 259 mp4 "||datetime('now'),"-----------------";"
link(onFString,12640233:doQuery,[])
link(Str1,8730412:String,[(454,254)(265,254)])
link(Str2,14509082:Var2,[])
}
Add(GetDataEx,12555659,392,161)
{
link(Data,2872961:Var2,[])
}

карма: 24
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0