Вверх ↑
Этот топик читают: Гость
Ответов: 7
Рейтинг: 0
#1: 2020-08-05 07:08:19 ЛС | профиль | цитата
Здравствуйте. Как сделать так, чтобы картинка сохранялась в фоновом режиме без диалогового окна в заданную директорию, с заданным именем?
Add(MainForm,2905288,7,0)
{
Width=720
Height=292
Caption="Autoscreenshoter"
link(onCreate,11502743:doStartHotKey,[])
}
Add(GHotKey,11502743,56,14)
{
Key=44
link(onEventHotKey,1079835:doCapture,[])
}
Add(Image,13086423,231,14)
{
Width=700
Height=225
}
Add(ScreenShort,1079835,105,14)
{
link(onCapture,9329280:doCopy,[])
}
Add(Img_Copy,9329280,154,14)
{
X=879
Y=511
Width=366
Height=103
link(onCopy,10277054:doEvent1,[])
}
Add(Edit,10982621,112,112)
{
Left=165
Top=225
Width=380
Font=[MS Sans Serif,4,0,0,1]
Text="C:\Autoscreenshoter"
}
Add(Label,819873,7,35)
{
Top=225
Width=161
Height=20
Caption="Директория сохранения"
}
Add(Edit,4778298,161,63)
{
Left=650
Top=225
Text=""
}
Add(Label,13812494,7,42)
{
Left=545
Top=225
Width=102
Height=20
Caption="Кол-во файлов"
}
Add(LineBreak,13295472,112,154)
{
Caption="Directory"
Type=1
link(Data,10982621:Text,[])
Primary=[11647604,189,-133]
}
Add(LineBreak,3832416,161,126)
{
Caption="FileName"
Type=1
link(Data,2017639:Var2,[])
Primary=[1721872,154,-91]
}
Add(LineBreak,5202593,42,63)
{
Caption="onSave"
link(Out,13494413:doOperation,[])
Primary=[13387413,399,0]
}
Add(Math,13494413,112,63)
{
Op1=1
link(onResult,4778298:doText,[])
link(Op2,2017639:Var1,[(125,51)(145,51)(145,110)])
}
Add(GetDataEx,2017639,161,105)
{
link(Data,4778298:Text,[])
}
Add(Hub,10277054,203,14)
{
link(onEvent1,13086423:doLoad,[])
link(onEvent2,13831640:In,[(224,27)(224,55)])
}
Add(LineBreak,3716660,231,63)
{
Caption="doSave"
link(Out,13387413:In,[])
Primary=[13831640,0,-14]
}
Add(Shape,13772770,301,56)
{
Width=123
Text="Недостающий элемент"
}


Редактировалось 1 раз(а), последний 2020-08-05 07:13:04
карма: 0

0
Ответов: 8894
Рейтинг: 823
#2: 2020-08-05 10:26:15 ЛС | профиль | цитата
Пример


Add(MainForm,2905288,322,147)
{
Width=391
Height=195
Caption="Autoscreenshoter"
}
Add(GHotKey,11502743,322,105)
{
Key=44
}
Add(Image,13086423,546,105)
{
Width=366
Height=103
}
Add(ScreenShort,1079835,406,105)
{
link(onCapture,9329280:doCopy,[])
}
Add(Img_Copy,9329280,455,105)
{
X=879
Y=511
Width=366
Height=103
link(onCopy,10277054:doEvent1,[])
}
Add(Edit,10982621,476,154)
{
Left=85
Top=115
Width=200
Font=[MS Sans Serif,4,0,0,1]
Text="C:\Autoscreenshoter"
}
Add(Label,819873,322,189)
{
Left=45
Top=115
Width=28
Height=17
Caption="Путь"
}
Add(Edit,4778298,392,154)
{
Left=310
Top=115
Text="2"
DataType=2
}
Add(Label,13812494,322,196)
{
Left=290
Top=115
Width=15
Height=17
Caption="№"
}
Add(Hub,10277054,504,105)
{
link(onEvent1,13086423:doLoad,[])
link(onEvent2,3466615:doOperation,[(529,118)(529,146)(368,146)(368,202)])
}
Add(Button,9117620,364,105)
{
Left=5
Top=115
Width=35
Caption="Scr"
link(onClick,1079835:doCapture,[])
}
Add(PictureStream,4173069,539,196)
{
link(Bitmap,13086423:ImageBitmap,[])
}
Add(FormatStr,12378737,476,203)
{
Mask="%1\MyScr%2.jpg"
link(onFString,4173069:doSave,[])
link(Str1,10982621:Text,[])
}
Add(Hub,6604123,441,196)
{
link(onEvent1,4778298:doText,[(466,202)(466,181)(382,181)(382,160)])
link(onEvent2,12378737:doString,[])
}
Add(Math,3466615,392,196)
{
Op2=1
ResultType=0
link(onResult,6604123:doEvent1,[])
link(Op1,4778298:Text,[])
}

карма: 19

0
Ответов: 263
Рейтинг: 18
#3: 2020-08-05 10:35:17 ЛС | профиль | цитата
Еще пример


Add(MainForm,2905288,196,224)
{
Width=428
Height=336
Caption="Autoscreenshoter"
link(onCreate,11502743:doStartHotKey,[])
}
Add(GHotKey,11502743,273,238)
{
Key=44
link(onEventHotKey,15281471:doEvent1,[])
}
Add(Label,13812494,539,83)
{
Left=305
Top=10
Width=82
Caption="Кол-во файлов"
}
Add(Edit,9623043,434,182)
{
Left=40
Top=5
Width=220
Text="C:\Screen"
}
Add(Button,607278,273,189)
{
Left=265
Top=5
Width=25
Caption="..."
link(onClick,16754600:doBrowse,[])
}
Add(Browse,16754600,336,189)
{
link(onBrowse,9623043:doText2,[])
}
Add(Monitors,8554995,637,238)
{
Monitor=-1
link(onScreenShot,6077580:doLoad,[])
}
Add(Image,6077580,693,238)
{
Left=5
Top=55
Width=400
Height=235
}
Add(Hub,15281471,336,238)
{
OutCount=5
link(onEvent1,8554995:doScreenShotMonitor,[])
link(onEvent2,6255423:doExists,[(413,251)(413,314)])
link(onEvent3,10206432:doOperation,[(392,258)(392,349)])
link(onEvent4,174760:doString,[(378,265)(378,419)])
link(onEvent5,5995516:doSave,[(364,272)(364,489)])
}
Add(DirTools,6255423,434,287)
{
Point(doExists)
link(onOK,15941078:doEvent,[])
link(Source,16600904:Var2,[])
}
Add(IndexToChanel,15941078,490,287)
{
Count=1
link(onEvent1,13148587:doDir,[])
}
Add(Dir,13148587,546,287)
{
Point(Dir)
link(Dir,12012352:Var2,[])
}
Add(GetDataEx,16600904,434,259)
{
link(Data,9623043:Text,[])
}
Add(Label,12433048,427,85)
{
Left=5
Top=7
Width=28
Height=17
Caption="Путь"
}
Add(Label,7502886,483,84)
{
Left=5
Top=33
Width=26
Height=17
Caption="Имя"
}
Add(Edit,11324702,616,182)
{
Left=40
Top=30
Width=220
Text="Screen"
}
Add(PictureStream,5995516,686,476)
{
link(FileName,174760:FString,[(692,460)(615,460)])
link(Bitmap,6077580:ImageBitmap,[])
}
Add(Memory,424037,497,343)
{
Default=Integer(0)
link(onData,7272098:doText,[])
}
Add(Math,10206432,434,343)
{
Op2=1
link(onResult,424037:doValue,[])
link(Op1,424037:Value,[(440,331)(472,331)(472,387)(503,387)])
}
Add(Label,7272098,553,343)
{
Left=305
Top=30
Width=70
Height=20
Font=[MS Sans Serif,12,1,0,1]
Caption="0"
AutoSize=1
Alignment=2
}
Add(FormatStr,174760,609,413)
{
DataCount=3
Mask="%1\%2%3.bmp"
Point(FString)
link(Str1,12012352:Var3,[(615,264)])
link(Str2,11324702:Text,[])
link(Str3,6065464:FormatTime,[(629,394)(650,394)])
}
Add(GetDataEx,12012352,546,259)
{
Angle=3
link(Data,16600904:Var3,[])
}
Add(Time,6065464,644,343)
{
Format="Y-M-D_h-m-s"
}

карма: 3

0
Ответов: 7
Рейтинг: 0
#4: 2020-08-05 12:41:04 ЛС | профиль | цитата
Леонид писал(а):
Пример


Add(MainForm,2905288,322,147)
{
Width=391
Height=195
Caption="Autoscreenshoter"
}
Add(GHotKey,11502743,322,105)
{
Key=44
}
Add(Image,13086423,546,105)
{
Width=366
Height=103
}
Add(ScreenShort,1079835,406,105)
{
link(onCapture,9329280:doCopy,[])
}
Add(Img_Copy,9329280,455,105)
{
X=879
Y=511
Width=366
Height=103
link(onCopy,10277054:doEvent1,[])
}
Add(Edit,10982621,476,154)
{
Left=85
Top=115
Width=200
Font=[MS Sans Serif,4,0,0,1]
Text="C:\Autoscreenshoter"
}
Add(Label,819873,322,189)
{
Left=45
Top=115
Width=28
Height=17
Caption="Путь"
}
Add(Edit,4778298,392,154)
{
Left=310
Top=115
Text="2"
DataType=2
}
Add(Label,13812494,322,196)
{
Left=290
Top=115
Width=15
Height=17
Caption="№"
}
Add(Hub,10277054,504,105)
{
link(onEvent1,13086423:doLoad,[])
link(onEvent2,3466615:doOperation,[(529,118)(529,146)(368,146)(368,202)])
}
Add(Button,9117620,364,105)
{
Left=5
Top=115
Width=35
Caption="Scr"
link(onClick,1079835:doCapture,[])
}
Add(PictureStream,4173069,539,196)
{
link(Bitmap,13086423:ImageBitmap,[])
}
Add(FormatStr,12378737,476,203)
{
Mask="%1\MyScr%2.jpg"
link(onFString,4173069:doSave,[])
link(Str1,10982621:Text,[])
}
Add(Hub,6604123,441,196)
{
link(onEvent1,4778298:doText,[(466,202)(466,181)(382,181)(382,160)])
link(onEvent2,12378737:doString,[])
}
Add(Math,3466615,392,196)
{
Op2=1
ResultType=0
link(onResult,6604123:doEvent1,[])
link(Op1,4778298:Text,[])
}


fox-video писал(а):
Еще пример


Add(MainForm,2905288,196,224)
{
Width=428
Height=336
Caption="Autoscreenshoter"
link(onCreate,11502743:doStartHotKey,[])
}
Add(GHotKey,11502743,273,238)
{
Key=44
link(onEventHotKey,15281471:doEvent1,[])
}
Add(Label,13812494,539,83)
{
Left=305
Top=10
Width=82
Caption="Кол-во файлов"
}
Add(Edit,9623043,434,182)
{
Left=40
Top=5
Width=220
Text="C:\Screen"
}
Add(Button,607278,273,189)
{
Left=265
Top=5
Width=25
Caption="..."
link(onClick,16754600:doBrowse,[])
}
Add(Browse,16754600,336,189)
{
link(onBrowse,9623043:doText2,[])
}
Add(Monitors,8554995,637,238)
{
Monitor=-1
link(onScreenShot,6077580:doLoad,[])
}
Add(Image,6077580,693,238)
{
Left=5
Top=55
Width=400
Height=235
}
Add(Hub,15281471,336,238)
{
OutCount=5
link(onEvent1,8554995:doScreenShotMonitor,[])
link(onEvent2,6255423:doExists,[(413,251)(413,314)])
link(onEvent3,10206432:doOperation,[(392,258)(392,349)])
link(onEvent4,174760:doString,[(378,265)(378,419)])
link(onEvent5,5995516:doSave,[(364,272)(364,489)])
}
Add(DirTools,6255423,434,287)
{
Point(doExists)
link(onOK,15941078:doEvent,[])
link(Source,16600904:Var2,[])
}
Add(IndexToChanel,15941078,490,287)
{
Count=1
link(onEvent1,13148587:doDir,[])
}
Add(Dir,13148587,546,287)
{
Point(Dir)
link(Dir,12012352:Var2,[])
}
Add(GetDataEx,16600904,434,259)
{
link(Data,9623043:Text,[])
}
Add(Label,12433048,427,85)
{
Left=5
Top=7
Width=28
Height=17
Caption="Путь"
}
Add(Label,7502886,483,84)
{
Left=5
Top=33
Width=26
Height=17
Caption="Имя"
}
Add(Edit,11324702,616,182)
{
Left=40
Top=30
Width=220
Text="Screen"
}
Add(PictureStream,5995516,686,476)
{
link(FileName,174760:FString,[(692,460)(615,460)])
link(Bitmap,6077580:ImageBitmap,[])
}
Add(Memory,424037,497,343)
{
Default=Integer(0)
link(onData,7272098:doText,[])
}
Add(Math,10206432,434,343)
{
Op2=1
link(onResult,424037:doValue,[])
link(Op1,424037:Value,[(440,331)(472,331)(472,387)(503,387)])
}
Add(Label,7272098,553,343)
{
Left=305
Top=30
Width=70
Height=20
Font=[MS Sans Serif,12,1,0,1]
Caption="0"
AutoSize=1
Alignment=2
}
Add(FormatStr,174760,609,413)
{
DataCount=3
Mask="%1\%2%3.bmp"
Point(FString)
link(Str1,12012352:Var3,[(615,264)])
link(Str2,11324702:Text,[])
link(Str3,6065464:FormatTime,[(629,394)(650,394)])
}
Add(GetDataEx,12012352,546,259)
{
Angle=3
link(Data,16600904:Var3,[])
}
Add(Time,6065464,644,343)
{
Format="Y-M-D_h-m-s"
}

Благодарю!

Редактировалось 1 раз(а), последний 2020-08-05 12:41:58
карма: 0

0
4
Сообщение
...
Прикрепленные файлы
(файлы не залиты)