Sayfayı Yazdır | Pencereyi Kapat

Syntax hatası

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Clomosy ile değişken kullanımı
Forum Tanımlaması: TRObject dili ile değişken tanımlaması ve ekranda gösterme
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=1418
Tarih: 16 Haziran 2026 Saat 05:03
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com


Konu: Syntax hatası
Mesajı Yazan: sudee.tanerr
Konu: Syntax hatası
Mesaj Tarihi: 05 Mart 2026 Saat 11:58
void TalepGonderButon_Click;
var
  izinRest, idRest: TclRest;
  izinJSON, s_Hour, s_Min, e_Hour, e_Min, cekilenID: String;
  bugun: TclDateTime;
  idJson: TclJsonObject;
  idPair: TclJSONPair;
{
  bugun = Date; 

  if ((Trim(izinCombo.Text) == '') || (Trim(aciklamaMemo.Text) == '')) {
    ShowMessage('Lütfen bütün bilgileri giriniz');
    exit;
  }

  if (baslangicDate.Datetime < bugun) {
    ShowMessage('Geçmiş bir tarihe izin talebi oluşturamazsınız!');
    exit; 
  }

  if (baslangicDate.Datetime > bitisDate.Datetime) {
    ShowMessage('Başlangıç tarihi bitiş tarihinden büyük olamaz');
    exit; 
  }

  s_Hour = CmbStartHour.Text;
  s_Min = CmbStartMin.Text;
  e_Hour = CmbEndHour.Text;
  e_Min = CmbEndMin.Text;
  
  // 1. KULLANICI ID'SINI ÇEK
  idRest = TclRest.Create;
  try {
    idRest.BaseUrl = 'http://localhost:5220/api/Izin/getid-by-email/' + uLib.GirisYapanEmail;
    idRest.Method = rmGet;
    idRest.Execute;

    if (idRest.StatusCode == 200) {
      idJson = TclJsonObject.Create;
      try {
        idJson.Parse(idRest.Response);
        idPair = idJson.GetPairByName('id');
        
        if (idPair <> nil) {
          cekilenID = idPair.Value;
        } else {
          ShowMessage('ID anahtarı JSON içinde bulunamadı.');
          exit;
        }
      } finally {
        idJson.Free;
      }

      // 2. KAYDETME (POST) - Sadece ID başarılıysa çalışır
      izinJSON = '{' +
        '"KullaniciID": ' + cekilenID + ', ' + 
        '"BaslangicTarihi": "' + DateTimeToStr(baslangicDate.Datetime) + '", ' +
        '"BitisTarihi": "' + DateTimeToStr(bitisDate.Datetime) + '", ' +
        '"BaslangicSaati": "' + s_Hour + ':' + s_Min + '", ' + 
        '"BitisSaati": "' + e_Hour + ':' + e_Min + '", ' +
        '"IzinTuru": "' + Trim(izinCombo.Text) + '", ' +
        '"Durum": "Beklemede", ' + 
        '"Aciklama": "' + Trim(aciklamaMemo.Text) + '"' +
      '}';

      izinRest = TclRest.Create;
      try {
        izinRest.BaseUrl = 'http://localhost:5220/api/Izin/ekle'; 
        izinRest.Accept = 'application/json';
        izinRest.AddBody(izinJSON, 'application/json');
        izinRest.Method = rmPost;
        izinRest.Execute; 

        if (izinRest.StatusCode == 200) {
          ShowMessage('Kayıt Başarılı ');
          Clomosy.RunUnit('Talepler');
        } else {
          ShowMessage('API Hatası! Kod: ' + IntToStr(izinRest.StatusCode));
        }
      } finally {
        izinRest.Free;
      }
    } else {
      ShowMessage('ID alınamadı: ' + IntToStr(idRest.StatusCode));
    }
  } 
  finally {
    idRest.Free;
  }
} 
bu kod üzerinde sürekli syntax hatası alıyorum yardımcı olabilir misiniz ne yapmam gerek?
https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" 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: kaanl0
Mesaj Tarihi: 05 Mart 2026 Saat 13:55
Merhaba süslü parantezlerle ilgili bir hatan olabilir. Kodu kendimde deneyemiyorum aşağıda attığım kodu deneyip geri dönüş yaparmısın

void TalepGonderButon_Click; var izinRest, idRest: TclRest; izinJSON, s_Hour, s_Min, e_Hour, e_Min, cekilenID: String; bugun: TclDateTime; idJson: TclJsonObject; idPair: TclJSONPair; { bugun = Date; if ((Trim(izinCombo.Text) == '') || (Trim(aciklamaMemo.Text) == '')) { ShowMessage('Lütfen bütün bilgileri giriniz'); exit; } if (baslangicDate.Datetime < bugun) { ShowMessage('Geçmiş bir tarihe izin talebi oluşturamazsınız!'); exit; } if (baslangicDate.Datetime > bitisDate.Datetime) { ShowMessage('Başlangıç tarihi bitiş tarihinden büyük olamaz'); exit; } s_Hour = CmbStartHour.Text; s_Min = CmbStartMin.Text; e_Hour = CmbEndHour.Text; e_Min = CmbEndMin.Text; // 1. KULLANICI ID'SINI ÇEK idRest = TclRest.Create; try idRest.BaseUrl = 'http://localhost:5220/api/Izin/getid-by-email/' + uLib.GirisYapanEmail; idRest.Method = rmGet; idRest.Execute; if (idRest.StatusCode == 200) { idJson = TclJsonObject.Create; try idJson.Parse(idRest.Response); idPair = idJson.GetPairByName('id'); if (idPair <> nil) { cekilenID = idPair.Value; } else { ShowMessage('ID anahtarı JSON içinde bulunamadı.'); exit; } finally idJson.Free; } // 2. KAYDETME (POST) - Sadece ID başarılıysa çalışır izinJSON = '{' + '"KullaniciID": ' + cekilenID + ', ' + '"BaslangicTarihi": "' + DateTimeToStr(baslangicDate.Datetime) + '", ' + '"BitisTarihi": "' + DateTimeToStr(bitisDate.Datetime) + '", ' + '"BaslangicSaati": "' + s_Hour + ':' + s_Min + '", ' + '"BitisSaati": "' + e_Hour + ':' + e_Min + '", ' + '"IzinTuru": "' + Trim(izinCombo.Text) + '", ' + '"Durum": "Beklemede", ' + '"Aciklama": "' + Trim(aciklamaMemo.Text) + '"' + '}'; izinRest = TclRest.Create; try izinRest.BaseUrl = 'http://localhost:5220/api/Izin/ekle'; izinRest.Accept = 'application/json'; izinRest.AddBody(izinJSON, 'application/json'); izinRest.Method = rmPost; izinRest.Execute; if (izinRest.StatusCode == 200) { ShowMessage('Kayıt Başarılı '); Clomosy.RunUnit('Talepler'); } else { ShowMessage('API Hatası! Kod: ' + IntToStr(izinRest.StatusCode)); } finally izinRest.Free; } } else { ShowMessage('ID alınamadı: ' + IntToStr(idRest.StatusCode)); } finally idRest.Free; } }









  https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" 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">

Mesajı Yazan: kaanl0
Mesaj Tarihi: 05 Mart 2026 Saat 13:55
void TalepGonderButon_Click;
var
  izinRest, idRest: TclRest;
  izinJSON, s_Hour, s_Min, e_Hour, e_Min, cekilenID: String;
  bugun: TclDateTime;
  idJson: TclJsonObject;
  idPair: TclJSONPair;
{
  bugun = Date; 

  if ((Trim(izinCombo.Text) == '') || (Trim(aciklamaMemo.Text) == '')) {
    ShowMessage('Lütfen bütün bilgileri giriniz');
    exit;
  }

  if (baslangicDate.Datetime < bugun) {
    ShowMessage('Geçmiş bir tarihe izin talebi oluşturamazsınız!');
    exit; 
  }

  if (baslangicDate.Datetime > bitisDate.Datetime) {
    ShowMessage('Başlangıç tarihi bitiş tarihinden büyük olamaz');
    exit; 
  }

  s_Hour = CmbStartHour.Text;
  s_Min = CmbStartMin.Text;
  e_Hour = CmbEndHour.Text;
  e_Min = CmbEndMin.Text;
  
  // 1. KULLANICI ID'SINI ÇEK
  idRest = TclRest.Create;
  try 
    idRest.BaseUrl = 'http://localhost:5220/api/Izin/getid-by-email/' + uLib.GirisYapanEmail;
    idRest.Method = rmGet;
    idRest.Execute;

    if (idRest.StatusCode == 200) {
      idJson = TclJsonObject.Create;
      try 
        idJson.Parse(idRest.Response);
        idPair = idJson.GetPairByName('id');
        
        if (idPair <> nil) {
          cekilenID = idPair.Value;
        } else {
          ShowMessage('ID anahtarı JSON içinde bulunamadı.');
          exit;
        }
      finally 
        idJson.Free;
      }

      // 2. KAYDETME (POST) - Sadece ID başarılıysa çalışır
      izinJSON = '{' +
        '"KullaniciID": ' + cekilenID + ', ' + 
        '"BaslangicTarihi": "' + DateTimeToStr(baslangicDate.Datetime) + '", ' +
        '"BitisTarihi": "' + DateTimeToStr(bitisDate.Datetime) + '", ' +
        '"BaslangicSaati": "' + s_Hour + ':' + s_Min + '", ' + 
        '"BitisSaati": "' + e_Hour + ':' + e_Min + '", ' +
        '"IzinTuru": "' + Trim(izinCombo.Text) + '", ' +
        '"Durum": "Beklemede", ' + 
        '"Aciklama": "' + Trim(aciklamaMemo.Text) + '"' +
      '}';

      izinRest = TclRest.Create;
      try 
        izinRest.BaseUrl = 'http://localhost:5220/api/Izin/ekle'; 
        izinRest.Accept = 'application/json';
        izinRest.AddBody(izinJSON, 'application/json');
        izinRest.Method = rmPost;
        izinRest.Execute; 

        if (izinRest.StatusCode == 200) {
          ShowMessage('Kayıt Başarılı ');
          Clomosy.RunUnit('Talepler');
        } else {
          ShowMessage('API Hatası! Kod: ' + IntToStr(izinRest.StatusCode));
        }
      finally 
        izinRest.Free;
      }
    } else {
      ShowMessage('ID alınamadı: ' + IntToStr(idRest.StatusCode));
    }
  finally 
    idRest.Free;
  }
}




https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" 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">

Mesajı Yazan: sudee.tanerr
Mesaj Tarihi: 05 Mart 2026 Saat 14:37
RUNTIME ERROR
File library Izin_sayfasi: Unit Talep_olustur: Syntax error.
Source position: 93,5 when evaluating instruction CallProc ($FFFFFFFF,$1,$1E9A270,$0,'RunUnit').
bu sekilde hata alıyorum su anda ve bu satır ise tam finally kısmının bittiği yere denk geliyor
https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" 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">

Mesajı Yazan: kaanl0
Mesaj Tarihi: 06 Mart 2026 Saat 07:04
Bu sefer çalışacaktır.

void TalepGonderButon_Click;
var
  izinRest, idRest: TclRest;
  izinJSON, s_Hour, s_Min, e_Hour, e_Min, cekilenID: String;
  bugun: TclDateTime;
{
  bugun = Date; 
  cekilenID = ''; 

  if ((Trim(izinCombo.Text) == '') || (Trim(aciklamaMemo.Text) == '')) {
    ShowMessage('Lütfen bütün bilgileri giriniz');
    exit;
  }

  if (baslangicDate.Date < bugun) {
    ShowMessage('Geçmiş bir tarihe izin talebi oluşturamazsınız!');
    exit; 
  }

  if (baslangicDate.Date > bitisDate.Date) {
    ShowMessage('Başlangıç tarihi bitiş tarihinden büyük olamaz');
    exit; 
  }

  s_Hour = CmbStartHour.Text;
  s_Min = CmbStartMin.Text;
  e_Hour = CmbEndHour.Text;
  e_Min = CmbEndMin.Text;
  
  // ==========================================
  // 1. AŞAMA: KULLANICI ID'SİNİ ÇEK
  // ==========================================
  idRest = TclRest.Create;
  try 
    idRest.BaseUrl = 'http://localhost:5220/api/Izin/getid-by-email/' + uLib.GirisYapanEmail;
    idRest.Method = rmGet;
    idRest.Execute;

    if (idRest.StatusCode == 200) {
      // CLParseJSON ile manuel obje oluşturmadan doğrudan ID'yi çekiyoruz
      cekilenID = Clomosy.CLParseJSON(idRest.Response, 'id');
    } else {
      ShowMessage('ID API Hatası: ' + IntToStr(idRest.StatusCode));
      exit;
    }
  finally 
    idRest.Free;
  } // <--- TRY BLOĞU SADECE SÜSLÜ PARANTEZ İLE KAPATILDI

  if ((cekilenID == '') || (cekilenID == 'null')) {
    ShowMessage('ID anahtarı sunucudan alınamadı.');
    exit;
  }

  // ==========================================
  // 2. AŞAMA: İZİN KAYDETME İŞLEMİ 
  // ==========================================
  izinJSON = '{' +
    '"KullaniciID": ' + cekilenID + ', ' + 
    '"BaslangicTarihi": "' + DateTimeToStr(baslangicDate.Date) + '", ' +
    '"BitisTarihi": "' + DateTimeToStr(bitisDate.Date) + '", ' +
    '"BaslangicSaati": "' + s_Hour + ':' + s_Min + '", ' + 
    '"BitisSaati": "' + e_Hour + ':' + e_Min + '", ' +
    '"IzinTuru": "' + Trim(izinCombo.Text) + '", ' +
    '"Durum": "Beklemede", ' + 
    '"Aciklama": "' + Trim(aciklamaMemo.Text) + '"' +
  '}';

  izinRest = TclRest.Create;
  try 
    izinRest.BaseUrl = 'http://localhost:5220/api/Izin/ekle'; 
    izinRest.Accept = 'application/json';
    izinRest.AddBody(izinJSON, 'application/json');
    izinRest.Method = rmPost;
    izinRest.Execute; 

    if (izinRest.StatusCode == 200) {
      ShowMessage('Kayıt Başarılı ');
      Clomosy.RunUnit('Talepler');
    } else {
      ShowMessage('API Hatası! Kod: ' + IntToStr(izinRest.StatusCode));
    }
  finally 
    izinRest.Free;
  } // <--- TRY BLOĞU SADECE SÜSLÜ PARANTEZ İLE KAPATILDI
}
https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" 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">

Mesajı Yazan: sudee.tanerr
Mesaj Tarihi: 06 Mart 2026 Saat 09:46
evet çalıştı.teşekkür ederim. https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" 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">


Sayfayı Yazdır | Pencereyi Kapat

Forum Software by Web Wiz Forums® version 12.07 - https://www.webwizforums.com
Copyright ©2001-2024 Web Wiz Ltd. - https://www.webwiz.net