Sayfayı Yazdır | Pencereyi Kapat

Listviewe veritabanıyla görsel kaydedip çekme

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=711
Tarih: 08 Ocak 2025 Saat 00:41
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com


Konu: Listviewe veritabanıyla görsel kaydedip çekme
Mesajı Yazan: bekirr
Konu: Listviewe veritabanıyla görsel kaydedip çekme
Mesaj Tarihi: 22 Temmuz 2024 Saat 18:19
Var   
  MyForm:TclForm;
  dataListView : TclListView;
  Qry : TclSqlQuery;
 void SetListView;
 {
   dataListView = MyForm.AddNewListView(MyForm, 'dataListView');
   dataListView.Align = alClient;
   dataListView.Margins.Left = 5;
   dataListView.Margins.Bottom = 5;
   dataListView.Margins.Right = 10;
   dataListView.Margins.Top = 5;
 }
 
 void listViewVeriEkle; 
 {
  
  Qry.Connection = Clomosy.DBSQLServerConnection; 
  Qry.SQL.Text = 'SELECT UrunID as RECORD_GUID, UrunAD as 
  MAIN_TEXT, UrunFIYAT as SIDE_TEXT_BOTTOM from Urun';
  Qry.Open; 
  dataListView.clLoadListViewDataFromDataset(Qry); 
    
 }
 
 void GetData;
 {
  
  try 
    Qry.Connection = Clomosy.DBSQLServerConnection;
    Qry.SQL.Text = 'SELECT UrunID as RECORD_GUID,UrunAD as MAIN_TEXT,UrunFIYAT as FOOTER_TEXT FROM Urun';
    Qry.Open;
  except
    ShowMessage('Exception Class: '+LastExceptionClassName+' Exception GetData Message: '+LastExceptionMessage);
  }
 }

  void SqLInsertData;
  {
    try
      Clomosy.DBSQLServerQuery.Sql.Text = '
    INSERT INTO Urun (UrunID, UrunAD, UrunFIYAT) VALUES (1, ''a'',10);
    INSERT INTO Urun (UrunID, UrunAD, UrunFIYAT) VALUES (2, ''b'',20);
    INSERT INTO Urun (UrunID, UrunAD, UrunFIYAT) VALUES (3, ''c'',35);
    INSERT INTO Urun (UrunID, UrunAD, UrunFIYAT) VALUES (4, ''d'',35);
    INSERT INTO Urun (UrunID, UrunAD, UrunFIYAT) VALUES (5, ''e'',40);';
      Clomosy.DBSQLServerQuery.ExecSql;
      ShowMessage('Veri Ekleme Başarılı');
    except
     ShowMessage('Exception Class: '+LastExceptionClassName+' Exception SqLiteInsertData Message: '+LastExceptionMessage);
    }
  }
 
 
 {
   
       
   Qry = TclSqlQuery.Create(nil);
   Clomosy.DBSQLServerConnect('SQL Server','...','...','...','...',...); 
   Qry.Connection = Clomosy.DBSQLServerConnection;
   
   MyForm = TclForm.Create(Self);  
   SetListView;
   GetData;
   SqLInsertData;
   listViewVeriEkle; 
   MyForm.Run;
 } 
bu şekilde listview yapısına url ile görsel eklemek istiyorum verdiğiniz base64 çevirme kodlarını kullandım ancak sürekli hata aldım karmaşık bir kod yapısı oldu yardımcı olur musunuz



Cevaplar:
Mesajı Yazan: BilalCndn
Mesaj Tarihi: 23 Temmuz 2024 Saat 11:55
Merhaba Bekir,

TclProListView nesnesini kullanarak görsel ekleyebilirsin.
Detaylı bilgi için:
https://www.docs.clomosy.com/index.php/TClProListView" rel="nofollow - https://www.docs.clomosy.com/index.php/TClProListView

İyi çalışmalar dilerim.


-------------
Bilal Candan

Atiker Yazılım Veri İşlem A.Ş.
Software Developer

[email protected]



Sayfayı Yazdır | Pencereyi Kapat

Forum Software by Web Wiz Forums® version 12.07 - https://www.webwizforums.com
Copyright ©2001-2024 Web Wiz Ltd. - https://www.webwiz.net