var

  testCombo : TClComboBox;

  MyForm : TclForm;

  QMemList:TclJSonQuery;

  QrAppType:Integer;  //0:qrgenerator 1:Yonetici 2:Normal User

  //YÖNETİCİ EKRANI

  mainPnl : TclProPanel;

  timeContainer : TclLayout;

  CaptionLbl,timeCaptionLbl,timeLbl :TClProLabel;

  QRGen : TClQRCodeGenerator;

  //KULLANICI EKRANI

  descriptionLbl : TClProLabel;

  BtnReadQrCode:TclProButton;

  ReadQrEdt : TclEdit;

  GetTimer: TClTimer;

  yoneticiTakip : Integer;

  clQuery:TCLJSONQuery;

  qryStr:String;

  //WIN EKRANI

  refreshBtn : TClProButton;

  refreshLyt : TclLayout;

  memberListView : TClProListView;

  memberDesignerPanel :TClProListViewDesignerPanel;

  memberName,memberValueDate : TClProLabel;

  jsonStr:string;

voidPostJSON;

 var

   clomosyQ1:TCLJSONQuery;

   qryTestStr : String;

  clQueryTest : TCLJSONQuery;

 {

     try

                qryTestStr='SELECT TOP 1 * FROMPrgView_tblProjectThreads where CAST(Thread_Value_Text AS nvarchar(max))=''T2KJE3BJR3'' ORDER BY Rec_Date DESC ';

                clQueryTest =Clomosy.DBCloudSQLSelectWith(qryTestStr);

               ShowMessage(clQueryTest.GetJSONString);

              except

              ShowMessage('İnternetbağlantınızı kontrol ediniz...' + #13 + 'Exception Class:'+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);

              }

}

voidComboSelected;

var

  SelectedValue : Integer;

{

  if (testCombo.ItemIndex == -1)

  {

    ShowMessage('Proje listesinde üye yok!');

  } else

  {

    if(testCombo.GetValueIndex(testCombo.ItemIndex) == '00')

    {

      ShowMessage('Lütfen bir ad seçiniz.');

    }

  }

}

voidaddComboBox;

{

  try

    QMemList = TCLJSONQuery.Create(nil);

    QMemList =Clomosy.DBCloudQueryWith(ftMembers,'','ISNULL(PMembers.Rec_Deleted,0)=0');

    testCombo.AddItem('AdınızıSeçiniz..','00');

    with QMemList do

     {

       if (Found)

       {

         First;

         while (not EOF)

         {

           testCombo.AddItem(FieldByName('Member_Name').AsString,FieldByName('Member_GUID').AsString);

           MyForm.AddNewEvent(testCombo,tbeOnChange,'ComboSelected');

            Next;

         }

       }

     }

  except

    ShowMessage('İnternet bağlantınızı kontrolediniz...' + #13 + 'Exception Class: '+LastExceptionClassName+' ExceptionMessage: '+LastExceptionMessage);

  }

}

  void BtnNewQrCodeClick;

  {

    QRGen.Text =  FormatDateTime('hhnn', Now);

    timeLbl.Text = FormatDateTime('hh', Now)+':' +FormatDateTime('nn', Now);

  }

  void SaveRecordThread;

  {

    if (ReadQrEdt.Text ==FormatDateTime('hhnn', Now))

    {

       if (yoneticiTakip == 1){

         if(testCombo.GetValueIndex(testCombo.ItemIndex) == '00'){

            ShowMessage('Lütfen bir kullanıcıseçiniz.');

          }else{

          ShowMessage('Yönetici hesabı : kayıtgerçekleşti.');

          qryStr='SELECT TOP 1 * FROMPrgView_tblProjectThreads where CAST(Thread_Value_Text AS nvarchar(max))='+QuotedStr(testCombo.GetValueIndex(testCombo.ItemIndex))+' ORDER BY Rec_DateDESC '; // TOP => İLK KAYIT GELİYOR  ORDER BY Rec_Date DESC LIMIT 1

          try

            clQuery =Clomosy.DBCloudSQLSelectWith(qryStr);

            with clQuery do

            {

              if (Found)

              {

               Clomosy.DBCloudPostJSON(ftThreads,'[{"Thread_GUID":"'+FieldByName('Thread_GUID').AsString+'","Thread_Value_Str":"'+testCombo.Items[testCombo.ItemIndex]+'|'+FormatDateTime('yyyy-mm-dd/hh:nn',Now)+'","Thread_Quantity":1,"Thread_Value_Text":"'+testCombo.GetValueIndex(testCombo.ItemIndex)+'"}]');//,"Member_Name":"'+testCombo.Items[testCombo.ItemIndex]+'","Thread_Member_GUID":"'+testCombo.GetValueIndex(testCombo.ItemIndex)+'","Thread_RecMember_GUID":"'+testCombo.GetValueIndex(testCombo.ItemIndex)+'","Thread_RecUpMember_GUID":"'+testCombo.GetValueIndex(testCombo.ItemIndex)+'"

              }else{

               Clomosy.DBCloudPostJSON(ftThreads,'[{"Thread_Value_Str":"'+testCombo.Items[testCombo.ItemIndex]+'|'+FormatDateTime('yyyy-mm-dd/hh:nn',Now)+'","Thread_Quantity":1,"Thread_Value_Text":"'+testCombo.GetValueIndex(testCombo.ItemIndex)+'"}]');//,"Member_Name":"'+testCombo.Items[testCombo.ItemIndex]+'","Thread_Member_GUID":"'+testCombo.GetValueIndex(testCombo.ItemIndex)+'","Thread_RecMember_GUID":"'+testCombo.GetValueIndex(testCombo.ItemIndex)+'","Thread_RecUpMember_GUID":"'+testCombo.GetValueIndex(testCombo.ItemIndex)+'"

              }

            }

          except

            ShowMessage('İnternet bağlantınızıkontrol ediniz...' + #13 + 'Exception Class: '+LastExceptionClassName+'Exception Message: '+LastExceptionMessage);

          }

          }

       }else{

         Clomosy.DBCloudPostJSON(ftThreads,'[{"Thread_Value_Str":"'+Clomosy.AppUserDisplayName+'|'+FormatDateTime('yyyy-mm-dd/hh:nn',Now)+'","Thread_Quantity":1,"Thread_Value_Text":"'+Clomosy.AppUserGUID+'"}]');//Thread_Member_GUID

          BtnReadQrCode.Text ='Okutuldu...';

          descriptionLbl.Text = 'Qr kod okutmaişlemi başarılı. Windows ekranına giriş saatiniz eklenmiştir.';

         clComponent.SetupComponent(descriptionLbl,'{"TextColor":"#12b021"}');

          BtnReadQrCode.Enabled = False;

       }

    } else

      ShowMessage('Yanlış! Lütfen, tekrardeneyiniz..');

  }

  void BtnReadQrCodeClick;

  {

   MyForm.CallBarcodeReaderWithScript(ReadQrEdt,'SaveRecordThread');//runsscript after read qr code

  }

  void timerShow;

  {

    BtnNewQrCodeClick;

  }

voidadminScreen;

  {

      QRGen=MyForm.AddNewQRCodeGenerator(mainPnl,'QRGen','Merhaba Dünya');

      QRGen.Height = 200;

      QRGen.Width = 200;

      QRGen.Align = alCenter;

      QRGen.Visible = False;

      timeContainer =MyForm.AddNewLayout(mainPnl,'timeContainer');

      timeContainer.Align=AlTop;

      timeContainer.Height = 50;

      timeContainer.Margins.Left  = 20;

      timeContainer.Margins.Top = 50;

      timeCaptionLbl =MyForm.AddNewProLabel(timeContainer,'timeCaptionLbl','SAAT > ');

     clComponent.SetupComponent(timeCaptionLbl,'{"Align" :"MostLeft","Width":90,"TextColor":"#90646D",

     "TextSize":26,"TextVerticalAlign":"center","TextHorizontalAlign":"left","TextBold":"yes"}');

       timeLbl =MyForm.AddNewProLabel(timeContainer,'timeLbl','--:--');

     clComponent.SetupComponent(timeLbl,'{"Align" :"Left","Width":90,"TextColor":"#90646D","MarginLeft":15,

     "TextSize":26,"TextVerticalAlign":"center","TextHorizontalAlign":"left","TextBold":"yes"}');

    if (Clomosy.AppUserGUID == 'E517JC367S')//QR KOD ÜRETİLECEK ALANIN BULUNDUĞU YÖNETİCİ EKRANI

    {

      testCombo =MyForm.AddNewComboBox(mainPnl,'testCombo');

      testCombo.Align = alTop;

      testCombo.Width = 150;

      testCombo.Margins.Top=10;

      testCombo.Margins.Left =50;

      testCombo.Margins.Right =50;

      addComboBox;

      yoneticiTakip = 1;

      BtnReadQrCode.Visible = True;

    }else

      QRGen.Visible = True;

    BtnNewQrCodeClick;

    GetTimer.Enabled  = True;

   MyForm.AddNewEvent(GetTimer,tbeOnTimer,'timerShow');

  }

  void usersScrenn;

  {

    descriptionLbl =MyForm.AddNewProLabel(mainPnl,'descriptionLbl','QR Kod tarama için aşağıdakibutona basmalısınız. Ardından qr kodu taratın...');

   clComponent.SetupComponent(descriptionLbl,'{"Align" :"Top","MarginTop":50,"MarginLeft":20,"MarginRight":20,"Height":10,"TextColor":"#3B599C","TextSize":18,"TextVerticalAlign":"center",

   "TextHorizontalAlign":"center","AutoSize":"Vertical","BackgroundColor":"null"}');

    BtnReadQrCode.Visible = True;

  }

voidrefreshMemberTable;

var

  qryPlayersData:TCLJSONQuery;

{

    try

      qryPlayersData =TCLJSONQuery.Create(nil);

      qryPlayersData =Clomosy.ClDataSetFromJSON(jsonStr);

      with qryPlayersData do

       {

      memberListView.clLoadProListViewDataFromDataset(qryPlayersData);

       }

    except

      ShowMessage('İnternet bağlantınızıkontrol ediniz...' + #13 + 'Exception Class: '+LastExceptionClassName+'refreshMemberTable Exception Message: '+LastExceptionMessage);

    }

}

voidAddDataToListview;

var

  membersListQuery: TClJSONQuery;

 qryTestStr,originalDateString,formattedDateString: String;

  clQueryTest: TCLJSONQuery;

  isFirstRecord: Boolean;

  originalDate: TclDateTime;

  list:TclStringList;

  str, membernameTxt,memberTimeTxt:String;

{

  jsonStr = '';

  jsonStr = '[';

  isFirstRecord = True;

  try

    membersListQuery =Clomosy.DBCloudQueryWith(ftMembers, '', 'ISNULL(PMembers.Rec_Deleted,0)=0');

    try

      with membersListQuery do

      {

        First;

        while (not Eof)

        {

          qryTestStr = 'SELECT TOP 1Thread_Value_Str as memberName, Thread_VAT_Value as memberValueDate FROMPrgView_tblProjectThreads where CAST(Thread_Value_Text AS nvarchar(max)) =' +QuotedStr(FieldByName('Member_GUID').AsString) + ' ORDER BY Rec_Date DESC ';

          clQueryTest =Clomosy.DBCloudSQLSelectWith(qryTestStr);

          try

            with clQueryTest do

            {

              if (Found)

              {

                // İlk kayıt için virgüleklenmemesi için kontrol

                if (not isFirstRecord)

                  jsonStr = jsonStr + ',';

                  str =FieldByName('memberName').AsString;

                  list = Clomosy.StringListNew;

                  List.StrictDelimiter =True;

                  List.Delimiter = '|';

                  List.DelimitedText = str;

                  membernameTxt =Clomosy.StringListItemString(List,0);

                  memberTimeTxt =Clomosy.StringListItemString(List,1);

                jsonStr = jsonStr +'{"memberName":"' + membernameTxt +'","memberValueDate":"' +memberTimeTxt+ '"}';//DateTimeToStr(FormatDateTime('yyyy-mm-dd hh:nn',StrToDateTime(FieldByName('memberValueDate').AsString)))

                isFirstRecord = False;

                str = '';

                List.Free;

              }

            }

          finally

            clQueryTest.Close;

            clQueryTest.Free;

          }

          Next;

        }

      }

    except

     ShowMessage('İnternet bağlantınızı kontrolediniz...' + #13 + 'Exception Class: '+LastExceptionClassName+'AddDataToListview Exception Message: '+LastExceptionMessage);

    }

  finally

    membersListQuery.Close;

    membersListQuery.Free;

  }

  jsonStr = jsonStr +']';

  refreshMemberTable;

}

 void CreateMembersNameAndDate;

 {

    memberName =MyForm.AddNewProLabel(memberDesignerPanel,'memberName','test');

   clComponent.SetupComponent(memberName,'{"MarginTop":10,"MarginLeft":10,"MarginBottom":10,"TextSize":18,"Width":60,"Align":"MostLeft"}');

   memberDesignerPanel.AddPanelObject(memberName,clCaption);

    memberName.Properties.AutoSize = True;

    memberValueDate =MyForm.AddNewProLabel(memberDesignerPanel,'memberValueDate','test');

   clComponent.SetupComponent(memberValueDate,'{"MarginTop":10,"MarginLeft":10,"MarginRight":10,"MarginBottom":10,"TextSize":18,

   "TextVerticalAlign":"center","TextHorizontalAlign":"center","Height":20,"Align": "MostRight","Width":60}');

   memberDesignerPanel.AddPanelObject(memberValueDate,clText);

    memberValueDate.Properties.AutoSize = True;

 }

  void CreateDesignerPanel;

 {

     memberDesignerPanel =MyForm.AddNewProListViewDesignerPanel(memberListView,'memberDesignerPanel');

    clComponent.SetupComponent(memberDesignerPanel,'{"Align":"Top","Height":70,"BackgroundColor":"#f5f1e9","BorderColor":"#3B599C","BorderWidth":2,"RoundHeight":20,"RoundWidth":20}');

    memberListView.SetDesignerPanel(memberDesignerPanel);

 }

  void CreateListView;

 {

    memberListView =MyForm.AddNewProListView(mainPnl,'memberListView');

    memberListView.Properties.ItemSpace = 10;

   clComponent.SetupComponent(memberListView,'{"Height" :150,"Align":"Client","MarginBottom":20,"MarginTop":20,"MarginRight":20,"MarginLeft":20,"ListType":"Cart","ItemColumnCount" :1,"ItemHeight" : 60,"ItemWidth":150,

   "BorderColor":"#3B599C","BorderWidth":2,"RoundWidth":5,"RoundHeight":5,"BackgroundColor":"null"}');

    memberListView.ListType = 'vertical';

 }

voidmainListView;

{

  CreateListView;

  CreateDesignerPanel;

  CreateMembersNameAndDate;

  AddDataToListview;

}

voidmainScreen;

{

  refreshLyt =MyForm.AddNewLayout(mainPnl,'refreshLyt');

  refreshLyt.Align=ALTop;

  refreshLyt.Height = 40;

  refreshLyt.Margins.Top = 2;

  refreshBtn =MyForm.AddNewProButton(refreshLyt,'refreshBtn','');

 clComponent.SetupComponent(refreshBtn,'{"Align" :"Center","Height":'+IntToStr(refreshLyt.Height)+',"Width":'+IntToStr(refreshLyt.Width)+'}');

 MyForm.SetImage(refreshBtn,'https://clomosy.com/educa/refresh.png');

 MyForm.AddNewEvent(refreshBtn,tbeOnClick,'AddDataToListview');

  mainListView;

}

{

  if (Clomosy.PlatformIsMobile)

    QrAppType = 2;//0:qrgenerator 1:Yonetici2:Normal User

  if(Not Clomosy.PlatformIsMobile)  //win üzeirinde açılı olan kullanıcı memberslistesini görsün

    QrAppType = 1;//0:qrgenerator 1:Yonetici2:Normal User

  if (Clomosy.AppUserProfile== 1 )  

     QrAppType=0;

  yoneticiTakip = 0;

  MyForm = TclForm.Create(Self);

 MyForm.SetFormBGImage('https://clomosy.com/demos/bg4.jpg');

  GetTimer =MyForm.AddNewTimer(MyForm,'GetTimer',1000);

 mainPnl=MyForm.AddNewProPanel(MyForm,'mainPnl');

 clComponent.SetupComponent(mainPnl,'{"Align" :"Client","BackgroundColor":"null"}');

  CaptionLbl =MyForm.AddNewProLabel(mainPnl,'CaptionLbl','QR PDKS UYGULAMASI');

 clComponent.SetupComponent(CaptionLbl,'{"Align" :"MostTop","MarginTop":30,"Height":40,

 "TextColor":"#3B599C","TextSize":30,"TextVerticalAlign":"center","TextHorizontalAlign":"center","TextBold":"yes","AutoSize":"Horizontal"}');

  BtnReadQrCode =MyForm.AddNewProButton(mainPnl,'BtnReadQrCode','');

 clComponent.SetupComponent(BtnReadQrCode,'{"caption":"QRKodOku","Align" : "Bottom","MarginLeft":'+IntToStr(mainPnl.Width/4)+',"MarginRight" :'+IntToStr(mainPnl.Width/4)+',

 "MarginBottom":20,"TextColor":"#3B599C","TextSize":25,

 "Height":70,"BackgroundColor":"#d1daf0","RoundHeight":15,"RoundWidth":15,"BorderColor":"#3B599C","BorderWidth":3}');

 MyForm.AddNewEvent(BtnReadQrCode,tbeOnClick,'BtnReadQrCodeClick');

  BtnReadQrCode.Visible = False;

  ReadQrEdt =MyForm.AddNewEdit(mainPnl,'ReadQrEdt','Barkod Okutunuz...');

  ReadQrEdt.Align = alBottom;

  ReadQrEdt.ReadOnly = True;

  ReadQrEdt.Visible = False;

  if (QrAppType== 0 )//QRGenerator ise

  {

    adminScreen;

  }

  if (QrAppType== 1 )  //WINDOWS

    mainScreen;

  if(QrAppType==2)//QRReader ise Normal User

  {

    usersScrenn;

  }

  if (Clomosy.PlatformIsMobile)

  MyForm.Run;

  else

  MyForm.RunModal;

}

Ana kodayazınca bu kodu çalışıyor ancak unit olarak çağırıncaCallBarcodeReaderWithScript kısmı hata veriyor