کار با کتابخانه acl

[narvan 1]

سلام.من یه برنامه با آی سی ال نوشتم برای دوربین.با دکمه عکس برداری فقط یه بار میشه عکس گرفت . و با دوبار ه فشار دادن دکمه خطا میده.مشکل چیه؟

با این کتابخانه میشه یه برنامه خوب برای مارکت ها نوشت؟ کسی سورسی چیزی ازش داره؟

[AMiN.M7892 1,029]

سلام دوست عزیز،

لطفا کدهاتون رو قرار بدید تا بررسی کنیم.

[narvan 1]

اگه بشه کد های تشخیص چهره و تعداد چهره هم بگید ممنون میشم

 

 

#Region  Project Attributes 

    #ApplicationLabel: B4A Example
    #VersionCode: 1
    #VersionName: 
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    
End Sub

Sub Globals
    
    Private pnl1 As Panel
    Private pnl2 As Panel
    
    Dim c1 As AdvancedCamera
    
    
    
End Sub

Sub Activity_Create(FirstTime As Boolean)
    
    Activity.LoadLayout("frm1")
    
    

End Sub

Sub Activity_Resume
    c1.Initialize(pnl1,"Camera")
    
End Sub

Sub Camera_Ready (Success As Boolean)

    If Success = True Then
      c1.StartPreview
     
    Else
      Msgbox("Error","alert")
    End If
     
End Sub         

Sub btnTakePicture_Click
    c1.TakePicture
End Sub
Sub camera_PictureTaken (Data() As Byte)

      Dim output As OutputStream
    output = File.OpenOutput(File.DirInternal,"a.png",False)
    output.WriteBytes(Data,0,Data.Length)
    output.Close
      ToastMessageShow("Take Picture.",False)
    pnl2.SetBackgroundImage(LoadBitmap(File.DirInternal,"a.png"))  
End Sub
Sub btnOn_Click
    c1.FlashOn
End Sub
Sub btnOff_Click
    c1.FlashOff
End Sub
Sub btnFrontCamera_Click
    c1.CameraFront
End Sub
Sub btnE1_Click
    c1.ColourEffect = "NEGATIVE"
End Sub
Sub btnE2_Click
    c1.ColourEffect = "MONO"
End Sub