var

  UrunForm: TClForm;

  ScrollBox: TClVertScrollBox;

  UrunArama: TclProSearchEdit;

  UrunButon: TClProButton;

  btnBack: TclProButton;

  lblTitle: TclProLabel;

  RestObj: TClRest;

  ProductData: TclJSONQuery;

  UrunAdi, UrunBarkod: String;

void GoBack;

{

  UrunForm.clHide;

}

void OnSearchChange;

{

  ShowMessage('Aranıyor: ' + UrunArama.Text);

}

void FillProducts;

{

  RestObj = TClRest.Create;

  try

    RestObj.BaseURL = 'http://localhost:5007/api/Product/GetProductList'; 

    RestObj.Method = rmGet;

    RestObj.Execute;

    

    if (RestObj.StatusCode == 200)

    {

      ProductData = Clomosy.ClDataSetFromJSON(RestObj.Response);

      

      while (ProductData.Eof == False)

      {

        UrunAdi = ProductData.FieldByName('warehouseName').AsString;

        UrunBarkod = ProductData.FieldByName('barcode').AsString;

        

        UrunButon = UrunForm.AddNewProButton(ScrollBox, 'btn_' + UrunBarkod, UrunAdi);

        UrunButon.Align = alTop;

        UrunButon.Height = 65;

        UrunButon.Margins.Top = 8;

        UrunButon.Margins.Left = 15;

        UrunButon.Margins.Right = 15;     

        clComponent.SetupComponent(UrunButon, '{"BackgroundColor":"#FFFFFF", "TextColor":"#C71585", "TextSize":15, "RoundHeight":12, "BorderColor":"#C71585", "BorderWidth":1, "TextBold":"yes"}');

        

        ProductData.Next;

      }

    }

    else

    {

      ShowMessage('Sunucu Hatası. Kod: ' + IntToStr(RestObj.StatusCode));

    }

  except

    ShowMessage('Ürünler yüklenirken hata oluştu! Hata Mesajı: ' + LastExceptionMessage);

  }

}

{

  UrunForm = TClForm.Create(Self);

  UrunForm.SetFormColor('#FFF0F5', '', clGNone); 

  lblTitle = UrunForm.AddNewProLabel(UrunForm, 'lblTitle', 'ÜRÜN LİSTESİ');

  lblTitle.Align = alTop;

  lblTitle.Height = 50;

  clComponent.SetupComponent(lblTitle, '{"TextSize":22, "TextColor":"#C71585", "TextHorizontalAlign":"center", "TextBold":"yes"}');

  UrunArama = UrunForm.AddNewProSearchEdit(UrunForm, 'UrunArama', 'Ürün adı ile ara...');

  UrunArama.Align = alTop;

  UrunArama.Height = 45;

  UrunArama.Margins.Left = 15;

  UrunArama.Margins.Right = 15;

  UrunArama.Margins.Bottom = 10;

  clComponent.SetupComponent(UrunArama, '{"RoundHeight":10, "BorderColor":"#C71585", "BorderWidth":1}');

  ScrollBox = UrunForm.AddNewVertScrollBox(UrunForm, 'ScrollBox');

  ScrollBox.Align = alClient;

  btnBack = UrunForm.AddNewProButton(UrunForm, 'btnBack', '<< ANA MENÜYE DÖN');

  btnBack.Align = alBottom;

  btnBack.Height = 55;

  clComponent.SetupComponent(btnBack, '{"BackgroundColor":"#C71585", "TextColor":"#FFFFFF", "RoundHeight":10, "TextBold":"yes"}');

  UrunForm.AddNewEvent(btnBack, tbeOnClick, 'GoBack');

  

  FillProducts;

  UrunForm.Run;

}




.

https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" 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">

var

  UrunForm: TClForm;

  ScrollBox: TClVertScrollBox;

  UrunArama: TclProSearchEdit;

  UrunButon: TClProButton;

  btnBack: TclProButton;

  lblTitle: TclProLabel;

  RestObj: TClRest;

  HamMetin, UrunAdi: String;

  P1, P2: Integer;

  UrunListesi: TclStringList;

  i: Integer;

void GoBack;

{

  UrunForm.clHide;

}

void OnSearchChange;

{

  ShowMessage('Aranıyor: ' + UrunArama.Text);

}

void FillProducts;

{

  RestObj = TClRest.Create;

  try

    RestObj.BaseURL = 'http://localhost:5007/api/Product/GetProductList'; 

    RestObj.Method = rmGet;

    RestObj.Execute;

    ShowMessage(RestObj.response);

    if (RestObj.StatusCode == 200)

    {

      HamMetin = RestObj.Response;

      

      while (Pos('warehouseName":"', HamMetin) > 0)

      {

        P1 = Pos('warehouseName":"', HamMetin) + 16;

        HamMetin = Copy(HamMetin, P1, Length(HamMetin));

        P2 = Pos('"', HamMetin);

        UrunAdi = Copy(HamMetin, 1, P2 - 1);

        ShowMessage(UrunAdi);

        UrunButon = UrunForm.AddNewProButton(ScrollBox, 'btn' + IntToStr(P1), UrunAdi);

        UrunButon.Align = alTop;

        UrunButon.Height = 65;

        UrunButon.Margins.Top = 8;

        UrunButon.Margins.Left = 15;

        UrunButon.Margins.Right = 15;     

        clComponent.SetupComponent(UrunButon, '{"BackgroundColor":"#FFFFFF", "TextColor":"#C71585", "TextSize":15, "RoundHeight":12, "BorderColor":"#C71585", "BorderWidth":1, "TextBold":"yes"}');

        HamMetin = Copy(HamMetin, P2, Length(HamMetin));

      }

    }

  except

    ShowMessage('Ürünler yüklenirken hata oluştu!'+'Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);

  }

}

{

  UrunForm = TClForm.Create(Self);

  UrunForm.SetFormColor('#FFF0F5', '', clGNone); 

  lblTitle = UrunForm.AddNewProLabel(UrunForm, 'lblTitle', 'ÜRÜN LİSTESİ');

  lblTitle.Align = alTop;

  lblTitle.Height = 50;

  clComponent.SetupComponent(lblTitle, '{"TextSize":22, "TextColor":"#C71585", "TextHorizontalAlign":"center", "TextBold":"yes"}');

  UrunArama = UrunForm.AddNewProSearchEdit(UrunForm, 'UrunArama', 'Ürün adı ile ara...');

  UrunArama.Align = alTop;

  UrunArama.Height = 45;

  UrunArama.Margins.Left = 15;

  UrunArama.Margins.Right = 15;

  UrunArama.Margins.Bottom = 10;

  clComponent.SetupComponent(UrunArama, '{"RoundHeight":10, "BorderColor":"#C71585", "BorderWidth":1}');

  ScrollBox = UrunForm.AddNewVertScrollBox(UrunForm, 'ScrollBox');

  ScrollBox.Align = alClient;

  btnBack = UrunForm.AddNewProButton(UrunForm, 'btnBack', '<< ANA MENÜYE DÖN');

  btnBack.Align = alBottom;

  btnBack.Height = 55;

  clComponent.SetupComponent(btnBack, '{"BackgroundColor":"#C71585", "TextColor":"#FFFFFF", "RoundHeight":10, "TextBold":"yes"}');

  UrunForm.AddNewEvent(btnBack, tbeOnClick, 'GoBack');

  FillProducts;

  UrunForm.Run;

}