veritabani hatasi

   //bilgisayer veritabani iyi calisiyor ama telefon bagladigimda hata veriyor
//Login page  
var
loginform : TclForm;
PanelForm : TclProPanel;
Paneltext : TclProPanel;
Panelkayitol :TclProPanel;
Panelcontact :TclProPanel;
titleLabel: TClProLabel;
Label1: TClProLabel;
Label2: TClProLabel;
Label3: TClProLabel;
Label4: TClProLabel;
Label5: TClProLabel;
Label6: TClProLabel;
Label7: TClProLabel;
titleLabellogin: TClProLabel;
EmailEdit,ParolaEdit:TclProEdit;
logbtn,kayitolbtn,instabtn,facebtn,tikbtn,xbtn:TClProButton;
googlebtn:TClProButton;
email,pass:String;
SqliteQuery1 : TClSQLiteQuery;

googleImg:TClProImage;
emailImg,passImg,instaImg,faceImg,tikImg,xImg:TClProImage;

logoImg,loginImg:TClProImage;

 //donnees pour la navigation interpages
 UnitKayit :TclUnit;
 Unitsign :TclUnit;

 //donnes pour l'enreigistremnet en data base 
 Rest : TclRest;
 Json : String;
 Result : String;

 //donnees pour recuperer les informations du json envoye par php
 Obj : TCLJSONObject;
 UserObj : TCLJSONObject;

  void kayitOl{
  UnitKayit.UnitName = 'ILK_PROJE';
  UnitKayit.CallerForm = loginform;
  UnitKayit.Run;
}

void LoginUser;
{
    Json ='{' +
      '"email":"' + EmailEdit.Text + '",' +
      '"password":"' + ParolaEdit.Text + '"' +
      '}';

    Rest = TclRest.Create;
    Try
        Rest.BaseURL = 'http://192.168.1.24/clomosy/api/login.php';
        Rest.Method = rmPOST;
        Rest.Accept = 'application/json';
        Rest.Body = Json;
        Rest.Execute;
        Obj =TCLJSON.ParseToJSONObject(Rest.Response);
        if(obj.GetValue('success').AsBoolean){
          ShowMessage('Connexion réussie !!! Bienvenue ' + Obj.GetValueByPath('user.userName').AsString);
          kayitOl;
        }
        else{
          ShowMessage(obj.GetValue('message').AsString)
        }

    Finally
        Rest.Free;
    }
}

void sign{
  Unitsign.UnitName = 'Kayit_Ol';
  Unitsign.CallerForm = loginform;
  Unitsign.Run;
}

//medya social buttona baglayacak
void OnInstagramAc;
{
  TClomosyOS.OpenURL('https://tr.wikipedia.org/wiki/Anasayfa');
}
void OnTiktokAc;
{
  TClomosyOS.OpenURL('https://tr.wikipedia.org/wiki/Anasayfa');
}
void OnFacebookAc;
{
  TClomosyOS.OpenURL('https://tr.wikipedia.org/wiki/Anasayfa');
}
void OnTwiterAc;
{
  TClomosyOS.OpenURL('https://tr.wikipedia.org/wiki/Anasayfa');
}

{
  loginform = TCLForm.Create(Self);
  loginform.SetFormBGImage('https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img11.png');
  UnitKayit = TclUnit.Create;
  Unitsign = TclUnit.Create;

  //panel text 
  Paneltext = loginform.AddNewProPanel(loginform,'Paneltext');
  Paneltext.Align = alTop; 
  Paneltext.Height =250;
  Paneltext.Margins.Left=20;
  Paneltext.Margins.Right=20;
  Paneltext.Margins.Bottom=20;
  Paneltext.clProSettings.IsRound = True;
  Paneltext.clProSettings.IsFill = False; 
  Paneltext.clProSettings.IsTransparent = True;
  Paneltext.SetclProSettings(Paneltext.clProSettings);

  //logo image 
  logoImg=loginform.AddNewProImage(Paneltext, 'logoImg');
  logoImg.Align=alTop;
  logoImg.Margins.Left=10;
  logoImg.Margins.Top=5;
  logoImg.Margins.Bottom=5;
  logoImg.Width=90;
  logoImg.Height=90;
  loginform.SetImage(logoImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img1.png');

  //Label 7
  Label7 = loginform.AddNewProLabel(Paneltext,'Label7','EVERY ASIAN FOOD IN ONE  HUB');
  Label7.Align = alTop;
  Label7.Margins.Left=20;
  Label7.Margins.Right=35;
  Label7.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF');
  Label7.clProSettings.FontSize =33;
  Label7.clProSettings.TextSettings.Font.Style = [fsBold];
  Label7.clProSettings.WordWrap = True;
  Label7.clProSettings.AutoSize = True;
  Label7.SetclProSettings(Label7.clProSettings);

  //Label 6
  Label6 = loginform.AddNewProLabel(Paneltext,'Label6','Welcome to our online ordering platform. Log in to access our menus.');
  Label6.Align = alTop;
  Label6.Margins.Left=20;
  Label6.Margins.Right=35;
  Label6.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF');
  Label6.clProSettings.FontSize =17;
  Label6.clProSettings.TextSettings.Font.Style = [fsBold];
  Label6.clProSettings.WordWrap = True;
  Label6.clProSettings.AutoSize = True;
  Label6.SetclProSettings(Label6.clProSettings);

  //panel login
  PanelForm = loginform.AddNewProPanel(loginform,'PanelForm');
  PanelForm.Align = alTop; 
  PanelForm.Height =520;
  PanelForm.Margins.Left=20;
  PanelForm.Margins.Right=20;
  PanelForm.clProSettings.IsFill = False; 
  PanelForm.clProSettings.IsTransparent = True;
  PanelForm.clProSettings.IsRound = True;
  //PanelForm.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E1612');
  //PanelForm.Opacity = 0.7;
  PanelForm.SetclProSettings(PanelForm.clProSettings);

  //label 5
  Label5 = loginform.AddNewProLabel(PanelForm,'Label5','LOGIN');
  Label5.Align = alTop;
  Label5.Height =50;
  Label5.Margins.Left=150;
  Label5.Margins.Top=25;
  Label5.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF');
  Label5.clProSettings.FontSize =35;
  Label5.clProSettings.TextSettings.Font.Style = [fsBold];
  Label5.SetclProSettings(Label5.clProSettings);

  /*//login_image 
  loginImg=loginform.AddNewProImage(Label5, 'loginImg');
  loginImg.Align=alLeft;
  loginImg.Margins.Right=250;
  loginImg.Width=60;
  loginImg.Height=60;
  loginform.SetImage(loginImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img4.png');*/

  //Label for email
  Label2 = loginform.AddNewProLabel(PanelForm,'Label2','Enter Your Email');
  Label2.Align = alTop;
  Label2.Height = 30;
  Label2.Margins.Left=20;
  Label2.Margins.Right=20;
  Label2.Margins.Top=10;
  Label2.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF');
  Label2.clProSettings.FontSize = 17;
  Label2.clProSettings.TextSettings.Font.Style = [fsBold];
  Label2.SetclProSettings(Label2.clProSettings);

  //edit for Email
  EmailEdit=loginform.AddNewProEdit(PanelForm, 'EmailEdit', 'Enter your email here')
  EmailEdit.Align=alTop;
  EmailEdit.Height=50;;
  EmailEdit.Margins.Left=20;
  EmailEdit.Margins.Right=20;
  EmailEdit.Margins.Bottom=20;
  EmailEdit.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#080c16');
  EmailEdit.clProSettings.IsTransparent=True;
  EmailEdit.clProSettings.IsRound=False;
  EmailEdit.clProSettings.RoundWidth=10;
  EmailEdit.clProSettings.RoundHeight=10;
  EmailEdit.clProSettings.BorderColor=clAlphaColor.clHexToColor('#383838');
  EmailEdit.clProSettings.BorderWidth=1;
  EmailEdit.TextSettings.Font.Size=16;
  EmailEdit.TextSettings.FontColor=clAlphaColor.clHexToColor('#919191');
  EmailEdit.SetclProSettings(EmailEdit.clProSettings);

  emailImg=loginform.AddNewProImage(EmailEdit, 'emailImg');
  emailImg.Align=alLeft;
  emailImg.Margins.Left=10;
  emailImg.Margins.Top=5;
  emailImg.Margins.Bottom=5;
  emailImg.Width=25;
  loginform.SetImage(emailImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img5.png');

  //Lable for password 

  Label3 = loginform.AddNewProLabel(PanelForm,'Label3','Enter Your PassWord');
  Label3.Align = alTop;
  Label3.Height = 30;
  Label3.Margins.Left=20;
  Label3.Margins.Right=20;
  Label3.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF');
  Label3.clProSettings.FontSize = 17;
  Label3.clProSettings.TextSettings.Font.Style = [fsBold];
  Label3.SetclProSettings(Label3.clProSettings);

  //edit for  password 
  ParolaEdit=loginform.AddNewProEdit(PanelForm, 'ParolaEdit', 'Enter your password here')
  ParolaEdit.Align=alTop;
  ParolaEdit.Height=40;
  ParolaEdit.Margins.Left=20;
  ParolaEdit.Margins.Right=20;
  ParolaEdit.Margins.Bottom=30;
  ParolaEdit.password=True
  ParolaEdit.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#080c16');
  ParolaEdit.clProSettings.IsTransparent=True;
  ParolaEdit.clProSettings.IsRound=False;
  ParolaEdit.clProSettings.RoundWidth=10;
  ParolaEdit.clProSettings.RoundHeight=10;
  ParolaEdit.clProSettings.BorderColor=clAlphaColor.clHexToColor('#383838');
  ParolaEdit.clProSettings.BorderWidth=1;
  ParolaEdit.TextSettings.Font.Size=16;
  ParolaEdit.TextSettings.FontColor=clAlphaColor.clHexToColor('#919191');
  ParolaEdit.SetclProSettings(ParolaEdit.clProSettings);

  passImg=loginform.AddNewProImage(ParolaEdit, 'passImg');
  passImg.Align=alLeft;
  passImg.Margins.Left=10;
  passImg.Margins.Top=5;
  passImg.Margins.Bottom=5;
  passImg.Width=25;
  loginform.SetImage(passImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img6.png');

  //Log button 
  logbtn=loginform.AddNewProButton(PanelForm, 'logbtn', 'LogIn')
  logbtn.Align=alTop;
  logbtn.Height=50;
  logbtn.Margins.Left=20;
  logbtn.Margins.Right=20;
  logbtn.Margins.Bottom=10;
  logbtn.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#C89A4A');
  logbtn.clProSettings.RoundWidth=10;
  logbtn.clProSettings.RoundHeight=10;
  logbtn.clProSettings.FontSize=20;
  logbtn.clProSettings.FontColor=clAlphaColor.clHexToColor('#ffffff');
  logbtn.clProSettings.TextSettings.Font.Style  = [fsBold];
  logbtn.SetclProSettings(logbtn.clProSettings);
  loginform.AddNewEvent(logbtn, tbeOnClick, 'LoginUser');

  //panel for kayit ol 
  Panelkayitol = loginform.AddNewProPanel(PanelForm,'Panelkayitol');
  Panelkayitol.Align = alTop; 
  Panelkayitol.Height =50;
  Panelkayitol.Margins.Left=20;
  Panelkayitol.Margins.Right=20;
  Panelkayitol.Margins.Bottom=20;
  Panelkayitol.clProSettings.IsFill = False; 
  Panelkayitol.clProSettings.IsTransparent = True;
  Panelkayitol.clProSettings.IsRound = True;
  //Panelkayitol.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E1612');
  Panelkayitol.SetclProSettings(Panelkayitol.clProSettings);

  //label for signup
  Label1 = loginform.AddNewProLabel(Panelkayitol,'Label1','Hesap Yoksa Yeni Hesap Ac');
  Label1.Align = alLeft;
  Label1.Height = 35;
  Label1.Margins.Top=12;
  Label1.Width=200; 
  Label1.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF');
  Label1.clProSettings.FontSize =17;
  Label1.clProSettings.TextSettings.Font.Style = [fsBold];
  Label1.SetclProSettings(Label1.clProSettings);

  //button for kayit Ol
  kayitolbtn=loginform.AddNewProButton(Panelkayitol, 'kayitolbtn', 'KAYIT OL')
  kayitolbtn.Align=alRight;
  kayitolbtn.Height=35;
  kayitolbtn.Margins.Right=25;
  kayitolbtn.clProSettings.FontSize=17;
  kayitolbtn.clProSettings.IsFill = False; 
  kayitolbtn.clProSettings.IsTransparent = True;
  kayitolbtn.clProSettings.FontColor=clAlphaColor.clHexToColor('#167efb');
  kayitolbtn.clProSettings.TextSettings.Font.Style  = [fsBold];
  kayitolbtn.SetclProSettings(kayitolbtn.clProSettings);
  loginform.AddNewEvent(kayitolbtn, tbeOnClick, 'sign');

  //label for follow 
  Label4 = loginform.AddNewProLabel(PanelForm,'Label4','--- Bize Takip Unutmayiniz ---');
  Label4.Align = alTop;
  Label4.Height = 35;
  Label4.Margins.Left=75;
  Label4.Width=200; 
  Label4.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF');
  Label4.clProSettings.FontSize =17;
  Label4.clProSettings.TextSettings.Font.Style = [fsBold];
  Label4.SetclProSettings(Label4.clProSettings);

  //panel for contact   
  Panelcontact = loginform.AddNewProPanel(PanelForm,'Panelcontact');
  Panelcontact.Align = alTop; 
  Panelcontact.Height =50;
  Panelcontact.clProSettings.IsFill =False; 
  Panelcontact.clProSettings.IsTransparent = True;
  Panelcontact.clProSettings.IsRound = True;
  //Panelcontact.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#381e76');
  Panelcontact.SetclProSettings(Panelcontact.clProSettings);

  //button for instagram
  instabtn=loginform.AddNewProButton(Panelcontact, 'instabtn', '')
  instabtn.Align=alLeft;
  instabtn.Height=40;
  instabtn.clProSettings.FontSize=20;
  instabtn.clProSettings.IsFill =False; 
  instabtn.clProSettings.IsTransparent = True;
  instabtn.SetclProSettings(instabtn.clProSettings);
  loginform.AddNewEvent(instabtn, tbeOnClick, 'OnInstagramAc');
  //image for instagram
  instaImg=loginform.AddNewProImage(instabtn, 'instaImg');
  instaImg.Align=alLeft;
  instaImg.Margins.Left=20;
  instaImg.Margins.Top=5;
  instaImg.Margins.Bottom=5;
  instaImg.Width=30;
  loginform.SetImage(instaImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img8.png');

  //button for facebook
  facebtn=loginform.AddNewProButton(Panelcontact, 'facebtn', '')
  facebtn.Align=alLeft;
  facebtn.Height=40;
  facebtn.clProSettings.FontSize=20;
  facebtn.clProSettings.IsFill =False; 
  facebtn.clProSettings.IsTransparent = True;
  facebtn.SetclProSettings(facebtn.clProSettings);
  loginform.AddNewEvent(facebtn, tbeOnClick, 'OnFacebookAc');
  //image for facebook
  faceImg=loginform.AddNewProImage(facebtn, 'faceImg');
  faceImg.Align=alLeft;
  instaImg.Margins.Left=20;
  faceImg.Margins.Top=5;
  faceImg.Margins.Bottom=5;
  faceImg.Width=30;
  loginform.SetImage(faceImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img7.png');

  //button for tiktok
  tikbtn=loginform.AddNewProButton(Panelcontact, 'tikbtn', '')
  tikbtn.Align=alLeft;
  tikbtn.Height=40;
  tikbtn.clProSettings.FontSize=20;
  tikbtn.clProSettings.IsFill =False; 
  tikbtn.clProSettings.IsTransparent = True;
  tikbtn.SetclProSettings(tikbtn.clProSettings);
  loginform.AddNewEvent(tikbtn, tbeOnClick, 'OnTiktokAc');
  //image for tiktok
  tikImg=loginform.AddNewProImage(tikbtn, 'tikImg');
  tikImg.Align=alLeft;
  instaImg.Margins.Left=20;
  tikImg.Margins.Top=5;
  tikImg.Margins.Bottom=5;
  tikImg.Width=30;
  loginform.SetImage(tikImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img9.png');

  //button for X
  xbtn=loginform.AddNewProButton(Panelcontact, 'xbtn', '')
  xbtn.Align=alLeft;
  xbtn.Height=40;
  xbtn.clProSettings.FontSize=20;
  xbtn.clProSettings.IsFill =False; 
  xbtn.clProSettings.IsTransparent = True;
  xbtn.SetclProSettings(xbtn.clProSettings);
  loginform.AddNewEvent(xbtn, tbeOnClick, 'OnTwiterAc');
  //image for X
  xImg=loginform.AddNewProImage(xbtn, 'xImg');
  xImg.Align=alLeft;
  instaImg.Margins.Left=20;
  xImg.Margins.Top=5;
  xImg.Margins.Bottom=5;
  xImg.Width=30;
  loginform.SetImage(xImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img12.png');

  loginform.Run;
}
https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
Barthe_dev Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 07 Temmuz 2026 Konum: konya Durum: Aktif Değil Puanlar: 21	Mesaj Seçenekleri Yanıt Yaz Alıntı Barthe_dev Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: veritabani hatasi Gönderim Zamanı: 2 Saat 35 Dakika Önce Saat 17:51
	//bilgisayer veritabani iyi calisiyor ama telefon bagladigimda hata veriyor //Login page var loginform : TclForm; PanelForm : TclProPanel; Paneltext : TclProPanel; Panelkayitol :TclProPanel; Panelcontact :TclProPanel; titleLabel: TClProLabel; Label1: TClProLabel; Label2: TClProLabel; Label3: TClProLabel; Label4: TClProLabel; Label5: TClProLabel; Label6: TClProLabel; Label7: TClProLabel; titleLabellogin: TClProLabel; EmailEdit,ParolaEdit:TclProEdit; logbtn,kayitolbtn,instabtn,facebtn,tikbtn,xbtn:TClProButton; googlebtn:TClProButton; email,pass:String; SqliteQuery1 : TClSQLiteQuery; googleImg:TClProImage; emailImg,passImg,instaImg,faceImg,tikImg,xImg:TClProImage; logoImg,loginImg:TClProImage; //donnees pour la navigation interpages UnitKayit :TclUnit; Unitsign :TclUnit; //donnes pour l'enreigistremnet en data base Rest : TclRest; Json : String; Result : String; //donnees pour recuperer les informations du json envoye par php Obj : TCLJSONObject; UserObj : TCLJSONObject; void kayitOl{ UnitKayit.UnitName = 'ILK_PROJE'; UnitKayit.CallerForm = loginform; UnitKayit.Run; } void LoginUser; { Json ='{' + '"email":"' + EmailEdit.Text + '",' + '"password":"' + ParolaEdit.Text + '"' + '}'; Rest = TclRest.Create; Try Rest.BaseURL = 'http://192.168.1.24/clomosy/api/login.php'; Rest.Method = rmPOST; Rest.Accept = 'application/json'; Rest.Body = Json; Rest.Execute; Obj =TCLJSON.ParseToJSONObject(Rest.Response); if(obj.GetValue('success').AsBoolean){ ShowMessage('Connexion réussie !!! Bienvenue ' + Obj.GetValueByPath('user.userName').AsString); kayitOl; } else{ ShowMessage(obj.GetValue('message').AsString) } Finally Rest.Free; } } void sign{ Unitsign.UnitName = 'Kayit_Ol'; Unitsign.CallerForm = loginform; Unitsign.Run; } //medya social buttona baglayacak void OnInstagramAc; { TClomosyOS.OpenURL('https://tr.wikipedia.org/wiki/Anasayfa'); } void OnTiktokAc; { TClomosyOS.OpenURL('https://tr.wikipedia.org/wiki/Anasayfa'); } void OnFacebookAc; { TClomosyOS.OpenURL('https://tr.wikipedia.org/wiki/Anasayfa'); } void OnTwiterAc; { TClomosyOS.OpenURL('https://tr.wikipedia.org/wiki/Anasayfa'); } { loginform = TCLForm.Create(Self); loginform.SetFormBGImage('https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img11.png'); UnitKayit = TclUnit.Create; Unitsign = TclUnit.Create; //panel text Paneltext = loginform.AddNewProPanel(loginform,'Paneltext'); Paneltext.Align = alTop; Paneltext.Height =250; Paneltext.Margins.Left=20; Paneltext.Margins.Right=20; Paneltext.Margins.Bottom=20; Paneltext.clProSettings.IsRound = True; Paneltext.clProSettings.IsFill = False; Paneltext.clProSettings.IsTransparent = True; Paneltext.SetclProSettings(Paneltext.clProSettings); //logo image logoImg=loginform.AddNewProImage(Paneltext, 'logoImg'); logoImg.Align=alTop; logoImg.Margins.Left=10; logoImg.Margins.Top=5; logoImg.Margins.Bottom=5; logoImg.Width=90; logoImg.Height=90; loginform.SetImage(logoImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img1.png'); //Label 7 Label7 = loginform.AddNewProLabel(Paneltext,'Label7','EVERY ASIAN FOOD IN ONE HUB'); Label7.Align = alTop; Label7.Margins.Left=20; Label7.Margins.Right=35; Label7.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF'); Label7.clProSettings.FontSize =33; Label7.clProSettings.TextSettings.Font.Style = [fsBold]; Label7.clProSettings.WordWrap = True; Label7.clProSettings.AutoSize = True; Label7.SetclProSettings(Label7.clProSettings); //Label 6 Label6 = loginform.AddNewProLabel(Paneltext,'Label6','Welcome to our online ordering platform. Log in to access our menus.'); Label6.Align = alTop; Label6.Margins.Left=20; Label6.Margins.Right=35; Label6.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF'); Label6.clProSettings.FontSize =17; Label6.clProSettings.TextSettings.Font.Style = [fsBold]; Label6.clProSettings.WordWrap = True; Label6.clProSettings.AutoSize = True; Label6.SetclProSettings(Label6.clProSettings); //panel login PanelForm = loginform.AddNewProPanel(loginform,'PanelForm'); PanelForm.Align = alTop; PanelForm.Height =520; PanelForm.Margins.Left=20; PanelForm.Margins.Right=20; PanelForm.clProSettings.IsFill = False; PanelForm.clProSettings.IsTransparent = True; PanelForm.clProSettings.IsRound = True; //PanelForm.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E1612'); //PanelForm.Opacity = 0.7; PanelForm.SetclProSettings(PanelForm.clProSettings); //label 5 Label5 = loginform.AddNewProLabel(PanelForm,'Label5','LOGIN'); Label5.Align = alTop; Label5.Height =50; Label5.Margins.Left=150; Label5.Margins.Top=25; Label5.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF'); Label5.clProSettings.FontSize =35; Label5.clProSettings.TextSettings.Font.Style = [fsBold]; Label5.SetclProSettings(Label5.clProSettings); ///login_image loginImg=loginform.AddNewProImage(Label5, 'loginImg'); loginImg.Align=alLeft; loginImg.Margins.Right=250; loginImg.Width=60; loginImg.Height=60; loginform.SetImage(loginImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img4.png');/ //Label for email Label2 = loginform.AddNewProLabel(PanelForm,'Label2','Enter Your Email'); Label2.Align = alTop; Label2.Height = 30; Label2.Margins.Left=20; Label2.Margins.Right=20; Label2.Margins.Top=10; Label2.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF'); Label2.clProSettings.FontSize = 17; Label2.clProSettings.TextSettings.Font.Style = [fsBold]; Label2.SetclProSettings(Label2.clProSettings); //edit for Email EmailEdit=loginform.AddNewProEdit(PanelForm, 'EmailEdit', 'Enter your email here') EmailEdit.Align=alTop; EmailEdit.Height=50;; EmailEdit.Margins.Left=20; EmailEdit.Margins.Right=20; EmailEdit.Margins.Bottom=20; EmailEdit.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#080c16'); EmailEdit.clProSettings.IsTransparent=True; EmailEdit.clProSettings.IsRound=False; EmailEdit.clProSettings.RoundWidth=10; EmailEdit.clProSettings.RoundHeight=10; EmailEdit.clProSettings.BorderColor=clAlphaColor.clHexToColor('#383838'); EmailEdit.clProSettings.BorderWidth=1; EmailEdit.TextSettings.Font.Size=16; EmailEdit.TextSettings.FontColor=clAlphaColor.clHexToColor('#919191'); EmailEdit.SetclProSettings(EmailEdit.clProSettings); emailImg=loginform.AddNewProImage(EmailEdit, 'emailImg'); emailImg.Align=alLeft; emailImg.Margins.Left=10; emailImg.Margins.Top=5; emailImg.Margins.Bottom=5; emailImg.Width=25; loginform.SetImage(emailImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img5.png'); //Lable for password Label3 = loginform.AddNewProLabel(PanelForm,'Label3','Enter Your PassWord'); Label3.Align = alTop; Label3.Height = 30; Label3.Margins.Left=20; Label3.Margins.Right=20; Label3.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF'); Label3.clProSettings.FontSize = 17; Label3.clProSettings.TextSettings.Font.Style = [fsBold]; Label3.SetclProSettings(Label3.clProSettings); //edit for password ParolaEdit=loginform.AddNewProEdit(PanelForm, 'ParolaEdit', 'Enter your password here') ParolaEdit.Align=alTop; ParolaEdit.Height=40; ParolaEdit.Margins.Left=20; ParolaEdit.Margins.Right=20; ParolaEdit.Margins.Bottom=30; ParolaEdit.password=True ParolaEdit.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#080c16'); ParolaEdit.clProSettings.IsTransparent=True; ParolaEdit.clProSettings.IsRound=False; ParolaEdit.clProSettings.RoundWidth=10; ParolaEdit.clProSettings.RoundHeight=10; ParolaEdit.clProSettings.BorderColor=clAlphaColor.clHexToColor('#383838'); ParolaEdit.clProSettings.BorderWidth=1; ParolaEdit.TextSettings.Font.Size=16; ParolaEdit.TextSettings.FontColor=clAlphaColor.clHexToColor('#919191'); ParolaEdit.SetclProSettings(ParolaEdit.clProSettings); passImg=loginform.AddNewProImage(ParolaEdit, 'passImg'); passImg.Align=alLeft; passImg.Margins.Left=10; passImg.Margins.Top=5; passImg.Margins.Bottom=5; passImg.Width=25; loginform.SetImage(passImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img6.png'); //Log button logbtn=loginform.AddNewProButton(PanelForm, 'logbtn', 'LogIn') logbtn.Align=alTop; logbtn.Height=50; logbtn.Margins.Left=20; logbtn.Margins.Right=20; logbtn.Margins.Bottom=10; logbtn.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#C89A4A'); logbtn.clProSettings.RoundWidth=10; logbtn.clProSettings.RoundHeight=10; logbtn.clProSettings.FontSize=20; logbtn.clProSettings.FontColor=clAlphaColor.clHexToColor('#ffffff'); logbtn.clProSettings.TextSettings.Font.Style = [fsBold]; logbtn.SetclProSettings(logbtn.clProSettings); loginform.AddNewEvent(logbtn, tbeOnClick, 'LoginUser'); //panel for kayit ol Panelkayitol = loginform.AddNewProPanel(PanelForm,'Panelkayitol'); Panelkayitol.Align = alTop; Panelkayitol.Height =50; Panelkayitol.Margins.Left=20; Panelkayitol.Margins.Right=20; Panelkayitol.Margins.Bottom=20; Panelkayitol.clProSettings.IsFill = False; Panelkayitol.clProSettings.IsTransparent = True; Panelkayitol.clProSettings.IsRound = True; //Panelkayitol.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E1612'); Panelkayitol.SetclProSettings(Panelkayitol.clProSettings); //label for signup Label1 = loginform.AddNewProLabel(Panelkayitol,'Label1','Hesap Yoksa Yeni Hesap Ac'); Label1.Align = alLeft; Label1.Height = 35; Label1.Margins.Top=12; Label1.Width=200; Label1.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF'); Label1.clProSettings.FontSize =17; Label1.clProSettings.TextSettings.Font.Style = [fsBold]; Label1.SetclProSettings(Label1.clProSettings); //button for kayit Ol kayitolbtn=loginform.AddNewProButton(Panelkayitol, 'kayitolbtn', 'KAYIT OL') kayitolbtn.Align=alRight; kayitolbtn.Height=35; kayitolbtn.Margins.Right=25; kayitolbtn.clProSettings.FontSize=17; kayitolbtn.clProSettings.IsFill = False; kayitolbtn.clProSettings.IsTransparent = True; kayitolbtn.clProSettings.FontColor=clAlphaColor.clHexToColor('#167efb'); kayitolbtn.clProSettings.TextSettings.Font.Style = [fsBold]; kayitolbtn.SetclProSettings(kayitolbtn.clProSettings); loginform.AddNewEvent(kayitolbtn, tbeOnClick, 'sign'); //label for follow Label4 = loginform.AddNewProLabel(PanelForm,'Label4','--- Bize Takip Unutmayiniz ---'); Label4.Align = alTop; Label4.Height = 35; Label4.Margins.Left=75; Label4.Width=200; Label4.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF'); Label4.clProSettings.FontSize =17; Label4.clProSettings.TextSettings.Font.Style = [fsBold]; Label4.SetclProSettings(Label4.clProSettings); //panel for contact Panelcontact = loginform.AddNewProPanel(PanelForm,'Panelcontact'); Panelcontact.Align = alTop; Panelcontact.Height =50; Panelcontact.clProSettings.IsFill =False; Panelcontact.clProSettings.IsTransparent = True; Panelcontact.clProSettings.IsRound = True; //Panelcontact.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#381e76'); Panelcontact.SetclProSettings(Panelcontact.clProSettings); //button for instagram instabtn=loginform.AddNewProButton(Panelcontact, 'instabtn', '') instabtn.Align=alLeft; instabtn.Height=40; instabtn.clProSettings.FontSize=20; instabtn.clProSettings.IsFill =False; instabtn.clProSettings.IsTransparent = True; instabtn.SetclProSettings(instabtn.clProSettings); loginform.AddNewEvent(instabtn, tbeOnClick, 'OnInstagramAc'); //image for instagram instaImg=loginform.AddNewProImage(instabtn, 'instaImg'); instaImg.Align=alLeft; instaImg.Margins.Left=20; instaImg.Margins.Top=5; instaImg.Margins.Bottom=5; instaImg.Width=30; loginform.SetImage(instaImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img8.png'); //button for facebook facebtn=loginform.AddNewProButton(Panelcontact, 'facebtn', '') facebtn.Align=alLeft; facebtn.Height=40; facebtn.clProSettings.FontSize=20; facebtn.clProSettings.IsFill =False; facebtn.clProSettings.IsTransparent = True; facebtn.SetclProSettings(facebtn.clProSettings); loginform.AddNewEvent(facebtn, tbeOnClick, 'OnFacebookAc'); //image for facebook faceImg=loginform.AddNewProImage(facebtn, 'faceImg'); faceImg.Align=alLeft; instaImg.Margins.Left=20; faceImg.Margins.Top=5; faceImg.Margins.Bottom=5; faceImg.Width=30; loginform.SetImage(faceImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img7.png'); //button for tiktok tikbtn=loginform.AddNewProButton(Panelcontact, 'tikbtn', '') tikbtn.Align=alLeft; tikbtn.Height=40; tikbtn.clProSettings.FontSize=20; tikbtn.clProSettings.IsFill =False; tikbtn.clProSettings.IsTransparent = True; tikbtn.SetclProSettings(tikbtn.clProSettings); loginform.AddNewEvent(tikbtn, tbeOnClick, 'OnTiktokAc'); //image for tiktok tikImg=loginform.AddNewProImage(tikbtn, 'tikImg'); tikImg.Align=alLeft; instaImg.Margins.Left=20; tikImg.Margins.Top=5; tikImg.Margins.Bottom=5; tikImg.Width=30; loginform.SetImage(tikImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img9.png'); //button for X xbtn=loginform.AddNewProButton(Panelcontact, 'xbtn', '') xbtn.Align=alLeft; xbtn.Height=40; xbtn.clProSettings.FontSize=20; xbtn.clProSettings.IsFill =False; xbtn.clProSettings.IsTransparent = True; xbtn.SetclProSettings(xbtn.clProSettings); loginform.AddNewEvent(xbtn, tbeOnClick, 'OnTwiterAc'); //image for X xImg=loginform.AddNewProImage(xbtn, 'xImg'); xImg.Align=alLeft; instaImg.Margins.Left=20; xImg.Margins.Top=5; xImg.Margins.Bottom=5; xImg.Width=30; loginform.SetImage(xImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img12.png'); loginform.Run; } https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

Emr.Erkmn Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Moderatör Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Değil Puanlar: 974	Mesaj Seçenekleri Yanıt Yaz Alıntı Emr.Erkmn Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 2 Saat 22 Dakika Önce Saat 18:04
	Merhaba Barthez, bu sorunun yaşanmasının en temel sebebi telefonla bilgisayarın aynı ağda bağlı olmaması, diğer bir durum da bilgisayar güvenlik duvarı engeli, bir diğer sebepte mobil işletim sistemin de güvenlik sebebiyle engellemesihttps://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">