Geliştirici Ortamında Üye Ekleme - Access Violation Hatası ile Karşılaşıyorum

Access Violation Hatası ile Karşılaşıyorum

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Projeye Üyelik Ekleme
Forum Adı: Geliştirici Ortamında Üye Ekleme
Forum Tanımlaması: Web sitesi üzerinden geliştirici ortamına girerek üye ekleme
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=887
Tarih: 01 Ocak 2025 Saat 18:10
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com

Konu: Access Violation Hatası ile Karşılaşıyorum

Mesajı Yazan: Hatice
Konu: Access Violation Hatası ile Karşılaşıyorum
Mesaj Tarihi: 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?

Cevaplar:

Mesajı Yazan: Developer
Mesaj Tarihi: 21 Ağustos 2024 Saat 14:40

Merhaba Hatice

Kodunun hepsini paylaşır mısın?

Mesajı Yazan: Hatice
Mesaj Tarihi: 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" rel="nofollow - 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" rel="nofollow - 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" rel="nofollow - 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" rel="nofollow - 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;

}

Mesajı Yazan: Developer
Mesaj Tarihi: 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" rel="nofollow - 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" rel="nofollow - 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" rel="nofollow - 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" rel="nofollow - 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;

}