Чем не устраивает точка doSaveDIB?, сжать и изменить размер можно потом, или на ходу, открывая и изменяя только что записанный кадр.
------------ Дoбавленo в 00.58:
Как-то так:
Add(MainForm,2953706,497,63)
{
Point(Handle)
link(onCreate,10066069:doConnect,[(536,83)(536,104)(473,104)(473,132)])
}
Add(WebCam,10066069,483,126)
{
RefreshRate=200
FileDIB="WebCam.bmp"
FileVideo="WebCam.avi"
Point(doSaveDIB)
link(onConnect,14181287:doTimer,[(542,132)(542,46)(281,46)(281,139)])
link(FileDIB,9986682:Var3,[(489,117)(468,117)(468,180)])
link(WinHandle,2953706:Handle,[])
}
Add(Timer,14181287,294,133)
{
Interval=200
Enable=1
link(onTimer,13594787:doNext,[])
}
Add(Hub,5274150,546,259)
{
OutCount=3
link(onEvent1,135645:doLoadFromStream,[])
link(onEvent2,135645:doLoadFromBitmap,[(578,272)(578,258)])
link(onEvent3,135645:doSave,[(571,279)(571,251)])
}
Add(Resize,1060679,497,259)
{
Width=320
Height=240
Point(Result)
link(onResult,5274150:doEvent1,[])
link(Bitmap,2379187:Bitmap,[])
}
Add(Hub,10355637,385,133)
{
OutCount=3
link(onEvent1,2574374:doString,[(410,139)(410,97)])
link(onEvent2,1239902:doString,[])
link(onEvent3,15333943:doLoad,[(410,153)(410,216)])
}
Add(Hub,16467103,462,210)
{
link(onEvent1,2379187:doLoad,[])
link(onEvent2,1060679:doResize,[(487,223)(487,265)])
}
Add(Counter,13594787,343,133)
{
link(onNext,10355637:doEvent1,[])
}
Add(FormatStr,1239902,420,140)
{
DataCount=1
Mask="C:A_WinGamesHiAsmhiasm_4,04b185WebCamerpic0.bmp"
Point(FString)
link(onFString,10066069:doSaveDIB,[])
}
Add(PictureStream,15333943,420,210)
{
link(onLoad,16467103:doEvent1,[])
link(FileName,9986682:Var2,[])
}
Add(GetDataEx,9986682,420,175)
{
link(Data,1239902:FString,[])
}
Add(Jpeg,135645,595,238)
{
Quality=22
Point(doLoadFromBitmap)
Point(doLoadFromStream)
Point(FileName)
link(FileName,2574374:FString,[(601,187)(461,187)(461,131)(426,131)])
}
Add(Bitmap,2379187,497,210)
{
}
Add(FormatStr,2574374,420,91)
{
DataCount=1
Mask="C:A_WinGamesHiAsmhiasm_4,04b185WebCamer2pic%1.jpg"
Point(FString)
}