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 |
Yazar | |
bekirr
Yeni Üye Kayıt Tarihi: 03 Temmuz 2024 Konum: Konya Durum: Aktif Değil Puanlar: 36 |
Mesaj Seçenekleri
Teşekkürler(0)
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ı?
|
|
Developer
Forum Yöneticisi Kayıt Tarihi: 14 Haziran 2023 Durum: Aktif Değil Puanlar: 354 |
Mesaj Seçenekleri
Yanıt Yaz
Alıntı Developer
Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.
|
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; }
|
|
bekirr
Yeni Üye Kayıt Tarihi: 03 Temmuz 2024 Konum: Konya Durum: Aktif Değil Puanlar: 36 |
Mesaj Seçenekleri
Teşekkürler(0)
|
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 |
|
Yanıt Yaz | |
Tweet |
Forum Atla | Forum İzinleri Kapalı Foruma Yeni Konu Gönderme Kapalı Forumdaki Konulara Cevap Yazma Kapalı Forumda Cevapları Silme Kapalı Forumdaki Cevapları Düzenleme Kapalı Forumda Anket Açma Kapalı Forumda Anketlerde Oy Kullanma |