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

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;

      //https://clomosy.com/learn/1Top.png

      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;

  }