Mobil cihazından sql bağlantısını yapmak için sql kurulu cihaz ile mobil cihaz aynı ağa bağlı olmalı, 'DESKTOP-Q7UNJV9\SQLEXPRESS' kısmına ip adresi yazmalısın ve portun erişime açık olması gerekiyor.

var

  dcGameForm: TclGameForm;

  kullaniciBilgileriPanel: TclProPanel;

  btnOyunaBasla: TClProButton;

  oyuncuAdiProEdit1,oyuncuAdiProEdit2,oyuncuAdiProEdit3,oyuncuAdiProEdit4: TclProEdit;

  oyuncuSayisiCmb: TCLComboBox;

  arkaPlan: TCLImage;

  ikiKisilikUnit, ucKisilikUnit, dortKisilikUnit: TclUnit;

  oyuncuSayisiLbl : TClProLabel;

  addNameQuery : TclSqlQuery;

  

void butonaTikla;

{

Clomosy.GlobalVariableString =oyuncuAdiProEdit1.Text+'.'+oyuncuAdiProEdit2.Text+'!'+oyuncuAdiProEdit3.Text+','+oyuncuAdiProEdit4.Text+';';

  case oyuncuSayisiCmb.ItemIndex of

    {

    0: Clomosy.RunUnit('ikiKisilikUnit');  // 2 oyuncu seçildiğinde

    1: Clomosy.RunUnit('ucKisilikUnit');    // 3 oyuncu seçildiğinde

    2: Clomosy.RunUnit('dortKisilikUnit');  // 4 oyuncu seçildiğinde

  

  else

    ShowMessage('Geçersiz Seçim');

  }

}

{

  dcGameForm = TclGameForm.Create(Self);

  ikiKisilikUnit = TclUnit.Create;

  ucKisilikUnit = TclUnit.Create;

  dortKisilikUnit = TclUnit.Create;

  dcGameForm.SetFormBGImage('https://i.hizliresim.com/d5u495h.png');

  

  // Panel

  kullaniciBilgileriPanel = dcGameForm.AddNewProPanel(dcGameForm, 'kullaniciBilgileriPanel');

  clComponent.SetupComponent(kullaniciBilgileriPanel,

    '{

      "Align" : "Center",

      "MarginBottom": 135,

      "MarginTop":110,

      "Width" : 350,

      "Height" : 450,

      "RoundHeight" : 10,

      "RoundWidth" : 10,

      "BorderWidth" : 2,

      "BorderColor" : "#ffffff"

    }'

  );

  

  oyuncuSayisiCmb = dcGameForm.AddNewComboBox(kullaniciBilgileriPanel, 'oyuncuSayisiCmb');

  oyuncuSayisiCmb.Align = alCenter;

  oyuncuSayisiCmb.Width = 60;

  oyuncuSayisiCmb.Height = 30;

  oyuncuSayisiCmb.Margins.Left = 35;

  oyuncuSayisiCmb.Margins.Bottom = 400;

  oyuncuSayisiCmb.AddItem('2', '2');

  oyuncuSayisiCmb.AddItem('3', '3');

  oyuncuSayisiCmb.AddItem('4', '4');

  

  

  oyuncuSayisiLbl = dcGameForm.AddNewProLabel(kullaniciBilgileriPanel, 'oyuncuSayisiLbl', 'Oyuncu Sayısını Seçiniz:');

  clComponent.SetupComponent(oyuncuSayisiLbl,

  

  '{

    "Align" : "Center",

    "MarginRight" :220,

    "MarginBottom" :400,

    "TextColor":"#000000",

    "TextSize":11,

    "TextVerticalAlign":"center",

    "TextHorizontalAlign":"left"

    

  }');

  oyuncuAdiProEdit1 = dcGameForm.AddNewProEdit(kullaniciBilgileriPanel, 'oyuncuAdiProEdit1', 'Oyuncu 1');

  clComponent.SetupComponent(

    oyuncuAdiProEdit1,

    '{

      "Align" : "Center",

      "MarginBottom" : 200,

      "Width"  : 180,

      "Height" : 45,

      "RoundHeight" : 14,

      "RoundWidth" : 2,

      "BorderWidth":2

      

    }'

  );

  

  oyuncuAdiProEdit2 = dcGameForm.AddNewProEdit(kullaniciBilgileriPanel, 'oyuncuAdiProEdit2', 'Oyuncu 2');

  clComponent.SetupComponent(

    oyuncuAdiProEdit2,

    '{

      "Align" : "Center",

      "MarginBottom" : 100,

      "Width"  : 180,

      "Height" : 45,

      "RoundHeight" : 14,

      "RoundWidth" : 2,

      "BorderWidth":2

      

    }'

  );

  

  oyuncuAdiProEdit3 = dcGameForm.AddNewProEdit(kullaniciBilgileriPanel, 'oyuncuAdiProEdit3', 'Oyuncu 3');

  clComponent.SetupComponent(

    oyuncuAdiProEdit3,

    '{

      "Align" : "Center",

      "MarginTop" : 150,

      "Width"  : 180,

      "Height" : 45,

      "RoundHeight" : 14,

      "RoundWidth" : 2,

      "BorderWidth":2

      

    }'

  );

  

  oyuncuAdiProEdit4 = dcGameForm.AddNewProEdit(kullaniciBilgileriPanel, 'oyuncuAdiProEdit4', 'Oyuncu 4');

  clComponent.SetupComponent(

    oyuncuAdiProEdit4,

    '{

      "Align" : "Center",

      "MarginTop" : 250,

      "Width"  : 180,

      "Height" : 45,

      "RoundHeight" : 14,

      "RoundWidth" : 2,

      "BorderWidth":2

      

    }'

  );

  

  btnOyunaBasla = dcGameForm.AddNewProButton(dcGameForm, 'btnOyunaBasla', 'Oyuna Başla');

  clComponent.SetupComponent(

    btnOyunaBasla,

    '{

      "caption" : "Oyuna Başla", 

      "Align" : "Center", 

      "MarginTop" : 340, 

      "Width" : 150,

      "Height" : 50, 

      "RoundHeight" : 7, 

      "RoundWidth" : 2 , 

      "BorderColor" : "#ffffff" , 

      "BorderWidth" : 2,

      "BackgroundColor": "#ec7979",

      "FontStyle":"bold"

    }'

  );

  

  addNameQuery  = TclSqlQuery.Create(Nil);

  Clomosy.DBSQLServerConnect('SQL Server', 'DESKTOP-Q7UNJV9\SQLEXPRESS', 'sa', 'Aze129901', 'DC',1433);

  addNameQuery.Connection = Clomosy.DBSQLServerConnection;

  

  btnOyunaBasla.OnClick = 'butonaTikla';

  

  dcGameForm.Run;

}

merhabalar. kod bilgisayarda exe de gayet güzel  çalışıyor ancak mobil telefonumda clomosy uygulamasında açamıyorum. siyah ekranda kalıyor.