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" rel="nofollow - 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;

  } 

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