Animasyon Kod Hatası

   İyi günler aynı kodum farklı cihazlarda farklı hatalar veriyor ilk başta çalışmıştı ondan sonra hata mesajı veren panel çıktı şimdiki cihazda da normal metin hatası vermekteRUNTIME ERRORFile library Main: Access violation at address 01B4D59C in module 'ClomosyLearn.exe' (offset B8D59C). Read of address 00000018 when evaluating instruction CallProc ($FFFFFFFF,$1,$1B4D528,$6CEEE10,'AddAssetFromUrl').
Stack content is: [Null,Null,Null,Integer:115076480...].
Source position: 12,72
Position: 12, 72)

 Kodum bu şekilde 

var
MyForm : TclForm;
TestBtn : TclProButton
 Form1:TclForm;
  animation1:TclBitmapListAnimation;
  circle1: TclCircle;

void buton;
 {

  Form1.AddAssetFromUrl('https://resmim.net/cdn/2026/03/02/wqhd77.png');
  circle1 = Form1.AddNewCircle(Form1, 'circle1');
  circle1.Fill.Kind = fbkBitmap;
  circle1.Fill.Bitmap.WrapMode = fbwmTileStretch;
  circle1.Width = 500; 
  circle1.Height = 500;
  circle1.Stroke.Thickness = 10;
  animation1 = Form1.AddNewBitmapListAnimation(circle1,'animation1'); 
  animation1.AnimationBitmap.LoadFromFile(clomosy.appfilespath + 'https://resmim.net/cdn/2026/03/02/wqhd77.png');

  animation1.Stop; 
  animation1.AnimationCount = 31;
  animation1.AnimationRowCount = 9;
  animation1.Delay = 0;
  animation1.Duration = 1.75;
  animation1.AutoReverse = True;
  animation1.Enabled = True;
  animation1.Loop = True;
  animation1.Start;

}

{
MyForm=TclForm.Create(Self)
TestBtn=MyForm.AddNewProButton(MyForm,'TestBtn','rakun');
TestBtn.Align = albottom; // butonun yerini belirler altop yukarıda demek albottom aşağıda altclient hepsi ekranın

TestBtn.height = 120;
TestBtn.margins.left = 100;
TestBtn.margins.right = 100;
TestBtn.clProSettings.BorderColor=clalphacolor.clhextocolor('#aecbc5')
TestBtn.clProSettings.BackGRoundColor=clalphacolor.clhextocolor('#aeb7cb')
TestBtn.clProSettings.FontColor=clalphacolor.clhextocolor('#623737')
TestBtn.clProSettings.FontSize=100
TestBtn.clProSettings.TextSettings.Font.Style = [fsBold]
//TestBtn.clProSettings.PictureSretch = True;
//TestBtn.clProSettings.PictureAutofit = True;
TestBtn.clProSettings.BorderWidth = 8
TestBtn.SetclProsettings(TestBtn.clProSettings)

  MyForm.AddNewEvent(TestBtn,tbeOnClick,'buton'); // butona basınca void ile rengin değişmesi
MyForm.Run;
}
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">

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
Hatice ✨ Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 16 Saat 3 Dakika Önce Konum: Konya Durum: Aktif Değil Puanlar: 2	Mesaj Seçenekleri Yanıt Yaz Alıntı Hatice ✨ Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Animasyon Kod Hatası Gönderim Zamanı: 15 Saat 52 Dakika Önce Saat 16:50
	İyi günler aynı kodum farklı cihazlarda farklı hatalar veriyor ilk başta çalışmıştı ondan sonra hata mesajı veren panel çıktı şimdiki cihazda da normal metin hatası vermekte RUNTIME ERROR File library Main: Access violation at address 01B4D59C in module 'ClomosyLearn.exe' (offset B8D59C). Read of address 00000018 when evaluating instruction CallProc ($FFFFFFFF,$1,$1B4D528,$6CEEE10,'AddAssetFromUrl'). Stack content is: [Null,Null,Null,Integer:115076480...]. Source position: 12,72 Position: 12, 72) Kodum bu şekilde var MyForm : TclForm; TestBtn : TclProButton Form1:TclForm; animation1:TclBitmapListAnimation; circle1: TclCircle; void buton; { Form1.AddAssetFromUrl('https://resmim.net/cdn/2026/03/02/wqhd77.png'); circle1 = Form1.AddNewCircle(Form1, 'circle1'); circle1.Fill.Kind = fbkBitmap; circle1.Fill.Bitmap.WrapMode = fbwmTileStretch; circle1.Width = 500; circle1.Height = 500; circle1.Stroke.Thickness = 10; animation1 = Form1.AddNewBitmapListAnimation(circle1,'animation1'); animation1.AnimationBitmap.LoadFromFile(clomosy.appfilespath + 'https://resmim.net/cdn/2026/03/02/wqhd77.png'); animation1.Stop; animation1.AnimationCount = 31; animation1.AnimationRowCount = 9; animation1.Delay = 0; animation1.Duration = 1.75; animation1.AutoReverse = True; animation1.Enabled = True; animation1.Loop = True; animation1.Start; } { MyForm=TclForm.Create(Self) TestBtn=MyForm.AddNewProButton(MyForm,'TestBtn','rakun'); TestBtn.Align = albottom; // butonun yerini belirler altop yukarıda demek albottom aşağıda altclient hepsi ekranın TestBtn.height = 120; TestBtn.margins.left = 100; TestBtn.margins.right = 100; TestBtn.clProSettings.BorderColor=clalphacolor.clhextocolor('#aecbc5') TestBtn.clProSettings.BackGRoundColor=clalphacolor.clhextocolor('#aeb7cb') TestBtn.clProSettings.FontColor=clalphacolor.clhextocolor('#623737') TestBtn.clProSettings.FontSize=100 TestBtn.clProSettings.TextSettings.Font.Style = [fsBold] //TestBtn.clProSettings.PictureSretch = True; //TestBtn.clProSettings.PictureAutofit = True; TestBtn.clProSettings.BorderWidth = 8 TestBtn.SetclProsettings(TestBtn.clProSettings) MyForm.AddNewEvent(TestBtn,tbeOnClick,'buton'); // butona basınca void ile rengin değişmesi MyForm.Run; } 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">

Emr.Erkmn Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Moderatör Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Değil Puanlar: 732	Mesaj Seçenekleri Yanıt Yaz Alıntı Emr.Erkmn Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 1 saat 45 Dakika Önce Saat 06:57
	Merhaba Hatice Gönderdiğin kodda bulunan hatalar; Form1.AddAssetFromUrl('https://resmim.net/cdn/2026/03/02/wqhd77.png'); Burada Form1 olarak yazıyor ama değişken tanımlamasında MyForm olarak geçiyor TclForm, Benzer hata circle1 = Form1.AddNewCircle(Form1, 'circle1');< defer="" ="https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" -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"> burada da yer alıyor değişken adlandırmalarını düzeltmen gerekiyor. Kodun çalışır hali; var MyForm : TclForm; TestBtn : TclProButton animation1:TclBitmapListAnimation; circle1: TclCircle; void buton; { circle1 = MyForm.AddNewCircle(MyForm, 'circle1'); circle1.Fill.Kind = fbkBitmap; circle1.Fill.Bitmap.WrapMode = fbwmTileStretch; circle1.Width = 500; circle1.Height = 500; circle1.Stroke.Thickness = 10; animation1 = MyForm.AddNewBitmapListAnimation(circle1,'animation1'); animation1.AnimationBitmap.LoadFromFile(clomosy.appfilespath + 'wqhd77.png'); animation1.Stop; animation1.AnimationCount = 31; animation1.AnimationRowCount = 9; animation1.Delay = 0; animation1.Duration = 1.75; animation1.AutoReverse = True; animation1.Enabled = True; animation1.Loop = True; animation1.Start; } { MyForm=TclForm.Create(Self) MyForm.AddAssetFromUrl('https://resmim.net/cdn/2026/03/02/wqhd77.png'); TestBtn=MyForm.AddNewProButton(MyForm,'TestBtn','rakun'); TestBtn.Align = albottom; // butonun yerini belirler altop yukarıda demek albottom aşağıda altclient hepsi ekranın TestBtn.height = 120; TestBtn.margins.left = 100; TestBtn.margins.right = 100; TestBtn.clProSettings.BorderColor=clalphacolor.clhextocolor('#aecbc5') TestBtn.clProSettings.BackGRoundColor=clalphacolor.clhextocolor('#aeb7cb') TestBtn.clProSettings.FontColor=clalphacolor.clhextocolor('#623737') TestBtn.clProSettings.FontSize=100 TestBtn.clProSettings.TextSettings.Font.Style = [fsBold] //TestBtn.clProSettings.PictureSretch = True; //TestBtn.clProSettings.PictureAutofit = True; TestBtn.clProSettings.BorderWidth = 8 TestBtn.SetclProsettings(TestBtn.clProSettings) MyForm.AddNewEvent(TestBtn,tbeOnClick,'buton'); // butona basınca void ile rengin değişmesi MyForm.Run; }