Delphi Can

Delphi Can > Delphi > Delphi ile Web Teknolojileri > uni gui hata form arası geçiş
Orjinalini görmek için tıklayınız: uni gui hata form arası geçiş
Şu anda (Arşiv) modunu görüntülemektesiniz. Orjinal Sürümü Görüntüle internal link

ibrahim.aydin@perga.com.tr

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;

klavye

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:
UniEdit1.Text:=FormKayitListesi.UE_Islem_no.Text;
kodu ile erişmeye calisiyorsunuz

Halil Han BADEM

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.

pro_imaj

05-08-2020, Saat: 08:39
(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.

ibrahim.aydin@perga.com.tr

06-08-2020, Saat: 09:05
(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

pro_imaj

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.

ibrahim.aydin@perga.com.tr

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ı.
Delphi Can > Delphi > Delphi ile Web Teknolojileri > uni gui hata form arası geçiş