Projeye Otomatik Dahil Olma - Drivedan çekilen görsel için kod hatası

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

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Projeye Üyelik Ekleme
Forum Adı: Projeye Otomatik Dahil Olma
Forum Tanımlaması: Proje aktivasyon kodunu girerek otomatik dahil olmak için kullanılan yöntem
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=1590
Tarih: 21 Ağustos 2026 Saat 01:38
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com

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

Mesajı Yazan: vesile
Konu: Drivedan çekilen görsel için kod hatası
Mesaj Tarihi: 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" rel="nofollow - 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" rel="nofollow - 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" rel="nofollow - 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

Cevaplar:

Mesajı Yazan: MehmetOzcan
Mesaj Tarihi: 06 Temmuz 2026 Saat 18:00

Merhaba çalıstırıp deneyebilirmisiniz. https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" rel="nofollow - 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" rel="nofollow - 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;

}

Mesajı Yazan: vesile
Mesaj Tarihi: 06 Temmuz 2026 Saat 18:10

Merhaba, https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" rel="nofollow - 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

Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 07 Temmuz 2026 Saat 09:57

Merhaba Vesile,

LoginForm.SetImage(

  ImgLogo,

  ' https://drive.google.com/uc?export=view&id=1GlGa6PTruDLui7_6kl_YexHlWhQWYwZn" rel="nofollow - https://drive.google.com/uc?export=view&id=1GlGa6PTruDLui7_6kl_YexHlWhQWYwZn '

);

Burada doğru anladıysam kod içerisinde görsel ekliyorsun 
onun yerine IDE de yer alan assest sekmesinden drive görseli yükleyip dosya konumunu sadece ekleyip çalıştırmayı dener misin?

< defer="" ="https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" -cf-beacon=""version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"_timing":"name":"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true,"location_startswith":null" crossorigin="anonymous">

Mesajı Yazan: kayra12
Mesaj Tarihi: 07 Temmuz 2026 Saat 09:58

merhaba vesile kodun tam hali burada iyi çalışmalar 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 sadece 1 kere tanımlanmalı

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

ImgLogo.Align = alTop;

ImgLogo.Height = 115;

// Projene eklediğin lokal görseli kullanıyoruz

LoginForm.SetImage(ImgLogo, ' https://i.hizliresim.com/nyujuzk.png" rel="nofollow - https://i.hizliresim.com/nyujuzk.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;

EdtSifre.Password = True; // Şifre karakterlerinin gizli görünmesini sağlar

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;

}

Mesajı Yazan: vesile
Mesaj Tarihi: 07 Temmuz 2026 Saat 10:02

Tamamdır hocam, deniyorum. https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" rel="nofollow - 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

Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 07 Temmuz 2026 Saat 10:22

Ayrıca görselin uzantısının png veya jpeg formatın da olması gerekli https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" rel="nofollow - 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">