Genel İşlemler

Sayfayı Yazdır | Pencereyi Kapat

Hata

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=1562
Tarih: 29 Haziran 2026 Saat 14:33
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com

Konu: Hata

Mesajı Yazan: MehmetOzcan
Konu: Hata
Mesaj Tarihi: 29 Haziran 2026 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" rel="nofollow - 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">

Cevaplar:

Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 29 Haziran 2026 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

Mesajı Yazan: MehmetOzcan
Mesaj Tarihi: 29 Haziran 2026 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