Drivedan çekilen görsel için kod hatası

   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">

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
vesile Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 29 Haziran 2026 Durum: Aktif Değil Puanlar: 9	Mesaj Seçenekleri Yanıt Yaz Alıntı vesile Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Drivedan çekilen görsel için kod hatası Gönderim Zamanı: 6 Saat 38 Dakika Önce 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">
	vesile

MehmetOzcan Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 23 Haziran 2026 Durum: Aktif Değil Puanlar: 27	Mesaj Seçenekleri Yanıt Yaz Alıntı MehmetOzcan Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(1) Alıntı Cevapla Gönderim Zamanı: 6 Saat 23 Dakika Önce 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; }

vesile Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 29 Haziran 2026 Durum: Aktif Değil Puanlar: 9	Mesaj Seçenekleri Yanıt Yaz Alıntı vesile Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 6 Saat 13 Dakika Önce 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.
	vesile