//----------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "vfw.h"         //双击Form后，在代码区先加入vfw头文件。      
//----------------------------------------------------------------------------
#pragma resource "*.dfm"
#pragma package(smart_init)
TForm1 *Form1;      //加入自定义变量。
HWND hWndC;
CAPDRIVERCAPS CapDrvCaps;
CAPSTATUS CapStatus;
//----------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent *Owner)
: TForm(Owner)
{
}
//----------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Table1->Open();
}
//----------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)    // 加入启动camere的程序。
{
  char szDeviceName[80];
  char szDeviceVersion[80];
  for (int wIndex=0;wIndex<10;wIndex++)
  {
    if (capGetDriverDescription(wIndex,szDeviceName,sizeof(szDeviceName),szDeviceVersion,sizeof(szDeviceVersion)))
        {
            Camera->Items->Add(szDeviceName);
        }
    }
    if(Camera->Items->Count>0)
        Camera->ItemIndex=0;
    else
    {
        ShowMessage("There is no camera!");
        Close();
    }

//检查视频是否处于实时捕获状态
  if(CapStatus.fLiveWindow==1)
  //CapStatus.fLiveWindow=1表明当前初频已处于实时捕获状态，否则CapStatus.fLiveWindow=0
  {
    ShowMessage("You needn't do it again！");
    return;
  }
  hWndC=capCreateCaptureWindow((LPSTR)"My Capture Window",WS_CHILD | WS_VISIBLE,0,0,160,120,(HWND)Panel2->Handle,Camera->ItemIndex+1);
  //连接设备：
  capDriverConnect(hWndC,0);
  capPreviewRate(hWndC,50); // rate, in milliseconds
  capPreview(hWndC,TRUE); // starts preview
  //获取视频驱动相关性能
  capDriverGetCaps(hWndC,&CapDrvCaps,sizeof(CAPDRIVERCAPS));
  //获取捕获窗口状态
  capGetStatus(hWndC,&CapStatus,sizeof(CAPSTATUS));
  SetWindowPos(hWndC,NULL,0,0,CapStatus.uiImageWidth,CapStatus.uiImageHeight,SWP_NOZORDER | SWP_NOMOVE);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
   if(hWndC)
  {
    capPreview(hWndC,FALSE);
    capDriverDisconnect(hWndC);
  }

}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)    //加入图像保存程序。
{
if(SavePictureDialog1->Execute())
capFileSaveDIB(hWndC,(SavePictureDialog1->FileName+".bmp").c_str());
}
//---------------------------------------------------------------------------

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Opt('MustDeclareVars', 1)

AutoPhoto()

Func AutoPhoto()
    Local $font,$msg,$Button_1,$radio1,$radio2,$radio3,$radio4,$isOldPhoto,$isCreatDate
  $isOldPhoto=True;
  $isCreatDate=True;
    GUICreate("图片自动归档程序V1.1--Made By 蓝色天空",500,200) ; will create a dialog box that when displayed is centered
    GUISetState(@SW_SHOW) ; will display an empty dialog box
  GUICtrlCreateLabel("这是一个图片自动归档程序，请把该软件放到图片的同一目录下。", -1, 10) ; next line
  GUICtrlCreateLabel("选择是否保留原图片和归档日期的方式后，点击按钮后图片即可自动归档", -1, 30) ; next line
  $radio1 = GUICtrlCreateRadio("保留原图片", 10, 60, 100, 20)
    $radio2 = GUICtrlCreateRadio("不保留原图片", 150, 60, 100, 20)
  GUIStartGroup()
    GUICtrlSetState($radio1, $GUI_CHECKED)
  $radio3 = GUICtrlCreateRadio("按创建日期归档", 10, 80, 100, 20)
    $radio4 = GUICtrlCreateRadio("按修改日期归档", 150, 80, 100, 20)
  GUIStartGroup()
  GUICtrlSetState($radio3, $GUI_CHECKED)
  $Button_1 = GUICtrlCreateButton("开始自动归档", 10, 120, 100)
    ; Run the GUI until the dialog is closed  
    While 1
        $msg = GUIGetMsg()
    Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
      Case $msg = $radio1 And BitAND(GUICtrlRead($radio1), $GUI_CHECKED) = $GUI_CHECKED
                $isOldPhoto=True;
            Case $msg = $radio2 And BitAND(GUICtrlRead($radio2), $GUI_CHECKED) = $GUI_CHECKED
                $isOldPhoto=False;
      Case $msg = $radio3 And BitAND(GUICtrlRead($radio3), $GUI_CHECKED) = $GUI_CHECKED
                $isCreatDate=True;
            Case $msg = $radio4 And BitAND(GUICtrlRead($radio4), $GUI_CHECKED) = $GUI_CHECKED
                $isCreatDate=False;        
            Case $msg = $Button_1
                doAutoPhoto($isOldPhoto,$isCreatDate); Will Run/Open Notepad
        EndSelect
    WEnd
    GUIDelete()
EndFunc   ;==>Example1


Func doAutoPhoto($isOldPhoto,$isCreatDate)
  Local $search,$file,$t,$yyyymd
  ; 显示当前目录中所有文件的文件名
$search = FileFindFirstFile("*.jpg")

; 检查搜索是否成功
If $search = -1 Then
  MsgBox(0, "错误", "该目录下已经没有jpg图片文件")
  Exit
EndIf

While 1
  $file = FileFindNextFile($search)
  If $isCreatDate=True Then
  $t = FileGetTime($file, 1)
  EndIf
  If $isCreatDate=False Then
  $t = FileGetTime($file, 0)
  EndIf
  If Not @error Then
    $yyyymd = $t[0] & "年" & $t[1] & "月" & $t[2] & "日"
    ;MsgBox(0, $file+"的创建日期:", $yyyymd)
    If $isOldPhoto=True Then
    FileCopy($file, @ScriptDir & "\" & $yyyymd & "\", 8)
    EndIf
    If $isOldPhoto=False Then
    FileMove($file, @ScriptDir & "\" & $yyyymd & "\", 8)
    EndIf
    ;MsgBox(4096, "文件:", @ScriptDir & "\" & $yyyymd & "\")
  EndIf
  If @error Then ExitLoop
  ;MsgBox(4096, "文件:", $file)
WEnd
FileClose($search)
MsgBox(64, "海蓝", "恭喜,所有图片归档完毕")
EndFunc

<?xml version="1.0"?>      
<!DOCTYPE cross-domain-policy  SYSTEM "http://www.macromedia.com/xml/dtds/cross-domain-policy.dtd">    
<cross-domain-policy>    
     <allow-access-from domain="*" />    
</cross-domain-policy>  

//-----------------website.mxml--------------------------------------------------------

<?xml version="1.0" encoding="utf-8"?>
<mx:Application xmlns:mx="http://www.adobe.com/2006/mxml" layout="absolute" width="264" height="228" >
<mx:scrīpt source="website.as" />
<mx:HTTPService id="checklogin" url="http://localhost/flex.php" method="post" result="loginResult(event)" fault="err(event)" />
    <mx:TextInput x="52" y="55"/>
<mx:Button x="95" y="85" label="login" id="login" click="initApp()" />

</mx:Application>



//----------website.as脚本内容-------------------------------------------------------

import mx.rpc.events.ResultEvent;//
import mx.rpc.events.FaultEvent;
import mx.controls.Alert;

//点击login按钮时候响应的事件：调用id为checklogin的httpservice的send函数发送post请求给flex.php
public function initApp():void
{
checklogin.send();
}

//通过一个对话框显示post请求返回来的结果。
public function loginResult(evt:ResultEvent):void
{
    Alert.show("result: "+evt.result.toString());
}


//通过一个对话框显示post请求出错后返回来的结果。
public function err(evt:FaultEvent):void
{
   Alert.show("error: "+evt.fault.toString());
}

//flex.php:写点代码随便输出一句话就可以了。



//比较简单，主要用来明白怎么在flex中使用httpservice来与php交互

<friends_getFriends_response list="true" xsi:schemaLocation="http://api.xiaonei.com/1.0/ http://api.xiaonei.com/1.0/xiaonei.xsd" xmlns="http://api.xiaonei.com/1.0/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
  <friend>
    <id>64238946</id>
    <name>李正华</name>
    <headurl>http://hd15.xiaonei.com/photos/hd15/20080607/14/27/head_3586g107.jpg</headurl>
  </friend>
  <friend>
    <id>229954215</id>
    <name>郭云超</name>
    <headurl>http://hd34.xiaonei.com/photos/hd34/20080330/22/16/head_1427e169.jpg</headurl>
  </friend>
  <friend>
    <id>238684033</id>
    <name>吴博</name>
    <headurl>http://hd43.xiaonei.com/photos/hd43/20080509/23/04/head_3488d107.jpg</headurl>
  </friend>
  <friend>
    <id>238935464</id>
    <name>李骁?ROMA</name>
    <headurl>http://hd15.xiaonei.com/photos/hd15/20080616/00/05/head_8241m169.jpg</headurl>
  </friend>
  <friend>
    <id>239796833</id>
    <name>刘洋</name>
    <headurl>http://hd13.xiaonei.com/photos/hd13/20080127/13/31/head_1857l107.jpg</headurl>
  </friend>
  <friend>
    <id>239972528</id>
    <name>可臣</name>
    <headurl>http://hd34.xiaonei.com/photos/hd34/20080502/11/59/head_1989a169.jpg</headurl>
  </friend>
</friends_getFriends_response>

<mx:Script>
    import flash.external.*;
    public function myFunc():Number {
        return 42;
    }
    public function initApp():void {
        ExternalInterface.addCallback("myFlexFunction",myFunc);
    }
</mx:Script>

import flash.display.BitmapData;
var bmpd:BitmapData = new BitmapData(myChart.width,myChart.height);
bmpd.draw(myChart);

import mx.graphics.codec.JPEGEncoder;
//create a new instance of the encoder, and set the jpeg compression level from 0 to 100
var jpgenc:JPEGEncoder = new JPEGEncoder(80);
//encode the bitmapdata object and keep the encoded ByteArray
var imgByteArray:ByteArray = jpgenc.encode(bmpd);

import mx.graphics.codec.JPEGEncoder;
//create a new instance of the encoder
var pngenc:PNGEncoder = new PNGEncoder();
//encode the bitmapdata object and keep the encoded ByteArray
var imgByteArray:ByteArray = pngenc.encode(bmpd);

//gets a reference to a new empty jpg image file in user desktop
var fl:File = File.desktopDirectory.resolvePath(”snapshot.jpg”);

//gets a reference to a new empty jpg image file in user desktop
var fl:File = File.desktopDirectory.resolvePath(”snapshot.png”);

//Use a FileStream to save the bytearray as bytes to the new file
var fs:FileStream = new FileStream();
try{
//open file in write mode
fs.open(fl,FileMode.WRITE);
//write bytes from the byte array
fs.writeBytes(imgByteArray);
//close the file
fs.close();
}catch(e:Error){
trace(e.message);
}

<?xml version=”1.0″ encoding=”utf-8″?>
    <mx:WindowedApplication xmlns:mx=”http://www.adobe.com/2006/mxml”>//定义了WindowedApplication容器
        <mx:HDividedBox>//水平分隔控件
        <mx:FileSystemTree id=”tree” //注意id后面的事件处理中要引用
            width=”200″ height=”100%”
            directory=”{new File(’C:\\’)}” //设置默认的目录
            enumerationMode=”directoriesOnly” //例举模式设为只显示目录
            change=”dataGrid.directory = File(tree.selectedItem);”/> //当选择的目录发生变化时，设置dataGrid的当前目录，为tree的当前选择的目录
        <mx:FileSystemDataGrid id=”dataGrid” //注意id前面的事件处理中引用
            width=”100%” height=”100%”
            directory=”{new File(’C:\\’)}”/>
        </mx:HDividedBox>
    </mx:WindowedApplication>

<?xml version="1.0" encoding="utf-8"?>

<mx:Canvas xmlns:mx="http://www.adobe.com/2006/mxml" width="400" height="300">

<mx:Script>

<![CDATA[

private var title:String;

private var bNameChanged:Boolean;



public function set Title(value):void

{

if(title != value)

{

title = value;

bNameChanged = true;

this.invalidateProperties();

}

}

override protected function commitProperties():void

{

super.commitProperties();

if(bNameChanged)

{

bNameChanged = false;

lblName.text = title;

}

}

]]>

</mx:Script>

<mx:Label id="lblName" />

</mx:Canvas>

<?xml version="1.0" encoding="utf-8"?>

<mx:Application xmlns:mx="http://www.adobe.com/2006/mxml" layout="absolute" xmlns:local="*" >

<mx:TabNavigator>

<local:TestComponent id="test1" Title="test 1" />

<local:TestComponent id="test2" Title="test 2" />

</mx:TabNavigator>

</mx:Application>