Hata

   void OnFotoCekClick;
{
  Clomosy.ImageChooser(AnaForm, KanitGorsel);
}
void OnGoreviBitirClick;
var
  LResimYolu: String;
  LMemStream: TCLMemoryStream;
{
  LResimYolu = '-';

  try
    LMemStream = TCLMemoryStream.Create;
    KanitGorsel.Bitmap.SaveToStream(LMemStream);
    LResimYolu = clPathCombine('gorev_' + IntToStr(GSeciliGorevID) + '.jpg', Clomosy.AppFilesPath);
    Clomosy.Base64ToFile(LResimYolu, LMemStream.AsBase64);
    LMemStream.Free;
  except
    LResimYolu = '-';
  }

  if (GorevTamamla(GSeciliGorevID, EdtDurumNotu.Text, LResimYolu))
  {
    ShowMessage('Gorev Basariyla Tamamlandi!');
    GtAnaPnl.Visible = False;
    OzetKartlariniGuncelle;
    IcerikKaydirici.DeleteChildren;
    GorevListesiniDoldur;
  }
}
function GorevTamamla(AGorevID: Integer; ADurumNotu, AKanitFotoPath: String): Boolean;
{
  try
    Clomosy.DBSQLiteQuery.Sql.Text =
      'UPDATE TblGorevler SET Durum=' + QuotedStr('Tamamlandi') + ', ' +
      'BitisSaati=' + QuotedStr(FormatDateTime('hh:nn', Now)) + ', ' +
      'DurumNotu=' + QuotedStr(ADurumNotu) + ', ' +
      'KanitFotoPath=' + QuotedStr(AKanitFotoPath) +
      ' WHERE ID=' + IntToStr(AGorevID);
    Clomosy.DBSQLiteQuery.OpenOrExecute;
    Result = True;
  except
    ShowMessage('Gorev tamamlama hatasi: ' + LastExceptionMessage);
    Result = False;
  }
}

Burada fotocekclick ile foto çekiliyor daha sonra ongörevibitirclick ile görev tamamlanacak ve çekilen resim local veritabanına kaydedilecek. Veri tabanındaki ilgili fonksiyon ise function GorevTamamla . ongörevibitirclick'e tıkladıgımda clomosy learn uygulaması direkt kapanıyor ve görsel kaydedilmiyor olmuyor. yardımcı olabilirmisiniz

https://static.cloudflareinsights.com/beacon.min.js/v833ccba57c9e4d2798f2e76cebdd09a11778172276447" integrity="sha512-57MDmcccJXYtNnH+ZiBwzC4jb2rvgVCEokYN+L/nLlmO8rfYT/gIpW2A569iJ/3b+0UEasghjuZH/ma3wIs/EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
MehmetOzcan Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 23 Haziran 2026 Durum: Aktif Değil Puanlar: 19	Mesaj Seçenekleri Yanıt Yaz Alıntı MehmetOzcan Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Hata Gönderim Zamanı: 5 Saat 49 Dakika Önce Saat 10:06
	void OnFotoCekClick; { Clomosy.ImageChooser(AnaForm, KanitGorsel); } void OnGoreviBitirClick; var LResimYolu: String; LMemStream: TCLMemoryStream; { LResimYolu = '-'; try LMemStream = TCLMemoryStream.Create; KanitGorsel.Bitmap.SaveToStream(LMemStream); LResimYolu = clPathCombine('gorev_' + IntToStr(GSeciliGorevID) + '.jpg', Clomosy.AppFilesPath); Clomosy.Base64ToFile(LResimYolu, LMemStream.AsBase64); LMemStream.Free; except LResimYolu = '-'; } if (GorevTamamla(GSeciliGorevID, EdtDurumNotu.Text, LResimYolu)) { ShowMessage('Gorev Basariyla Tamamlandi!'); GtAnaPnl.Visible = False; OzetKartlariniGuncelle; IcerikKaydirici.DeleteChildren; GorevListesiniDoldur; } } function GorevTamamla(AGorevID: Integer; ADurumNotu, AKanitFotoPath: String): Boolean; { try Clomosy.DBSQLiteQuery.Sql.Text = 'UPDATE TblGorevler SET Durum=' + QuotedStr('Tamamlandi') + ', ' + 'BitisSaati=' + QuotedStr(FormatDateTime('hh:nn', Now)) + ', ' + 'DurumNotu=' + QuotedStr(ADurumNotu) + ', ' + 'KanitFotoPath=' + QuotedStr(AKanitFotoPath) + ' WHERE ID=' + IntToStr(AGorevID); Clomosy.DBSQLiteQuery.OpenOrExecute; Result = True; except ShowMessage('Gorev tamamlama hatasi: ' + LastExceptionMessage); Result = False; } } Burada fotocekclick ile foto çekiliyor daha sonra ongörevibitirclick ile görev tamamlanacak ve çekilen resim local veritabanına kaydedilecek. Veri tabanındaki ilgili fonksiyon ise function GorevTamamla . ongörevibitirclick'e tıkladıgımda clomosy learn uygulaması direkt kapanıyor ve görsel kaydedilmiyor olmuyor. yardımcı olabilirmisiniz https://static.cloudflareinsights.com/beacon.min.js/v833ccba57c9e4d2798f2e76cebdd09a11778172276447" integrity="sha512-57MDmcccJXYtNnH+ZiBwzC4jb2rvgVCEokYN+L/nLlmO8rfYT/gIpW2A569iJ/3b+0UEasghjuZH/ma3wIs/EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

Emr.Erkmn Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Moderatör Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Değil Puanlar: 932	Mesaj Seçenekleri Yanıt Yaz Alıntı Emr.Erkmn Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 1 saat 39 Dakika Önce Saat 14:16
	Merhaba Mehmet, İlgili kodu dener misin? void OnFotoCekClick; { Clomosy.ImageChooser(AnaForm, KanitGorsel); } void OnGoreviBitirClick; var LResimYolu: String; { LResimYolu = '-'; try if (KanitGorsel.clProSettings.PictureSource <> '') { LResimYolu = clPathCombine('gorev_' + IntToStr(GSeciliGorevID) + '.jpg', Clomosy.AppFilesPath); Clomosy.Base64ToFile(LResimYolu, Clomosy.FileToBase64(KanitGorsel.clProSettings.PictureSource)); } except LResimYolu = '-'; } if (GorevTamamla) { ShowMessage('Gorev Basariyla Tamamlandi!'); GtAnaPnl.Visible = False; OzetKartlariniGuncelle; IcerikKaydirici.DeleteChildren; GorevListesiniDoldur; } } function GorevTamamla: Boolean; { try Clomosy.DBSQLiteQuery.Sql.Text = 'UPDATE TblGorevler SET Durum=' + QuotedStr('Tamamlandi') + ', BitisSaati=' + QuotedStr(FormatDateTime('hh:nn', Now)) + ', DurumNotu=' + QuotedStr(EdtDurumNotu.Text) + ', KanitFotoPath=' + QuotedStr(LResimYolu) + ' WHERE ID=' + IntToStr(GSeciliGorevID); Clomosy.DBSQLiteQuery.OpenOrExecute; Result = True; except ShowMessage('Gorev tamamlama hatasi: ' + LastExceptionMessage); Result = False; } } denedikten sonra hata oluğ olmadığını söyler misin https://static.cloudflareinsights.com/beacon.min.js/v833ccba57c9e4d2798f2e76cebdd09a11778172276447" integrity="sha512-57MDmcccJXYtNnH+ZiBwzC4jb2rvgVCEokYN+L/nLlmO8rfYT/gIpW2A569iJ/3b+0UEasghjuZH/ma3wIs/EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

MehmetOzcan Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 23 Haziran 2026 Durum: Aktif Değil Puanlar: 19	Mesaj Seçenekleri Yanıt Yaz Alıntı MehmetOzcan Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 1 saat 28 Dakika Önce Saat 14:27
	Unit Main: Unit udatalib: Unknown identifier or variable is not declared: 'EdtDurumNotu'. Source position: 556,198. Source position: 1,14 bu hatayı aldım https://static.cloudflareinsights.com/beacon.min.js/v833ccba57c9e4d2798f2e76cebdd09a11778172276447" integrity="sha512-57MDmcccJXYtNnH+ZiBwzC4jb2rvgVCEokYN+L/nLlmO8rfYT/gIpW2A569iJ/3b+0UEasghjuZH/ma3wIs/EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">