Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Clomosy ile değişken kullanımı
  Aktif Konular Aktif Konular RSS - Syntax hatası
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir.

Syntax hatası
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
sudee.tanerr Açılır Kutu İzle
Deneyimli Üye
Deneyimli Üye


Kayıt Tarihi: 09 Şubat 2026
Durum: Aktif Değil
Puanlar: 63 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı sudee.tanerr Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: Syntax hatası
    Gönderim Zamanı: 7 Saat 17 Dakika Önce 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" 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">
Yukarı Dön
kaanl0 Açılır Kutu İzle
Kıdemli Üye
Kıdemli Üye
Simge

Kayıt Tarihi: 16 Eylül 2025
Konum: konya
Durum: Aktif Değil
Puanlar: 152 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı kaanl0 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 5 Saat 20 Dakika Önce 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" 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">
Yukarı Dön
kaanl0 Açılır Kutu İzle
Kıdemli Üye
Kıdemli Üye
Simge

Kayıt Tarihi: 16 Eylül 2025
Konum: konya
Durum: Aktif Değil
Puanlar: 152 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı kaanl0 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 5 Saat 20 Dakika Önce 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" 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">
Yukarı Dön
sudee.tanerr Açılır Kutu İzle
Deneyimli Üye
Deneyimli Üye


Kayıt Tarihi: 09 Şubat 2026
Durum: Aktif Değil
Puanlar: 63 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı sudee.tanerr Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 4 Saat 38 Dakika Önce 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" 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">
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.

Bu Sayfa 0,031 Saniyede Yüklendi.