Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - Veritabanı
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir.

Veritabanı

 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
bekirr Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 03 Temmuz 2024
Konum: Konya
Durum: Aktif Değil
Puanlar: 36
Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı bekirr Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: Veritabanı
    Gönderim Zamanı: 18 Temmuz 2024 Saat 16:27
İnternetten çektiğimiz görselleri veritabanına kaydedip sonra tekrardan veritabanından bu görselleri çekip görselleri listview formatında listeleyebileceğimiz genel bir örnek var mı?
Yukarı Dön
Developer Açılır Kutu İzle
Forum Yöneticisi
Forum Yöneticisi


Kayıt Tarihi: 14 Haziran 2023
Durum: Aktif Değil
Puanlar: 354
Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Developer Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 19 Temmuz 2024 Saat 16:39
Merhaba Bekir,
Aşağıdaki kodu kontrol eder misin?
var
   Port: Integer;
   Form1:TCLForm;
   qry : TClSQLiteQuery;
   MemStream: TclMemoryStream;
   BlobField: TBlobField;
   Img1 : TclImage;
   Base64String: string;
   BinaryData: TBytes;


 void OnGuideQryClick; 
 {
     try 
       Qry = Clomosy.DBSQLiteQueryWith('SELECT imgUrl FROM TBLDocs WHERE id = 23');
       qry.OpenOrExecute;
       if (qry.Found)
       {
       ShowMessage(qry.FieldByName('imgUrl').AsString);
         BlobField = qry.FieldByName('imgUrl') as TBlobField;
         //MemStream = TclMemoryStream.Create;
         BlobField.SaveToStream(MemStream); // Load BLOB data into the stream
         MemStream.Position = 0;
         //Base64String = Clomosy.StreamToBase64(MemStream);
         //Clomosy.setClipBoard(Base64String);//FOR TEST PURPOSE COPIES BASE6
         //Img1.Bitmap.LoadFromStream(MemStream); // Load the image from the stream
         Img1.Bitmap.LoadFromStream(MemStream);
         MemStream.Free;
         
       }
     except
       ShowMessage('[019] Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);
     }
}

   void SqLiteInsertData;
  {
    try

      Base64String = Clomosy.FileToBase64(clPathCombine('1Top.png',Clomosy.AppFilesPath));
      MemStream = TclMemoryStream.Create();
      MemStream = Clomosy.Base64ToStream(Base64String);
      
      //BinaryData := TNetEncoding.Base64.DecodeStringToBytes(Base64String);
    //  Clomosy.DBSQLiteQuery.Sql.Text = '
    //INSERT INTO TBLDocs (id, imgName,imgUrl) VALUES (1,''Image 1'','''+Clomosy.FileToBase64(clPathCombine('1Top.png',Clomosy.AppFilesPath))+''');'; //addassetfromurl ile dosyaları indir
      //Clomosy.DBSQLiteQuery.
        ShowMessage(Clomosy.AppFilesPath);
        base64String = Clomosy.FileToBase64(clPathCombine('1Top.png',Clomosy.AppFilesPath));
        Clomosy.DBSQLiteQuery.SQL.Text = 'INSERT INTO TBLDocs (id, imgName, imgUrl) VALUES (23, ''test'', :imgUrl)';
        //Clomosy.DBSQLiteQuery.ParamByName('imgName').AsString = 'Image from Base64';
        Clomosy.DBSQLiteQuery.ParamByName('imgUrl').value = MemStream;
      
      Clomosy.DBSQLiteQuery.OpenOrExecute;
      ShowMessage('Adding data to the table was successful!');
    except
     ShowMessage('Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);
    }
  }
  
  void SqLiteConnectionCreateTable;
  var
    TableExists: Boolean;
  {
    try
      Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'DBDocsFile.db3', '');
 
      // Check if the table exists
      Clomosy.DBSQLiteQuery.Sql.Text = 'SELECT name FROM sqlite_master WHERE type="table" AND name="TBLDocs";';
      Clomosy.DBSQLiteQuery.OpenOrExecute;
      
      // Check the results
      TableExists = not Clomosy.DBSQLiteQuery.Eof;
      
      // Create the table if it does not exist
      if not (TableExists)
      {
        Clomosy.DBSQLiteQuery.Sql.Text = 'CREATE TABLE TBLDocs (
                                          id INTEGER PRIMARY KEY,
                                          imgName TEXT NOT NULL,
                                          imgUrl BLOB NOT NULL
                                          );';
        Clomosy.DBSQLiteQuery.OpenOrExecute;
        
        ShowMessage('Table successfully added to the database!');
        
      } else
      {
        ShowMessage('The Products table already exists.');
      }

    except
     ShowMessage('Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);
    }
  }

  {
    Form1 = TclForm.Create(Self);
        ShowMessage(Clomosy.AppFilesPath);
    Img1 = Form1.AddNewImage(Form1,'Img1');
    Img1.Align = alClient;
    SqLiteConnectionCreateTable;
    SqLiteInsertData;
    OnGuideQryClick;
    Form1.Run;
  } 
Yukarı Dön
bekirr Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 03 Temmuz 2024
Konum: Konya
Durum: Aktif Değil
Puanlar: 36
Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı bekirr Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 22 Temmuz 2024 Saat 16:28
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 görsel eklemek istiyorum yukarıda 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
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.

Bu Sayfa 0,035 Saniyede Yüklendi.