Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - kod 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.

kod hatası
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
smeye Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 23 Haziran 2026
Durum: Aktif Değil
Puanlar: 15 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı smeye Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: kod hatası
    Gönderim Zamanı: 6 Saat 43 Dakika Önce Saat 18:00
var
  OdemeForm: TclForm;

  AnaPnl,
  HeaderPnl,
  FormPnl: TclProPanel;

  BaslikLbl,
  AltBaslikLbl: TclProLabel;

  UyeEdt,
  TutarEdt,
  TarihEdt,
  YontemEdt,
  AciklamaEdt: TclProEdit;

  KaydetBtn,
  GeriBtn: TclProButton;

  Rest: TclRest;

  SupabaseUrl,
  SupabaseKey,
  RequestBody: String;
  SecilenUyeID: String;

UyeRest: TclRest;



void PanelStili(
  APanel: TclProPanel;
  ArkaPlan: String;
  Kenar: String;
  Kose: Integer
);
{
  APanel.clProSettings.BackgroundColor =
    clAlphaColor.clHexToColor(ArkaPlan);

  APanel.clProSettings.BorderColor =
    clAlphaColor.clHexToColor(Kenar);

  APanel.clProSettings.BorderWidth = 1;
  APanel.clProSettings.RoundWidth = Kose;
  APanel.clProSettings.RoundHeight = Kose;

  APanel.SetclProSettings(
    APanel.clProSettings
  );
}



void LabelStili(
  ALbl: TclProLabel;
  Renk: String;
  Boyut: Integer;
  Kalin: Boolean
);
{
  ALbl.clProSettings.FontColor =
    clAlphaColor.clHexToColor(Renk);

  ALbl.clProSettings.FontSize =
    Boyut;

  if (Kalin)
  {
    ALbl.clProSettings.TextSettings.Font.Style =
      [fsBold];
  }
  else
  {
    ALbl.clProSettings.TextSettings.Font.Style =
      [];
  }

  ALbl.SetclProSettings(
    ALbl.clProSettings
  );
}



void EditStili(
  AEdit: TclProEdit
);
{
  AEdit.Height = 42;

  AEdit.clProSettings.RoundWidth = 10;
  AEdit.clProSettings.RoundHeight = 10;

  AEdit.clProSettings.BorderColor =
    clAlphaColor.clHexToColor('#CBD5E1');

  AEdit.SetclProSettings(
    AEdit.clProSettings
  );
}



void GeriDon;
{
  OdemeForm.clHide;

  Clomosy.RunUnit(
    'uDashboard'
  );
}
{
  SupabaseUrl =

SupabaseKey = 'eyJhbGciOiJIUzI1NiIsInR5cCI6IkpXVCJ9.eyJpc3MiOiJzdXBhYmFzZSIsInJlZiI6Inp0dGpxYWdrcXpjZ3JsbnhxYXJnIiwicm9sZSI6ImFub24iLCJpYXQiOjE3ODQxMTg4MjYsImV4cCI6MjA5OTY5NDgyNn0.mpDYGhrn6F0-1do8QtJUAXh6DK6Zo25SSI7S4-OQmFs';

  OdemeForm =
    TclForm.Create(Self);

  OdemeForm.SetFormColor(
    '#F8FAFC',
    '#F8FAFC',
    clGVertical
  );

  OdemeForm.FormWaiting.Visible = False;
  OdemeForm.BtnFormMenu.Visible = False;
  OdemeForm.BtnGoBack.Visible = False;

  AnaPnl =
    OdemeForm.AddNewProPanel(
      OdemeForm,
      'AnaPnl'
    );

  AnaPnl.Align = alClient;

  PanelStili(
    AnaPnl,
    '#F8FAFC',
    '#F8FAFC',
    0
  );

  HeaderPnl =
    OdemeForm.AddNewProPanel(
      AnaPnl,
      'HeaderPnl'
    );

  HeaderPnl.Align = alTop;
  HeaderPnl.Height = 90;

  PanelStili(
    HeaderPnl,
    '#FFFFFF',
    '#E2E8F0',
    0
  );

  BaslikLbl =
    OdemeForm.AddNewProLabel(
      HeaderPnl,
      'BaslikLbl',
      'Ödeme Al'
    );

  BaslikLbl.Align = alTop;
  BaslikLbl.Height = 38;
  BaslikLbl.Margins.Left = 20;
  BaslikLbl.Margins.Top = 16;

  LabelStili(
    BaslikLbl,
    '#0F172A',
    20,
    True
  );

  AltBaslikLbl =
    OdemeForm.AddNewProLabel(
      HeaderPnl,
      'AltBaslikLbl',
      'Üye ödeme bilgilerini giriniz.'
    );

  AltBaslikLbl.Align = alTop;
  AltBaslikLbl.Height = 24;
  AltBaslikLbl.Margins.Left = 20;

  LabelStili(
    AltBaslikLbl,
    '#64748B',
    10,
    False
  );

  FormPnl =
    OdemeForm.AddNewProPanel(
      AnaPnl,
      'FormPnl'
    );

  FormPnl.Align = alTop;
  FormPnl.Height = 360;
  FormPnl.Margins.Left = 40;
  FormPnl.Margins.Right = 40;
  FormPnl.Margins.Top = 20;

  PanelStili(
    FormPnl,
    '#FFFFFF',
    '#E2E8F0',
    12
  );

  UyeEdt =
    OdemeForm.AddNewProEdit(
      FormPnl,
      'Uye Seç (ID)',
      'Üye Adı'
    );

  UyeEdt.Align = alTop;
  EditStili(UyeEdt);

  TutarEdt =
    OdemeForm.AddNewProEdit(
      FormPnl,
      'TutarEdt',
      'Tutar'
    );

  TutarEdt.Align = alTop;
  EditStili(TutarEdt);

  TarihEdt =
    OdemeForm.AddNewProEdit(
      FormPnl,
      'TarihEdt',
      'Ödeme Tarihi'
    );

  TarihEdt.Align = alTop;
  EditStili(TarihEdt);

  YontemEdt =
    OdemeForm.AddNewProEdit(
      FormPnl,
      'YontemEdt',
      'Ödeme Yöntemi'
    );

  YontemEdt.Align = alTop;
  EditStili(YontemEdt);

  AciklamaEdt =
    OdemeForm.AddNewProEdit(
      FormPnl,
      'AciklamaEdt',
      'Açıklama'
    );

  AciklamaEdt.Align = alTop;
  EditStili(AciklamaEdt);

  KaydetBtn =
    OdemeForm.AddNewProButton(
      FormPnl,
      'KaydetBtn',
      'Ödemeyi Kaydet'
    );

  KaydetBtn.Align = alTop;
  KaydetBtn.Height = 46;
  KaydetBtn.Margins.Top = 18;

  KaydetBtn.clProSettings.BackgroundColor =
    clAlphaColor.clHexToColor('#2563EB');

  KaydetBtn.clProSettings.FontColor =
    clAlphaColor.clWhite;

  KaydetBtn.clProSettings.RoundWidth = 10;
  KaydetBtn.clProSettings.RoundHeight = 10;

  KaydetBtn.SetclProSettings(
    KaydetBtn.clProSettings
  );

  GeriBtn =
    OdemeForm.AddNewProButton(
      FormPnl,
      'GeriBtn',
      'Geri Dön'
    );

  GeriBtn.Align = alTop;
  GeriBtn.Height = 42;
  void OdemeKaydet;
{
SecilenUyeID =
Trim(UyeEdt.Text);

if (SecilenUyeID = '')
{
  ShowMessage(
    'Üye seçiniz.'
  );

  Exit;
}
  if (UyeEdt.Text == '')
  {
    ShowMessage(
      'Üye adı giriniz.'
    );

    Exit;
  }

  if (TutarEdt.Text == '')
  {
    ShowMessage(
      'Tutar giriniz.'
    );

    Exit;
  }

RequestBody =
'{' +

'"uye_id":' +
SecilenUyeID +
',' +

'"tutar":' +
TutarEdt.Text +
',' +

'"odeme_tarihi":"' +
TarihEdt.Text +
'",' +

'"odeme_turu":"' +
YontemEdt.Text +
'",' +

'"aciklama":"' +
AciklamaEdt.Text +
'"' +

'}';
  Rest = TclRest.Create;

  Rest.Accept = 'application/json';
  Rest.ContentType = 'application/json';
  Rest.Method = rmPOST;
  Rest.ConnectTimeOut = 30000;

  Rest.BaseURL =
    SupabaseUrl +
    '/rest/v1/odemeler';

  Rest.AddHeader(
    'apikey',
    SupabaseKey
  );

  Rest.AddHeader(
    'Authorization',
    'Bearer ' + SupabaseKey
  );

  Rest.AddHeader(
    'Prefer',
    'return=representation'
  );

  Rest.Body = RequestBody;

  Rest.Execute;

  if (Rest.StatusCode >= 200)
  {
    if (Rest.StatusCode < 300)
    {
      ShowMessage(
        'Ödeme başarıyla kaydedildi.'
      );

      UyeEdt.Text = '';
      TutarEdt.Text = '';
      TarihEdt.Text = '';
      YontemEdt.Text = '';
      AciklamaEdt.Text = '';

      Exit;
    }
  }

  ShowMessage(
    'HTTP: ' +
    IntToStr(Rest.StatusCode) +
    #13#10 +
    Rest.Response
  );
}



OdemeForm.AddNewEvent(
  KaydetBtn,
  tbeOnClick,
  'OdemeKaydet'
);

OdemeForm.AddNewEvent(
  GeriBtn,
  tbeOnClick,
  'GeriDon'
);

OdemeForm.Run;
}
kod hatası 
RUNTIME ERROR
File library Main: Unit uodemeler: Syntax error.
Source position: 302,7 when evaluating instruction CallProc ($FFFFFFFF,$1,$123A270,$0,"RunUnit").
Stack content is: [Null,Null,Null,Null...].
Source position: 673,33
Position: 673, 33
yardımcı olursanız sevinirim

https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1}" crossorigin="anonymous">
Yukarı Dön
seyma Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 09 Temmuz 2026
Durum: Aktif Değil
Puanlar: 10 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (1) Teşekkürler(1)   Alıntı seyma Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 6 Saat 20 Dakika Önce Saat 18:23
var
  OdemeForm: TclForm;

  AnaPnl,
  HeaderPnl,
  FormPnl: TclProPanel;

  BaslikLbl,
  AltBaslikLbl: TclProLabel;

  UyeEdt,
  TutarEdt,
  TarihEdt,
  YontemEdt,
  AciklamaEdt: TclProEdit;

  KaydetBtn,
  GeriBtn: TclProButton;

  Rest: TclRest;

  SupabaseUrl,
  SupabaseKey,
  RequestBody: String;
  SecilenUyeID: String;
  UyeRest: TclRest;

void PanelStili(APanel: TclProPanel; ArkaPlan: String; Kenar: String; Kose: Integer);
{
  APanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor(ArkaPlan);
  APanel.clProSettings.BorderColor = clAlphaColor.clHexToColor(Kenar);
  APanel.clProSettings.BorderWidth = 1;
  APanel.clProSettings.RoundWidth = Kose;
  APanel.clProSettings.RoundHeight = Kose;
  APanel.SetclProSettings(APanel.clProSettings);
}

void LabelStili(ALbl: TclProLabel; Renk: String; Boyut: Integer; Kalin: Boolean);
{
  ALbl.clProSettings.FontColor = clAlphaColor.clHexToColor(Renk);
  ALbl.clProSettings.FontSize = Boyut;

  if (Kalin)
  {
    ALbl.clProSettings.TextSettings.Font.Style = [fsBold];
  }
  else
  {
    ALbl.clProSettings.TextSettings.Font.Style = [];
  }

  ALbl.SetclProSettings(ALbl.clProSettings);
}

void EditStili(AEdit: TclProEdit);
{
  AEdit.Height = 42;
  AEdit.clProSettings.RoundWidth = 10;
  AEdit.clProSettings.RoundHeight = 10;
  AEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor('#CBD5E1');
  AEdit.SetclProSettings(AEdit.clProSettings);
}

void GeriDon;
{
  OdemeForm.clHide;
  Clomosy.RunUnit('uDashboard');
}

void OdemeKaydet;
{
  SecilenUyeID = Trim(UyeEdt.Text);

  if (SecilenUyeID == '')
  {
    ShowMessage('Üye seçiniz.');
    Exit;
  }
  if (UyeEdt.Text == '')
  {
    ShowMessage('Üye adı giriniz.');
    Exit;
  }
  if (TutarEdt.Text == '')
  {
    ShowMessage('Tutar giriniz.');
    Exit;
  }

  RequestBody = '{' +
    '"uye_id":' + SecilenUyeID + ',' +
    '"tutar":' + TutarEdt.Text + ',' +
    '"odeme_tarihi":"' + TarihEdt.Text + '",' +
    '"odeme_turu":"' + YontemEdt.Text + '",' +
    '"aciklama":"' + AciklamaEdt.Text + '"' +
    '}';

  Rest = TclRest.Create;
  Rest.Accept = 'application/json';
  Rest.Method = rmPOST;
  Rest.BaseURL = SupabaseUrl + '/rest/v1/odemeler';

  Rest.AddHeader('apikey', SupabaseKey);
  Rest.AddHeader('Authorization', 'Bearer ' + SupabaseKey);
  Rest.AddHeader('Prefer', 'return=representation');
  Rest.AddBody(RequestBody, 'application/json');

  Rest.Execute;

  if (Rest.StatusCode >= 200)
  {
    if (Rest.StatusCode < 300)
    {
      ShowMessage('Ödeme başarıyla kaydedildi.');

      UyeEdt.Text = '';
      TutarEdt.Text = '';
      TarihEdt.Text = '';
      YontemEdt.Text = '';
      AciklamaEdt.Text = '';
      Exit;
    }
  }

  ShowMessage('HTTP: ' + IntToStr(Rest.StatusCode) + #13#10 + Rest.Response);
}

// ==============================================================
// ANA FORM ÇALIŞMA BLOĞU
// ==============================================================
{
  SupabaseKey = 'eyJhbGciOiJIUzI1NiIsInR5cCI6IkpXVCJ9.eyJpc3MiOiJzdXBhYmFzZSIsInJlZiI6Inp0dGpxYWdrcXpjZ3JsbnhxYXJnIiwicm9sZSI6ImFub24iLCJpYXQiOjE3ODQxMTg4MjYsImV4cCI6MjA5OTY5NDgyNn0.mpDYGhrn6F0-1do8QtJUAXh6DK6Zo25SSI7S4-OQmFs';

  OdemeForm = TclForm.Create(Self);
  OdemeForm.SetFormColor('#F8FAFC', '#F8FAFC', clGVertical);

  OdemeForm.FormWaiting.Visible = False;
  OdemeForm.BtnFormMenu.Visible = False;
  OdemeForm.BtnGoBack.Visible = False;

  AnaPnl = OdemeForm.AddNewProPanel(OdemeForm, 'AnaPnl');
  AnaPnl.Align = alClient;
  PanelStili(AnaPnl, '#F8FAFC', '#F8FAFC', 0);

  HeaderPnl = OdemeForm.AddNewProPanel(AnaPnl, 'HeaderPnl');
  HeaderPnl.Align = alTop;
  HeaderPnl.Height = 90;
  PanelStili(HeaderPnl, '#FFFFFF', '#E2E8F0', 0);

  BaslikLbl = OdemeForm.AddNewProLabel(HeaderPnl, 'BaslikLbl', 'Ödeme Al');
  BaslikLbl.Align = alTop;
  BaslikLbl.Height = 38;
  BaslikLbl.Margins.Left = 20;
  BaslikLbl.Margins.Top = 16;
  LabelStili(BaslikLbl, '#0F172A', 20, True);

  AltBaslikLbl = OdemeForm.AddNewProLabel(HeaderPnl, 'AltBaslikLbl', 'Üye ödeme bilgilerini giriniz.');
  AltBaslikLbl.Align = alTop;
  AltBaslikLbl.Height = 24;
  AltBaslikLbl.Margins.Left = 20;
  LabelStili(AltBaslikLbl, '#64748B', 10, False);

  FormPnl = OdemeForm.AddNewProPanel(AnaPnl, 'FormPnl');
  FormPnl.Align = alTop;
  FormPnl.Height = 360;
  FormPnl.Margins.Left = 40;
  FormPnl.Margins.Right = 40;
  FormPnl.Margins.Top = 20;
  PanelStili(FormPnl, '#FFFFFF', '#E2E8F0', 12);

  // DÜZELTİLEN SATIR (Bileşen adı 'UyeSecEdt' yapıldı):
  UyeEdt = OdemeForm.AddNewProEdit(FormPnl, 'UyeSecEdt', 'Üye Adı');
  UyeEdt.Align = alTop;
  EditStili(UyeEdt);

  TutarEdt = OdemeForm.AddNewProEdit(FormPnl, 'TutarEdt', 'Tutar');
  TutarEdt.Align = alTop;
  EditStili(TutarEdt);

  TarihEdt = OdemeForm.AddNewProEdit(FormPnl, 'TarihEdt', 'Ödeme Tarihi');
  TarihEdt.Align = alTop;
  EditStili(TarihEdt);

  YontemEdt = OdemeForm.AddNewProEdit(FormPnl, 'YontemEdt', 'Ödeme Yöntemi');
  YontemEdt.Align = alTop;
  EditStili(YontemEdt);

  AciklamaEdt = OdemeForm.AddNewProEdit(FormPnl, 'AciklamaEdt', 'Açıklama');
  AciklamaEdt.Align = alTop;
  EditStili(AciklamaEdt);

  KaydetBtn = OdemeForm.AddNewProButton(FormPnl, 'KaydetBtn', 'Ödemeyi Kaydet');
  KaydetBtn.Align = alTop;
  KaydetBtn.Height = 46;
  KaydetBtn.Margins.Top = 18;
  KaydetBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');
  KaydetBtn.clProSettings.FontColor = clAlphaColor.clWhite;
  KaydetBtn.clProSettings.RoundWidth = 10;
  KaydetBtn.clProSettings.RoundHeight = 10;
  KaydetBtn.SetclProSettings(KaydetBtn.clProSettings);

  GeriBtn = OdemeForm.AddNewProButton(FormPnl, 'GeriBtn', 'Geri Dön');
  GeriBtn.Align = alTop;
  GeriBtn.Height = 42;

  OdemeForm.AddNewEvent(KaydetBtn, tbeOnClick, 'OdemeKaydet');
  OdemeForm.AddNewEvent(GeriBtn, tbeOnClick, 'GeriDon');

  OdemeForm.Run;
}
https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1}" 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.