Clomosy | Forum : Drivedan çekilen görsel için kod hatası

Clomosy | Forum : Drivedan çekilen görsel için kod hatası https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 06 Jul 2026 20:46:25 +0000 Mon, 06 Jul 2026 18:10:51 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 30 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1590 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[Drivedan çekilen görsel için kod hatası : Merhaba,https://static.cloudfl...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1590&PID=3671#3671 Yazar: vesile
Konu: 1590
Gönderim Zamanı: 06 Temmuz 2026 Saat 18:10

Merhaba, https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" 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">

Aynı hatayı tekrardan döndürüyor.

]]> Mon, 06 Jul 2026 18:10:51 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1590&PID=3671#3671 <![CDATA[Drivedan çekilen görsel için kod hatası : Merhaba çalıstırıp deneyebilir...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1590&PID=3670#3670 Yazar: MehmetOzcan
Konu: 1590
Gönderim Zamanı: 06 Temmuz 2026 Saat 18:00

Merhaba çalıstırıp deneyebilirmisiniz.https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" 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">

var

LoginForm : TclForm;

MainPanel, HeaderPanel, CardPanel, FormPanel : TclPanel;

ImgLogo : TclImage;

LblBaslik, LblAciklama : TclLabel;

EdtEmail, EdtSifre : TclEdit;

BtnGiris, BtnKayit : TclButton;

void GirisYap;

{

if (EdtEmail.Text == '')

ShowMessage('Lütfen e-posta adresinizi giriniz.');

else if (EdtSifre.Text == '')

ShowMessage('Lütfen şifrenizi giriniz.');

else

ShowMessage('Giriş kontrolü yapılacak.');

}

void KayitEkraninaGit;

{

ShowMessage('Kayıt ekranı açılacak.');

}

{

LoginForm = TclForm.Create(Self);

LoginForm.clSetCaption('Terzim');

LoginForm.SetFormColor('#F3F4F8', '#F3F4F8', clGVertical);

MainPanel = LoginForm.AddNewPanel(LoginForm, 'MainPanel');

MainPanel.Align = alClient;

HeaderPanel = LoginForm.AddNewPanel(MainPanel, 'HeaderPanel');

HeaderPanel.Align = alTop;

HeaderPanel.Height = 260;

ImgLogo = LoginForm.AddNewImage(HeaderPanel, 'ImgLogo');

ImgLogo.Align = alTop;

ImgLogo.Height = 115;

LoginForm.SetImage(ImgLogo, 'https://drive.google.com/uc?export=view&id=1GlGa6PTruDLui7_6kl_YexHlWhQWYwZn');

LblBaslik = LoginForm.AddNewLabel(HeaderPanel, 'LblBaslik', 'TERZİM');

LblBaslik.Align = alTop;

LblBaslik.Height = 60;

LblBaslik.StyledSettings = ssFamily;

LblBaslik.TextSettings.Font.Size = 34;

LblBaslik.TextSettings.HorzAlign = taCenter;

LblAciklama = LoginForm.AddNewLabel(HeaderPanel, 'LblAciklama', 'Terzi hizmetlerine kolayca ulaş');

LblAciklama.Align = alTop;

LblAciklama.Height = 35;

LblAciklama.TextSettings.Font.Size = 17;

LblAciklama.TextSettings.HorzAlign = taCenter;

CardPanel = LoginForm.AddNewPanel(MainPanel, 'CardPanel');

CardPanel.Align = alTop;

CardPanel.Height = 360;

CardPanel.Margins.Left = 25;

CardPanel.Margins.Right = 25;

CardPanel.Margins.Top = 25;

FormPanel = LoginForm.AddNewPanel(CardPanel, 'FormPanel');

FormPanel.Align = alClient;

FormPanel.Margins.Left = 20;

FormPanel.Margins.Right = 20;

FormPanel.Margins.Top = 25;

FormPanel.Margins.Bottom = 20;

EdtEmail = LoginForm.AddNewEdit(FormPanel, 'EdtEmail', 'E-posta adresiniz');

EdtEmail.Align = alTop;

EdtEmail.Height = 55;

EdtEmail.KeyboardType = vktEmailAddress;

EdtSifre = LoginForm.AddNewEdit(FormPanel, 'EdtSifre', 'Şifreniz');

EdtSifre.Align = alTop;

EdtSifre.Height = 55;

EdtSifre.Margins.Top = 12;

BtnGiris = LoginForm.AddNewButton(FormPanel, 'BtnGiris', 'Giriş Yap');

BtnGiris.Align = alTop;

BtnGiris.Height = 55;

BtnGiris.Margins.Top = 25;

BtnGiris.TextSettings.Font.Size = 18;

BtnKayit = LoginForm.AddNewButton(FormPanel, 'BtnKayit', 'Hesap Oluştur');

BtnKayit.Align = alTop;

BtnKayit.Height = 55;

BtnKayit.Margins.Top = 15;

LoginForm.AddNewEvent(BtnGiris, tbeOnClick, 'GirisYap');

LoginForm.AddNewEvent(BtnKayit, tbeOnClick, 'KayitEkraninaGit');

LoginForm.Run;

}

]]> Mon, 06 Jul 2026 18:00:42 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1590&PID=3670#3670 <![CDATA[Drivedan çekilen görsel için kod hatası : var LoginForm : TclForm; MainPanel,...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1590&PID=3668#3668 Yazar: vesile
Konu: 1590
Gönderim Zamanı: 06 Temmuz 2026 Saat 17:45

var 
  LoginForm : TclForm;
  MainPanel, HeaderPanel, CardPanel, FormPanel : TclPanel;
  ImgLogo : TclImage;
  LblBaslik, LblAciklama : TclLabel;
  EdtEmail, EdtSifre : TclEdit;
  BtnGiris, BtnKayit : TclButton;

void GirisYap;
{
  if (EdtEmail.Text == '')
    ShowMessage('Lütfen e-posta adresinizi giriniz.');
  else if (EdtSifre.Text == '')
    ShowMessage('Lütfen şifrenizi giriniz.');
  else
    ShowMessage('Giriş kontrolü yapılacak.');
}

void KayitEkraninaGit;
{
  ShowMessage('Kayıt ekranı açılacak.');
}

{
  LoginForm = TclForm.Create(Self);
  LoginForm.clSetCaption('Terzim');
  LoginForm.SetFormColor('#F3F4F8', '#F3F4F8', clGVertical);

  MainPanel = LoginForm.AddNewPanel(LoginForm, 'MainPanel');
  MainPanel.Align = alClient;

  HeaderPanel = LoginForm.AddNewPanel(MainPanel, 'HeaderPanel');
  HeaderPanel.Align = alTop;
  HeaderPanel.Height = 260;

  ImgLogo = LoginForm.AddNewImage(HeaderPanel, 'ImgLogo');
ImgLogo.Align = alTop;
ImgLogo.Height = 115;

LoginForm.SetImage(
  ImgLogo,
  'https://drive.google.com/uc?export=view&id=1GlGa6PTruDLui7_6kl_YexHlWhQWYwZn'
);

  ImgLogo = LoginForm.AddNewImage(HeaderPanel, 'ImgLogo');
  ImgLogo.Align = alTop;
  ImgLogo.Height = 115;

  // Drive'dan gelen görseli terzimlogo.png adıyla kullanacağız.
  LoginForm.SetImage(ImgLogo, 'terzimlogo.png');

  LblBaslik = LoginForm.AddNewLabel(HeaderPanel, 'LblBaslik', 'TERZİM');
  LblBaslik.Align = alTop;
  LblBaslik.Height = 60;
  LblBaslik.StyledSettings = ssFamily;
  LblBaslik.TextSettings.Font.Size = 34;
  LblBaslik.TextSettings.HorzAlign = taCenter;

  LblAciklama = LoginForm.AddNewLabel(HeaderPanel, 'LblAciklama', 'Terzi hizmetlerine kolayca ulaş');
  LblAciklama.Align = alTop;
  LblAciklama.Height = 35;
  LblAciklama.TextSettings.Font.Size = 17;
  LblAciklama.TextSettings.HorzAlign = taCenter;

  CardPanel = LoginForm.AddNewPanel(MainPanel, 'CardPanel');
  CardPanel.Align = alTop;
  CardPanel.Height = 360;
  CardPanel.Margins.Left = 25;
  CardPanel.Margins.Right = 25;
  CardPanel.Margins.Top = 25;

  FormPanel = LoginForm.AddNewPanel(CardPanel, 'FormPanel');
  FormPanel.Align = alClient;
  FormPanel.Margins.Left = 20;
  FormPanel.Margins.Right = 20;
  FormPanel.Margins.Top = 25;
  FormPanel.Margins.Bottom = 20;

  EdtEmail = LoginForm.AddNewEdit(FormPanel, 'EdtEmail', 'E-posta adresiniz');
  EdtEmail.Align = alTop;
  EdtEmail.Height = 55;
  EdtEmail.KeyboardType = vktEmailAddress;

  EdtSifre = LoginForm.AddNewEdit(FormPanel, 'EdtSifre', 'Şifreniz');
  EdtSifre.Align = alTop;
  EdtSifre.Height = 55;
  EdtSifre.Margins.Top = 12;

  BtnGiris = LoginForm.AddNewButton(FormPanel, 'BtnGiris', 'Giriş Yap');
  BtnGiris.Align = alTop;
  BtnGiris.Height = 55;
  BtnGiris.Margins.Top = 25;
  BtnGiris.TextSettings.Font.Size = 18;

  BtnKayit = LoginForm.AddNewButton(FormPanel, 'BtnKayit', 'Hesap Oluştur');
  BtnKayit.Align = alTop;
  BtnKayit.Height = 55;
  BtnKayit.Margins.Top = 15;

  LoginForm.AddNewEvent(BtnGiris, tbeOnClick, 'GirisYap');
  LoginForm.AddNewEvent(BtnKayit, tbeOnClick, 'KayitEkraninaGit');

  LoginForm.Run;
}
RUNTIME ERROR
File library Main: https://drive.google.com/uc?export=view&id=1GlGa6PTruDLui7_6kl_YexHlWhQWYwZn Download failed after multiple attempts: Cannot create file "C:\Users\HP\AppData\Roaming\ClomosyLearn\Assets\Projects\CLOSTARTER\EE7F1630ED4\uc?export=view&id=1GlGa6PTruDLui7_6kl_YexHlWhQWYwZn". Dosya adı, dizin adı veya birim etiketi sözdizimi hatalı when evaluating instruction CallProc ($FFFFFFFF,$2,$13EA270,$0,'SetImage').
Stack content is: [Null,Null,Null,Null...].
Source position: 43,2
Position: 43, 2

https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" 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">]]> Mon, 06 Jul 2026 17:45:59 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1590&PID=3668#3668