Kod Bloğunda Hata

Merhaba kolay gelsin projmemin amacı bir kütüphanede yardımcı olmak için kitapların arkasındaki bardodu okuyup direk verileri kendi haznesine kaydetmesi keydederken kitap adı yazar adı alış tariğhi gibi verilerinde girilmesini istiyorum fakat barkod kısmına ne kadar çok denesemde her seferinde hata alıyorum.

İlgilenirseniz sevinirim.

///////////////////////////////////////////////////////////////////////////////////////////////////

var

  MyForm: TclForm;

  BookNameEdit: TclEdit;

  ScanBtn, PhotoBtn, SaveBtn: TclButton;

  BookListMemo: TclMemo;

  CameraImg: TclImage;

  QRGen: TclQRCodeGenerator;

  MyData: TclSQLite;

  Qry: TclSQLiteQuery;

// Barkod okuyucuyu çalıştırır ve sonucu Edit içine yazar

void ReadBarcode;

{

  MyForm.CallBarcodeReader(BookNameEdit);

}

// Galeriden resim seçer

void onPhotoClick;

{

  Clomosy.ImageChooser(MyForm, CameraImg);

}

// Veritabanındaki kitapları listeler (Uygulama açılışında verileri geri getirir)

void ListBooks;

{

  BookListMemo.Lines.Clear;

  Qry = MyData.clSelQuery('SELECT book_name FROM Books');

  

  if (Qry.Found)

  {

    while (not Qry.EOF)

    {

      BookListMemo.Lines.Add('- ' + Qry.FieldByName('book_name').AsString);

      Qry.Next;

    }

  }

}

// Veriyi SQLite'a kaydeder ve QR kodu oluşturur

void SaveToDatabase;

{

  if (BookNameEdit.Text <> '')

  {

    // Veriyi yerel veritabanına ekle

    MyData.clExecuteQuery('INSERT INTO Books (book_name) VALUES (''' + BookNameEdit.Text + ''')');[cite: 1]

    

    // QR Kodu dokümana uygun şekilde oluştur[cite: 1]

    QRGen.clGenerate(BookNameEdit.Text);[cite: 1]

    

    ShowMessage('Kayıt Başarılı: ' + BookNameEdit.Text);

    BookNameEdit.Text = '';

    ListBooks;

  }

}

{

  MyForm = TclForm.Create(Self);

  // --- SQLite Yapılandırması (Veri Kalıcılığı İçin) ---

  MyData = TclSQLite.Create(Self);

  MyData.DatabaseName = 'LibraryStorage';[cite: 1]

  MyData.clExecuteQuery('CREATE TABLE IF NOT EXISTS Books (book_id INTEGER PRIMARY KEY, book_name TEXT)');[cite: 1]

  BookNameEdit = MyForm.AddNewEdit(MyForm, 'BookNameEdit', 'Barkod Bekleniyor...');

  BookNameEdit.Align = alTop;

  ScanBtn = MyForm.AddNewButton(MyForm, 'ScanBtn', 'BARKOD TARAT');

  ScanBtn.Align = alTop;

  MyForm.AddNewEvent(ScanBtn, tbeOnClick, 'ReadBarcode');[cite: 1]

  PhotoBtn = MyForm.AddNewButton(MyForm, 'PhotoBtn', 'RESİM SEÇ');

  PhotoBtn.Align = alTop;

  MyForm.AddNewEvent(PhotoBtn, tbeOnClick, 'onPhotoClick');[cite: 1]

  SaveBtn = MyForm.AddNewButton(MyForm, 'SaveBtn', 'VERİTABANINA KAYDET');

  SaveBtn.Align = alTop;

  MyForm.AddNewEvent(SaveBtn, tbeOnClick, 'SaveToDatabase');[cite: 1]

  CameraImg = MyForm.AddNewImage(MyForm, 'CameraImg');

  CameraImg.Align = alTop;

  CameraImg.Height = 150;

  // QR Kod Üretici Tanımlama[cite: 1]

  QRGen = MyForm.AddNewQRCodeGenerator(MyForm, 'QRGen', 'Barkod QR');[cite: 1]

  QRGen.Align = alTop;

  QRGen.Height = 150;

  BookListMemo = MyForm.AddNewMemo(MyForm, 'BookListMemo', '');

  BookListMemo.Align = alClient;

  BookListMemo.ReadOnly = True;

  // Uygulama her açıldığında kayıtları yükle[cite: 1]

  ListBooks;[cite: 1]

  MyForm.Run;

}