Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Projeye Üyelik Ekleme > Geliştirici Ortamında Üye Ekleme
  Aktif Konular Aktif Konular RSS - Access Violation Hatası ile Karşılaşıyorum
  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.

Access Violation Hatası ile Karşılaşıyorum
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
Hatice Açılır Kutu İzle
Yeni Üye
Yeni Üye
Simge

Kayıt Tarihi: 13 Ağustos 2024
Durum: Aktif Değil
Puanlar: 9 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Hatice Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: Access Violation Hatası ile Karşılaşıyorum
    Gönderim Zamanı: 19 Ağustos 2024 Saat 12:47
ListView öğeleri arasında boşluk bırakmaya çalışırken bir erişim ihlali (access violation) hatası alıyorum. Kullandığım kod şu şekilde:
listView.Properties.ItemSpace = 10;

Ancak bu kodu çalıştırdığımda aşağıdaki hata mesajını alıyorum:

TclStyleForm
RUNTIME ERROR
Access violation at address 0089A74A in module 'ClomosyLearn.exe'. 
Read of address 00000003 when evaluating instruction CallProc ($FFFFFFFF,$2,$1620EA8,$12109600,'SetupComponent').
Stack content is: [Null, Integer:162691632, Integer:196147472, Integer:196146208...].
Source position: 23,27
Position: 23, 27
Clomosy Build: 20240709.111531

Bu hata, ListView.Properties.ItemSpace özelliğini kullanmaya çalıştığımda meydana geliyor.

nasıl çözebileceğim konusunda yardımcı olabilir misiniz?
Yukarı Dön
Developer Açılır Kutu İzle
Forum Yöneticisi
Forum Yöneticisi


Kayıt Tarihi: 14 Haziran 2023
Durum: Aktif Değil
Puanlar: 354 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Developer Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 21 Ağustos 2024 Saat 14:40
Merhaba Hatice
Kodunun hepsini paylaşır mısın?
Yukarı Dön
Hatice Açılır Kutu İzle
Yeni Üye
Yeni Üye
Simge

Kayıt Tarihi: 13 Ağustos 2024
Durum: Aktif Değil
Puanlar: 9 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Hatice Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 21 Ağustos 2024 Saat 14:57
Tabbi ki. Aşağıda Veri Listeleme Unit'indeki tüm kodları ekledim.

var
uVeriListeleme: TCLForm;
uProfilSayfasi, uVeriAnalizi, uVeriEkleme: TclUnit;
panel: TclProPanel;
btn1, btn2, btn3, btn4 : TClProButton;
designerPanel : TClListViewDesignerPanel;
isim,kategori,fiyat,parabirimi : TClProLabel;
listview : TClProListView;
searchEdit : TClProSearchEdit;


void Search;
{
  searchEdit = uVeriListeleme.AddNewProSearchEdit(uVeriListeleme, 'searchEdit', 'Ürün Ara');
  searchEdit.Align = alTop;
  searchEdit.Margins.Top = 15;
  searchEdit.Margins.Left = 5;
  searchEdit.Margins.Right = 5;
  searchEdit.Margins.Bottom = 10;
  searchEdit.Height = 40;
}


 void CreateListView;
{
  listView = uVeriListeleme.AddNewProListView(uVeriListeleme,'listView');
  listView.clProSettings.ItemSpace = 10;     
  listView.clProSettings.IsFill = True;
  listView.Height = uVeriListeleme.clheight*95/100;

  listView.clProSettings.IsRound = True;

  listView.Align=alBottom;
  listView.clProSettings.RoundHeight = 5;
  listView.clProSettings.RoundWidth = 5;
  listView.clProSettings.BorderColor =clAlphaColor.clHexToColor('#88c394');
  listView.clProSettings.BorderWidth = 2;
  listView.clProSettings.ItemHeight = 705;
  listView.clProSettings.ColCount = 1;
  listView.SetclProSettings(listView.clProSettings);
  
  searchEdit.TargetListView = ListView;
  
}

void CreateDesignerPanel;
{
  designerPanel = uVeriListeleme.AddNewProListViewDesignerPanel(listView, 'designerPanel');
  
  clComponent.SetupComponent(designerPanel, 
  '{"Height":5,
    "BackgroundColor":"#e2deed",
    "RoundHeight":20,
    "RoundWidth":20}');
    listView.SetDesignerPanel(designerPanel);
}


void CreateData;
{
  isim=uVeriListeleme.AddNewProLabel(designerPanel, 'isim', 'isim');
  isim.clProSettings.FontVertAlign = palLeading;
  isim.Align=alTop;
  isim.Margins.Top=5;
  isim.Margins.Left=5;
  isim.clProSettings.AutoSize=True;
  isim.clProSettings.WordWrap=True;
  isim.clProSettings.FontColor =clAlphaColor.clHexToColor('#000000');
  isim.SetclProSettings(isim.clProSettings);
  DesignerPanel.AddPanelObject(isim, clCaption);
  
  
  kategori=uVeriListeleme.AddNewProLabel(designerPanel, 'kategori', 'kategori');
  kategori.clProSettings.FontVertAlign = palLeading;
  kategori.Align=alTop;
  kategori.Margins.Top=5;
  kategori.Margins.Left=5;
  kategori.clProSettings.AutoSize=True;
  kategori.clProSettings.WordWrap=True;
  kategori.clProSettings.FontColor =clAlphaColor.clHexToColor('#000000');
  kategori.SetclProSettings(kategori.clProSettings);
  DesignerPanel.AddPanelObject(kategori, clText);
  
  
  fiyat=uVeriListeleme.AddNewProLabel(designerPanel, 'fiyat', 'fiyat');
  fiyat.clProSettings.FontVertAlign = palLeading;
  fiyat.Align=alTop;
  fiyat.Margins.Top=5;
  fiyat.Margins.Left=5;
  fiyat.clProSettings.AutoSize=True;
  fiyat.clProSettings.WordWrap=True;
  fiyat.clProSettings.FontColor =clAlphaColor.clHexToColor('#000000');
  fiyat.SetclProSettings(fiyat.clProSettings);
  DesignerPanel.AddPanelObject(fiyat, clText);
  
  
  
  parabirimi=uVeriListeleme.AddNewProLabel(designerPanel, 'parabirimi', 'parabirimi');
  parabirimi.clProSettings.FontVertAlign = palLeading;
  parabirimi.Align=alTop;
  parabirimi.Margins.Top=5;
  parabirimi.Margins.Left=5;
  parabirimi.clProSettings.AutoSize=True;
  parabirimi.clProSettings.WordWrap=True;
  parabirimi.clProSettings.FontColor =clAlphaColor.clHexToColor('#000000');
  parabirimi.SetclProSettings(parabirimi.clProSettings);
  DesignerPanel.AddPanelObject(parabirimi, clText);
  
}


 void AddDataToListView;
 {
  listView.clLoadProListViewDataFromDataset(Clomosy.ClDataSetFromJSON( '[
    {"isim": "cikolata", "kategori": "yiyecek","fiyat": "30","parabirimi": "TL"},
    {"isim": "oje", "kategori": "kisiselbakim","fiyat": "80","parabirimi": "TL"},
    {"isim": "pantolon", "kategori": "giyim","fiyat": "1000","parabirimi": "TL"}
  ]'));
 }


void CreateListView;
{
listview = uVeriListeleme.AddNewProListView(uVeriListeleme, 'listtView');
clComponent.SetupComponent(listView,'{
"Align": "alClient",
"Width":69,
"Height":150,
"RoundHeight":10,
"RoundWidth":10,
"BorderWidth":2
"listType":"Cart",
"ItemColumnCount" : 2,
"ItemHeight" : 150,
"ItemWidth":150,
"Backgroundcolor":"#88c394",
"BorderColor":"#8e8fde"}');

listView.Properties.ItemSpace = 10;

}

void MesajGoster;
{
  ShowMessage('Zaten Veri Listeleme Sayfasindasin');
}

void GoToProfilSayfasi;
{
    uVeriListeleme.clShow;
    uProfilSayfasi.UnitName = 'uProfilSayfasi';
    uProfilSayfasi.CallerForm = uVeriListeleme;
    uProfilSayfasi.Run;
}


void GotoVeriAnalizi;
{
    uVeriListeleme.clShow;
    uVeriAnalizi.UnitName = 'uVeriAnalizi';
    uVeriAnalizi.CallerForm = uVeriListeleme;
    uVeriAnalizi.Run;
}


void GoToVeriEkleme;
{
    uVeriListeleme.clShow;
    uVeriEkleme.UnitName = 'VeriEkleme';
    uVeriEkleme.CallerForm = uVeriListeleme;
    uVeriEkleme.Run;
}

{

uVeriListeleme = TCLForm.Create(Self);

uProfilSayfasi = TclUnit.Create;
uVeriEkleme = TclUnit.Create;
uVeriAnalizi = TclUnit.Create;


panel = uVeriListeleme.AddNewProPanel(uVeriListeleme,'panel');
clComponent.SetupComponent(panel,'{
"Align" : "alMostBottom",
"Width" :360, 
"Height":20,
"RoundHeight":10,
"RoundWidth":10,
"Backgroundcolor": "#e2deed"}');
panel.Align = alMostBottom;

btn1 = uVeriListeleme.AddNewProButton(panel, 'btn1', '');
clComponent.SetupComponent(btn1,'{"RoundHeight":10,"Width":69,"Height":45,"Backgroundcolor":"#ffffff",
"RoundWidth":10,"BorderColor":"#8e8fde","BorderWidth":2,"Imgurl":"https://clomosy.com/assets/images/1024x500.png","ImgFit":"yes"
}');
btn1.Margins.Right = 290;
uVeriListeleme.AddNewEvent(btn1,tbeOnClick,'GoToProfilSayfasi');


btn2 = uVeriListeleme.AddNewProButton(panel, 'btn2', '');
clComponent.SetupComponent(btn2,'{"RoundHeight":10,"Width":69,"Height":45,"Backgroundcolor":"#ffffff",
"RoundWidth":10,"BorderColor":"#8e8fde","BorderWidth":2,"Imgurl":"https://clomosy.com/assets/images/1024x500.png","ImgFit":"yes"
}');
btn2.Margins.Right = 145;
uVeriListeleme.AddNewEvent(btn2,tbeOnClick,'GoToVeriEkleme');


btn3 = uVeriListeleme.AddNewProButton(panel, 'btn3', '');
clComponent.SetupComponent(btn3,'{"RoundHeight":10,"Width":69,"Height":45,"Backgroundcolor":"#ffffff",
"RoundWidth":10,"BorderColor":"#8e8fde","BorderWidth":2,"Imgurl":"https://clomosy.com/assets/images/1024x500.png","ImgFit":"yes"
}');
btn3.Margins.Left = 0;
uVeriListeleme.AddNewEvent(btn3,tbeOnClick,'MesajGoster');

  
btn4 = uVeriListeleme.AddNewProButton(panel, 'btn4', '');
clComponent.SetupComponent(btn4,'{"RoundHeight":10,"Width":69,"Height":45,"Backgroundcolor":"#ffffff",
"RoundWidth":10,"BorderColor":"#8e8fde","BorderWidth":2,"Imgurl":"https://clomosy.com/assets/images/1024x500.png","ImgFit":"yes"
}');
btn4.Margins.Left = 145;
uVeriListeleme.AddNewEvent(btn4,tbeOnClick,'GotoVeriAnalizi');


CreateListView;
CreateDesignerPanel;
CreateData;
AddDataToListView;
Search;
uVeriListeleme.Run;
  
}
Yukarı Dön
Developer Açılır Kutu İzle
Forum Yöneticisi
Forum Yöneticisi


Kayıt Tarihi: 14 Haziran 2023
Durum: Aktif Değil
Puanlar: 354 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Developer Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 21 Ağustos 2024 Saat 15:34
Merhaba Hatice
Aşağıdaki kodu inceler misin:
var
uVeriListeleme: TCLForm;
uProfilSayfasi, uVeriAnalizi, uVeriEkleme: TclUnit;
panel: TclProPanel;
btn1, btn2, btn3, btn4 : TClProButton;
designerPanel : TClListViewDesignerPanel;
isim,kategori,fiyat,parabirimi : TClProLabel;
listview : TClProListView;
searchEdit : TClProSearchEdit;


void Search;
{
  searchEdit = uVeriListeleme.AddNewProSearchEdit(uVeriListeleme, 'searchEdit', 'Ürün Ara');
  searchEdit.Align = alTop;
  searchEdit.Margins.Top = 15;
  searchEdit.Margins.Left = 5;
  searchEdit.Margins.Right = 5;
  searchEdit.Margins.Bottom = 10;
  searchEdit.Height = 40;
}


 void CreateListView;
{
  listView = uVeriListeleme.AddNewProListView(uVeriListeleme,'listView');
  listView.clProSettings.ItemSpace = 10;     
  listView.clProSettings.IsFill = True;
  listView.Height = uVeriListeleme.clheight*95/100;

  listView.clProSettings.IsRound = True;

  listView.Align=alBottom;
  listView.clProSettings.RoundHeight = 5;
  listView.clProSettings.RoundWidth = 5;
  listView.clProSettings.BorderColor =clAlphaColor.clHexToColor('#88c394');
  listView.clProSettings.BorderWidth = 2;
  listView.clProSettings.ItemHeight = 705;
  listView.clProSettings.ColCount = 1;
  listView.SetclProSettings(listView.clProSettings);
  
  searchEdit.TargetListView = ListView;
  
  
  clComponent.SetupComponent(listView,'{
"Align": "alClient",
"Width":69,
"Height":150,
"RoundHeight":10,
"RoundWidth":10,
"BorderWidth":2,
"listType":"Cart",
"ItemColumnCount" : 2,
"ItemHeight" : 150,
"ItemWidth":150,
"Backgroundcolor":"#88c394",
"BorderColor":"#8e8fde"}');

listView.Properties.ItemSpace = 10;
  
  
  
}

void CreateDesignerPanel;
{
  designerPanel = uVeriListeleme.AddNewProListViewDesignerPanel(listView, 'designerPanel');
  
  clComponent.SetupComponent(designerPanel, 
  '{"Height":5,
    "BackgroundColor":"#e2deed",
    "RoundHeight":20,
    "RoundWidth":20}');
    listView.SetDesignerPanel(designerPanel);
}


void CreateData;
{
  isim=uVeriListeleme.AddNewProLabel(designerPanel, 'isim', 'isim');
  isim.clProSettings.FontVertAlign = palLeading;
  isim.Align=alTop;
  isim.Margins.Top=5;
  isim.Margins.Left=5;
  isim.clProSettings.AutoSize=True;
  isim.clProSettings.WordWrap=True;
  isim.clProSettings.FontColor =clAlphaColor.clHexToColor('#000000');
  isim.SetclProSettings(isim.clProSettings);
  DesignerPanel.AddPanelObject(isim, clCaption);
  
  
  kategori=uVeriListeleme.AddNewProLabel(designerPanel, 'kategori', 'kategori');
  kategori.clProSettings.FontVertAlign = palLeading;
  kategori.Align=alTop;
  kategori.Margins.Top=5;
  kategori.Margins.Left=5;
  kategori.clProSettings.AutoSize=True;
  kategori.clProSettings.WordWrap=True;
  kategori.clProSettings.FontColor =clAlphaColor.clHexToColor('#000000');
  kategori.SetclProSettings(kategori.clProSettings);
  DesignerPanel.AddPanelObject(kategori, clText);
  
  
  fiyat=uVeriListeleme.AddNewProLabel(designerPanel, 'fiyat', 'fiyat');
  fiyat.clProSettings.FontVertAlign = palLeading;
  fiyat.Align=alTop;
  fiyat.Margins.Top=5;
  fiyat.Margins.Left=5;
  fiyat.clProSettings.AutoSize=True;
  fiyat.clProSettings.WordWrap=True;
  fiyat.clProSettings.FontColor =clAlphaColor.clHexToColor('#000000');
  fiyat.SetclProSettings(fiyat.clProSettings);
  DesignerPanel.AddPanelObject(fiyat, clText2);
  
  
  
  parabirimi=uVeriListeleme.AddNewProLabel(designerPanel, 'parabirimi', 'parabirimi');
  parabirimi.clProSettings.FontVertAlign = palLeading;
  parabirimi.Align=alTop;
  parabirimi.Margins.Top=5;
  parabirimi.Margins.Left=5;
  parabirimi.clProSettings.AutoSize=True;
  parabirimi.clProSettings.WordWrap=True;
  parabirimi.clProSettings.FontColor =clAlphaColor.clHexToColor('#000000');
  parabirimi.SetclProSettings(parabirimi.clProSettings);
  DesignerPanel.AddPanelObject(parabirimi, clText3);
  
}


 void AddDataToListView;
 {
  listView.clLoadProListViewDataFromDataset(Clomosy.ClDataSetFromJSON( '[
    {"isim": "cikolata", "kategori": "yiyecek","fiyat": "30","parabirimi": "TL"},
    {"isim": "oje", "kategori": "kisiselbakim","fiyat": "80","parabirimi": "TL"},
    {"isim": "pantolon", "kategori": "giyim","fiyat": "1000","parabirimi": "TL"} ]'));
 }


void CreateListView01;
{

listview = uVeriListeleme.AddNewProListView(uVeriListeleme, 'listtView');
clComponent.SetupComponent(listView,'{
"Align": "alClient",
"Width":69,
"Height":150,
"RoundHeight":10,
"RoundWidth":10,
"BorderWidth":2
"listType":"Cart",
"ItemColumnCount" : 2,
"ItemHeight" : 150,
"ItemWidth":150,
"Backgroundcolor":"#88c394",
"BorderColor":"#8e8fde"}');

listView.Properties.ItemSpace = 10;

}

void MesajGoster;
{
  ShowMessage('Zaten Veri Listeleme Sayfasindasin');
}

void GoToProfilSayfasi;
{
    uVeriListeleme.clShow;
    uProfilSayfasi.UnitName = 'uProfilSayfasi';
    uProfilSayfasi.CallerForm = uVeriListeleme;
    uProfilSayfasi.Run;
}


void GotoVeriAnalizi;
{
    uVeriListeleme.clShow;
    uVeriAnalizi.UnitName = 'uVeriAnalizi';
    uVeriAnalizi.CallerForm = uVeriListeleme;
    uVeriAnalizi.Run;
}


void GoToVeriEkleme;
{
    uVeriListeleme.clShow;
    uVeriEkleme.UnitName = 'VeriEkleme';
    uVeriEkleme.CallerForm = uVeriListeleme;
    uVeriEkleme.Run;
}

{

uVeriListeleme = TCLForm.Create(Self);

uProfilSayfasi = TclUnit.Create;
uVeriEkleme = TclUnit.Create;
uVeriAnalizi = TclUnit.Create;


panel = uVeriListeleme.AddNewProPanel(uVeriListeleme,'panel');
clComponent.SetupComponent(panel,'{
"Align" : "alMostBottom",
"Width" :360, 
"Height":20,
"RoundHeight":10,
"RoundWidth":10,
"Backgroundcolor": "#e2deed"}');
panel.Align = alMostBottom;

btn1 = uVeriListeleme.AddNewProButton(panel, 'btn1', '');
clComponent.SetupComponent(btn1,'{"RoundHeight":10,"Width":69,"Height":45,"Backgroundcolor":"#ffffff",
"RoundWidth":10,"BorderColor":"#8e8fde","BorderWidth":2,"Imgurl":"https://clomosy.com/assets/images/1024x500.png","ImgFit":"yes"
}');
btn1.Margins.Right = 290;
uVeriListeleme.AddNewEvent(btn1,tbeOnClick,'GoToProfilSayfasi');


btn2 = uVeriListeleme.AddNewProButton(panel, 'btn2', '');
clComponent.SetupComponent(btn2,'{"RoundHeight":10,"Width":69,"Height":45,"Backgroundcolor":"#ffffff",
"RoundWidth":10,"BorderColor":"#8e8fde","BorderWidth":2,"Imgurl":"https://clomosy.com/assets/images/1024x500.png","ImgFit":"yes"
}');
btn2.Margins.Right = 145;
uVeriListeleme.AddNewEvent(btn2,tbeOnClick,'GoToVeriEkleme');


btn3 = uVeriListeleme.AddNewProButton(panel, 'btn3', '');
clComponent.SetupComponent(btn3,'{"RoundHeight":10,"Width":69,"Height":45,"Backgroundcolor":"#ffffff",
"RoundWidth":10,"BorderColor":"#8e8fde","BorderWidth":2,"Imgurl":"https://clomosy.com/assets/images/1024x500.png","ImgFit":"yes"
}');
btn3.Margins.Left = 0;
uVeriListeleme.AddNewEvent(btn3,tbeOnClick,'MesajGoster');

  
btn4 = uVeriListeleme.AddNewProButton(panel, 'btn4', '');
clComponent.SetupComponent(btn4,'{"RoundHeight":10,"Width":69,"Height":45,"Backgroundcolor":"#ffffff",
"RoundWidth":10,"BorderColor":"#8e8fde","BorderWidth":2,"Imgurl":"https://clomosy.com/assets/images/1024x500.png","ImgFit":"yes"
}');
btn4.Margins.Left = 145;
uVeriListeleme.AddNewEvent(btn4,tbeOnClick,'GotoVeriAnalizi');

Search;
CreateListView;

CreateDesignerPanel;
CreateData;

AddDataToListView;
//CreateListView01;
uVeriListeleme.Run;
  
}
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,016 Saniyede Yüklendi.