Delphi Can › Delphi › Delphi ile Web Teknolojileri v
uni gui hata form arası geçiş
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Gösterim Stili
uni gui hata form arası geçiş
ibrahim.aydin@perga.com.tr Çevrimdışı
ibrahim aydın
*
Başlangıç
Yorumları: 74
Konuları: 22
Kayıt Tarihi: 09-06-2020
Aktif Kullandığınız Delphi Sürümü:
  • Delphi 10.3


Rep Puanı: 30
Başlangıç
#1
04-08-2020, Saat: 17:20
form arası geçişte 0098C536 adresinden erişim ihlali hatası nasıl giderile bilir acaba?
buton içindeki kodumuz
procedure TFormKayitListesi.UniButton1Click(Sender: TObject);
begin 
  FormKayitListesiResim.Show();
  FormKayitListesi.Hide;
end;

açılan form create özelligi 
procedure TFormKayitListesiResim.UniFormCreate(Sender: TObject);
begin
if MainForm.UniEdit3.Text='6316' then
  begin
   UniTreeView1.Items[9].Visible:=true;
         UniTreeView1.Items[13].Visible:=true;
  end else
    begin
       UniTreeView1.Items[9].Visible:=false;
          UniTreeView1.Items[13].Visible:=false;
    end;

UniEdit1.Text:=FormKayitListesi.UE_Islem_no.Text;
DmKayitListesiResim.QREsimBul.Close;
    DmKayitListesiResim.QREsimBul.Params[0].AsString:=UniEdit1.Text;
    DmKayitListesiResim.QREsimBul.Open();
    DmKayitListesiResim.QREsimBul.Active:=TRUE;

    if not DirectoryExists(UniServerModule.StartPath+'Kayıt Resim '+BAYI_NO+'\') then
    CreateDir(UniServerModule.StartPath+'Kayıt Resim '+BAYI_NO+'\');
end;


Ek Dosyalar Resimler
       
Cevapla
klavye Çevrimdışı
Acemi Düzeyi
**
Acemi
Yorumları: 521
Konuları: 59
Kayıt Tarihi: 27-02-2017
Aktif Kullandığınız Delphi Sürümü:
  • Delphi 7


Rep Puanı: 852
Acemi
#2
04-08-2020, Saat: 20:57
(04-08-2020, Saat: 17:20)ibrahim.aydin@perga.com.tr Adlı Kullanıcıdan Alıntı: form arası geçişte 0098C536 adresinden erişim ihlali hatası nasıl giderile bilir acaba?
buton içindeki kodumuz
procedure TFormKayitListesi.UniButton1Click(Sender: TObject);
begin 
  FormKayitListesiResim.Show();
  FormKayitListesi.Hide;
end;

açılan form create özelligi 
procedure TFormKayitListesiResim.UniFormCreate(Sender: TObject);
begin
if MainForm.UniEdit3.Text='6316' then
  begin
   UniTreeView1.Items[9].Visible:=true;
         UniTreeView1.Items[13].Visible:=true;
  end else
    begin
       UniTreeView1.Items[9].Visible:=false;
          UniTreeView1.Items[13].Visible:=false;
    end;

UniEdit1.Text:=FormKayitListesi.UE_Islem_no.Text;
DmKayitListesiResim.QREsimBul.Close;
    DmKayitListesiResim.QREsimBul.Params[0].AsString:=UniEdit1.Text;
    DmKayitListesiResim.QREsimBul.Open();
    DmKayitListesiResim.QREsimBul.Active:=TRUE;

    if not DirectoryExists(UniServerModule.StartPath+'Kayıt Resim '+BAYI_NO+'\') then
    CreateDir(UniServerModule.StartPath+'Kayıt Resim '+BAYI_NO+'\');
end;

Muhtemelen FormKayitListesi olusturulmadan 
Kod: (Select All)
UniEdit1.Text:=FormKayitListesi.UE_Islem_no.Text;
kodu ile erişmeye calisiyorsunuz
Cevapla
Halil Han BADEM Çevrimdışı
Üstad Düzeyi
*****
Üstad
Yorumları: 1.309
Konuları: 111
Kayıt Tarihi: 01-07-2017
Aktif Kullandığınız Delphi Sürümü:
  • Delphi 11


Rep Puanı: 6.983
Üstad
#3
04-08-2020, Saat: 22:36
(04-08-2020, Saat: 17:20)ibrahim.aydin@perga.com.tr Adlı Kullanıcıdan Alıntı: form arası geçişte 0098C536 adresinden erişim ihlali hatası nasıl giderile bilir acaba?
buton içindeki kodumuz
procedure TFormKayitListesi.UniButton1Click(Sender: TObject);
begin 
  FormKayitListesiResim.Show();
  FormKayitListesi.Hide;
end;

açılan form create özelligi 
procedure TFormKayitListesiResim.UniFormCreate(Sender: TObject);
begin
if MainForm.UniEdit3.Text='6316' then
  begin
   UniTreeView1.Items[9].Visible:=true;
         UniTreeView1.Items[13].Visible:=true;
  end else
    begin
       UniTreeView1.Items[9].Visible:=false;
          UniTreeView1.Items[13].Visible:=false;
    end;

UniEdit1.Text:=FormKayitListesi.UE_Islem_no.Text;
DmKayitListesiResim.QREsimBul.Close;
    DmKayitListesiResim.QREsimBul.Params[0].AsString:=UniEdit1.Text;
    DmKayitListesiResim.QREsimBul.Open();
    DmKayitListesiResim.QREsimBul.Active:=TRUE;

    if not DirectoryExists(UniServerModule.StartPath+'Kayıt Resim '+BAYI_NO+'\') then
    CreateDir(UniServerModule.StartPath+'Kayıt Resim '+BAYI_NO+'\');
end;

13 numaralı item yok sanırım. Item sayılarını kontrol edin. Indis'e dikkat edin. 
UniTreeView1.Items[12].Visible;
şu şekilde deneyebilirsiniz.
kisisel_logo_dark.png
WWW
Cevapla
pro_imaj Çevrimdışı
Moderatör
********
Moderatör Grubu
Yorumları: 1.044
Konuları: 149
Kayıt Tarihi: 14-08-2016
Aktif Kullandığınız Delphi Sürümü:
  • Delphi 10.4
  • Delphi 10.3


Rep Puanı: 4.093
Uzman
#4
05-08-2020, Saat: 08:39 (Son Düzenleme: 05-08-2020, Saat: 08:40, Düzenleyen: pro_imaj.)
(04-08-2020, Saat: 17:20)ibrahim.aydin@perga.com.tr Adlı Kullanıcıdan Alıntı: form arası geçişte 0098C536 adresinden erişim ihlali hatası nasıl giderile bilir acaba?
buton içindeki kodumuz
procedure TFormKayitListesi.UniButton1Click(Sender: TObject);
begin 
  FormKayitListesiResim.Show();
  FormKayitListesi.Hide;
end;

açılan form create özelligi 
procedure TFormKayitListesiResim.UniFormCreate(Sender: TObject);
begin
if MainForm.UniEdit3.Text='6316' then
  begin
   UniTreeView1.Items[9].Visible:=true;
         UniTreeView1.Items[13].Visible:=true;
  end else
    begin
       UniTreeView1.Items[9].Visible:=false;
          UniTreeView1.Items[13].Visible:=false;
    end;

UniEdit1.Text:=FormKayitListesi.UE_Islem_no.Text;
DmKayitListesiResim.QREsimBul.Close;
    DmKayitListesiResim.QREsimBul.Params[0].AsString:=UniEdit1.Text;
    DmKayitListesiResim.QREsimBul.Open();
    DmKayitListesiResim.QREsimBul.Active:=TRUE;

    if not DirectoryExists(UniServerModule.StartPath+'Kayıt Resim '+BAYI_NO+'\') then
    CreateDir(UniServerModule.StartPath+'Kayıt Resim '+BAYI_NO+'\');
end;

Merhaba,

Kodlarınızı editörde sağ üstteki Delphi Kod Ekle ile eklerseniz okuması hepimiz için daha kolay olur.

*Burada aynı işlemi iki kez  yapmış oluyorsunuz.
    DmKayitListesiResim.QREsimBul.Open();

   DmKayitListesiResim.QREsimBul.Active:=TRUE;

*Sorunun hangi satırda kaynaklandığına debug mod'da baktınız mı?

İyi çalışmalar.
Cevapla
ibrahim.aydin@perga.com.tr Çevrimdışı
ibrahim aydın
*
Başlangıç
Yorumları: 74
Konuları: 22
Kayıt Tarihi: 09-06-2020
Aktif Kullandığınız Delphi Sürümü:
  • Delphi 10.3


Rep Puanı: 30
Başlangıç
#5
06-08-2020, Saat: 09:05 (Son Düzenleme: 06-08-2020, Saat: 09:06, Düzenleyen: ibrahim.aydin@perga.com.tr.)
(05-08-2020, Saat: 08:39)pro_imaj Adlı Kullanıcıdan Alıntı:
(04-08-2020, Saat: 17:20)ibrahim.aydin@perga.com.tr Adlı Kullanıcıdan Alıntı: form arası geçişte 0098C536 adresinden erişim ihlali hatası nasıl giderile bilir acaba?
buton içindeki kodumuz
procedure TFormKayitListesi.UniButton1Click(Sender: TObject);
begin 
  FormKayitListesiResim.Show();
  FormKayitListesi.Hide;
end;

açılan form create özelligi 
procedure TFormKayitListesiResim.UniFormCreate(Sender: TObject);
begin
if MainForm.UniEdit3.Text='6316' then
  begin
   UniTreeView1.Items[9].Visible:=true;
         UniTreeView1.Items[13].Visible:=true;
  end else
    begin
       UniTreeView1.Items[9].Visible:=false;
          UniTreeView1.Items[13].Visible:=false;
    end;

UniEdit1.Text:=FormKayitListesi.UE_Islem_no.Text;
DmKayitListesiResim.QREsimBul.Close;
    DmKayitListesiResim.QREsimBul.Params[0].AsString:=UniEdit1.Text;
    DmKayitListesiResim.QREsimBul.Open();
    DmKayitListesiResim.QREsimBul.Active:=TRUE;

    if not DirectoryExists(UniServerModule.StartPath+'Kayıt Resim '+BAYI_NO+'\') then
    CreateDir(UniServerModule.StartPath+'Kayıt Resim '+BAYI_NO+'\');
end;

Merhaba,

Kodlarınızı editörde sağ üstteki Delphi Kod Ekle ile eklerseniz okuması hepimiz için daha kolay olur.

*Burada aynı işlemi iki kez  yapmış oluyorsunuz.
    DmKayitListesiResim.QREsimBul.Open();

   DmKayitListesiResim.QREsimBul.Active:=TRUE;

*Sorunun hangi satırda kaynaklandığına debug mod'da baktınız mı?

İyi çalışmalar.

merhabalar 
debug modda hata vermıyor büyük ihtimal sorun burada
(04-08-2020, Saat: 22:36)Halil Han Badem Adlı Kullanıcıdan Alıntı:
(04-08-2020, Saat: 17:20)ibrahim.aydin@perga.com.tr Adlı Kullanıcıdan Alıntı: form arası geçişte 0098C536 adresinden erişim ihlali hatası nasıl giderile bilir acaba?
buton içindeki kodumuz
procedure TFormKayitListesi.UniButton1Click(Sender: TObject);
begin 
  FormKayitListesiResim.Show();
  FormKayitListesi.Hide;
end;

açılan form create özelligi 
procedure TFormKayitListesiResim.UniFormCreate(Sender: TObject);
begin
if MainForm.UniEdit3.Text='6316' then
  begin
   UniTreeView1.Items[9].Visible:=true;
         UniTreeView1.Items[13].Visible:=true;
  end else
    begin
       UniTreeView1.Items[9].Visible:=false;
          UniTreeView1.Items[13].Visible:=false;
    end;

UniEdit1.Text:=FormKayitListesi.UE_Islem_no.Text;
DmKayitListesiResim.QREsimBul.Close;
    DmKayitListesiResim.QREsimBul.Params[0].AsString:=UniEdit1.Text;
    DmKayitListesiResim.QREsimBul.Open();
    DmKayitListesiResim.QREsimBul.Active:=TRUE;

    if not DirectoryExists(UniServerModule.StartPath+'Kayıt Resim '+BAYI_NO+'\') then
    CreateDir(UniServerModule.StartPath+'Kayıt Resim '+BAYI_NO+'\');
end;

13 numaralı item yok sanırım. Item sayılarını kontrol edin. Indis'e dikkat edin. 
UniTreeView1.Items[12].Visible;
şu şekilde deneyebilirsiniz.
Şuan incelemekteyim bilgi için teşekkürler
(05-08-2020, Saat: 08:39)pro_imaj Adlı Kullanıcıdan Alıntı:
(04-08-2020, Saat: 17:20)ibrahim.aydin@perga.com.tr Adlı Kullanıcıdan Alıntı: form arası geçişte 0098C536 adresinden erişim ihlali hatası nasıl giderile bilir acaba?
buton içindeki kodumuz
procedure TFormKayitListesi.UniButton1Click(Sender: TObject);
begin 
  FormKayitListesiResim.Show();
  FormKayitListesi.Hide;
end;

açılan form create özelligi 
procedure TFormKayitListesiResim.UniFormCreate(Sender: TObject);
begin
if MainForm.UniEdit3.Text='6316' then
  begin
   UniTreeView1.Items[9].Visible:=true;
         UniTreeView1.Items[13].Visible:=true;
  end else
    begin
       UniTreeView1.Items[9].Visible:=false;
          UniTreeView1.Items[13].Visible:=false;
    end;

UniEdit1.Text:=FormKayitListesi.UE_Islem_no.Text;
DmKayitListesiResim.QREsimBul.Close;
    DmKayitListesiResim.QREsimBul.Params[0].AsString:=UniEdit1.Text;
    DmKayitListesiResim.QREsimBul.Open();
    DmKayitListesiResim.QREsimBul.Active:=TRUE;

    if not DirectoryExists(UniServerModule.StartPath+'Kayıt Resim '+BAYI_NO+'\') then
    CreateDir(UniServerModule.StartPath+'Kayıt Resim '+BAYI_NO+'\');
end;

Merhaba,

Kodlarınızı editörde sağ üstteki Delphi Kod Ekle ile eklerseniz okuması hepimiz için daha kolay olur.

*Burada aynı işlemi iki kez  yapmış oluyorsunuz.
    DmKayitListesiResim.QREsimBul.Open();

   DmKayitListesiResim.QREsimBul.Active:=TRUE;

*Sorunun hangi satırda kaynaklandığına debug mod'da baktınız mı?

İyi çalışmalar.

merhabalar bu alana takılmamaktadır
Cevapla
pro_imaj Çevrimdışı
Moderatör
********
Moderatör Grubu
Yorumları: 1.044
Konuları: 149
Kayıt Tarihi: 14-08-2016
Aktif Kullandığınız Delphi Sürümü:
  • Delphi 10.4
  • Delphi 10.3


Rep Puanı: 4.093
Uzman
#6
06-08-2020, Saat: 10:09
(06-08-2020, Saat: 09:05)ibrahim.aydin@perga.com.tr Adlı Kullanıcıdan Alıntı:
(05-08-2020, Saat: 08:39)pro_imaj Adlı Kullanıcıdan Alıntı: Merhaba,

Kodlarınızı editörde sağ üstteki Delphi Kod Ekle ile eklerseniz okuması hepimiz için daha kolay olur.

*Burada aynı işlemi iki kez  yapmış oluyorsunuz.
    DmKayitListesiResim.QREsimBul.Open();

   DmKayitListesiResim.QREsimBul.Active:=TRUE;

*Sorunun hangi satırda kaynaklandığına debug mod'da baktınız mı?

İyi çalışmalar.

merhabalar 
debug modda hata vermıyor büyük ihtimal sorun burada
(04-08-2020, Saat: 22:36)Halil Han Badem Adlı Kullanıcıdan Alıntı: 13 numaralı item yok sanırım. Item sayılarını kontrol edin. Indis'e dikkat edin. 
UniTreeView1.Items[12].Visible;
şu şekilde deneyebilirsiniz.
Şuan incelemekteyim bilgi için teşekkürler
(05-08-2020, Saat: 08:39)pro_imaj Adlı Kullanıcıdan Alıntı: Merhaba,

Kodlarınızı editörde sağ üstteki Delphi Kod Ekle ile eklerseniz okuması hepimiz için daha kolay olur.

*Burada aynı işlemi iki kez  yapmış oluyorsunuz.
    DmKayitListesiResim.QREsimBul.Open();

   DmKayitListesiResim.QREsimBul.Active:=TRUE;

*Sorunun hangi satırda kaynaklandığına debug mod'da baktınız mı?

İyi çalışmalar.

merhabalar bu alana takılmamaktadır

Hatayı oluşturan örnek proje dosyası eklerseniz sorunun neden kaynaklandığını konusunda daha iyi yardımcı olabiliriz.

İyi çalışmalar.
Cevapla
ibrahim.aydin@perga.com.tr Çevrimdışı
ibrahim aydın
*
Başlangıç
Yorumları: 74
Konuları: 22
Kayıt Tarihi: 09-06-2020
Aktif Kullandığınız Delphi Sürümü:
  • Delphi 10.3


Rep Puanı: 30
Başlangıç
#7
25-08-2020, Saat: 09:54
(06-08-2020, Saat: 10:09)pro_imaj Adlı Kullanıcıdan Alıntı: Hatayı oluşturan örnek proje dosyası eklerseniz sorunun neden kaynaklandığını konusunda daha iyi yardımcı olabiliriz.

İyi çalışmalar.

UniTreeView1.Items[12] hata burada duzeltıldı.
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Sorgu işlemi sonrası hata apachi2006 6 2.992 07-09-2024, Saat: 01:36
Son Yorum: apachi2006
  Saçama bir hata ikurt07 0 825 09-05-2023, Saat: 21:01
Son Yorum: ikurt07
  Lokalde çalışan uygulama serverde hata veriyor apachi2006 7 3.519 27-09-2021, Saat: 21:46
Son Yorum: apachi2006
  unipanel içerisinde fsMDIChild form açmak ibrahim.aydin@perga.com.tr 0 973 19-03-2021, Saat: 10:22
Son Yorum: ibrahim.aydin@perga.com.tr
  unigui modal form arka pencereyi soluklaştırması mdagli2003 2 2.170 21-01-2021, Saat: 09:54
Son Yorum: klavye



Konuyu Okuyanlar: 2 Ziyaretçi