Exception

[m_ekici]

Merhaba

aşağıdaki kodda aynı veri içerisindeki kodu tekrar çekmeye çalıştığımda exception a düşüyor. Bunu sebebi nedir?

  try
    VeriObj    := TJSONObject.ParseJSONValue(Rrequest.Content) as TJSONObject;
   VeriValue := VeriObj.GetValue('TRANSACTIONS');
   VeriAry   := VeriValue.GetValue<TJSONArray>('items');
         // FATURA SATIRLARI Kontrol
        if not FatHataVar then
           begin
             for SatI := 0 to VeriAry.Count-1 do
                 begin
                     MlzObj := TJsonObject.Create;
                     try
                      MlzObj := TJSONObject(VeriAry.Get(SatI));
                      S_MCODE := MlzObj.GetValue('URUN_KODU').Value;
                      ..........
                     finally
                      MlzObj.Free;
                     end;
                 end;
           end;

        // FATURA SATIRLARI Kayıt
        if not FatHataVar then
           begin
            for SatI := 0 to VeriAry.Count-1 do
                 begin
                     MlzObj := TJsonObject.Create;
                     try
                      MlzObj  := TJSONObject(VeriAry.Get(SatI));
                      /// >>>>>>>>>>>>>>>>>>>>>> ????
                      S_MCODE := MlzObj.GetValue('URUN_KODU').Value; // <<<<<<< EXCEPTION
                      /// >>>>>>>>>>>>>>>>>>>>>> ????
                      ...
                     finally
                      MlzObj.Free;
                     end;
                 end;
           end;
 except
   on E: Exception do

[metemet]

iç içe  try end bloğunda nesle  isinleri aynı tutmusun  

if  MlzObj=nil then ile ust bloktaki obje kontrol edilebilir veya nesle ismi degiştirilebilir

if not hatavar then
begin
for/////////
begin end

for //////
begin end;
end else  

yada
function  yapılaçak_islem(paremetreler) booelan; veya dönen değer olabilir objeyi burdada olusturursun  edersin
begin
  for/////    begin  end;
end;

procedure ////////
begin
if not hata then
begin
try
if yapılacak_islem(paremetreler) then
end;
end else begin end;
end;

FreeAndNil( obje ) bu daha iyidir hafızadad yer tutmaz 
hocam aklıma gelen  bu  kolay gelsin

[m_ekici]

(08-04-2025, Saat: 07:43)metemet Adlı Kullanıcıdan Alıntı: iç içe  try end bloğunda nesle  isinleri aynı tutmusun  

if  MlzObj=nil then ile ust bloktaki obje kontrol edilebilir veya nesle ismi degiştirilebilir

if not hatavar then
begin
for/////////
begin end

for //////
begin end;
end else  

yada
function  yapılaçak_islem(paremetreler) booelan; veya dönen değer olabilir objeyi burdada olusturursun  edersin
begin
  for/////    begin  end;
end;

procedure ////////
begin
if not hata then
begin
try
if yapılacak_islem(paremetreler) then
end;
end else begin end;
end;

 FreeAndNil( obje ) bu daha iyidir hafızadad yer tutmaz 
hocam aklıma gelen  bu  kolay gelsin

Tşk, 

farklı isimle de denedim yine aynı hatayı verdi, fonksiyon yapamam farklı kontroller var. Aşağıdaki şekilde de aynı hatayı verdi, anlamadım.

if MlzObj.TryGetValue('URUN_KODU', JSDeger) then

   try S_MCODE := JSDeger.Value;  except S_MCODE='!'; end;

[metemet]

(08-04-2025, Saat: 09:33)pid=\57442 Adlı Kullanıcıdan Alıntı:

Kod: (Select All)

VeriAry   := VeriValue.GetValue<TJSONArray>('items');

if fatura hatayı sorgulamadan önce veriary  tekrar deger atayıp denedinmi  
cünkü try end arasında bende  hata yapmadı
ben delphi 7 kullanıyorum  jonson formatındaki dosyaları  djson unit var ondan okuyorum
fakat  dosya okunurken konum başa gelmiyor sanırsam 
xlm içerisini de de aynı oluyor  
 içte yazdığın try end lere hata mesajı ekle   hata bloguna kendi mesajını yaz
 kolay gelsin

[m_ekici]

System.JSON bu fonksiyonda patlıyor. İlk geldiğinde doğru sayı geliyor, 2. geldiğinde exception a düşüyor.

function TJSONObject.GetCount: Integer;
begin
Result := FMembers.Count;
end;

[mrmarman]

Özetle durumu izah etmek gerekirse,

1. Mevcut JSON nesnesine, yine nesnel yaklaşıp
2. Kaynak referansını yeni create ettiğiniz nesneyle atama yaptıktan sonra,
3. Yakınlaştığınız nesneyi FREE ederek sadece ürettiğiniz değil, orjinal kaynağa da zarar verdiğinizden alıyorsunuz.

JSON dallarına erişimde her defasında nesne create etmeye lüzum yok.

aşağıdaki şekilde deneyin göreceksiniz. içeride CREATE FREE vs yok

           // FATURA SATIRLARI Kontrol
         if not FatHataVar then
            begin
              for SatI := 0 to VeriAry.Count-1 do
                  begin
                    MlzObj   := TJSONObject(VeriAry.Items[SatI]);
                    S_MCODE  := MlzObj.FindValue('URUN_KODU').Value;
                  end;
              end;

Ayrıca PARSE ettiğiniz Nesneyi FREE edilmesi lazım.. Unutulmuş sanırım... Aşağıdaki kodu inceleyin.

  try
    VeriObj := TJSONObject.ParseJSONValue(Rrequest.Content) as TJSONObject;
    try
      VeriValue := VeriObj.FindValue('TRANSACTIONS') as TJSONObject;
      VeriAry   := VeriValue.FindValue('items') as TJSONArray;
            // FATURA SATIRLARI Kontrol
           if not FatHataVar then
              begin
                for SatI := 0 to VeriAry.Count-1 do
                    begin
                      MlzObj   := TJSONObject(VeriAry.Items[SatI]);
                      S_MCODE  := MlzObj.FindValue('URUN_KODU').Value;
                      showmessage( S_MCODE );
                    end;
                end;

           // FATURA SATIRLARI Kayıt
           if not FatHataVar then
              begin
                for SatI := 0 to VeriAry.Count-1 do
                    begin
                      MlzObj   := TJSONObject(VeriAry.Items[SatI]);
                      S_MCODE  := MlzObj.FindValue('URUN_KODU').Value;
                      showmessage( S_MCODE );
                    end;
              end;
    finally
      FreeAndNil(VeriObj);
    end;

  except
     on E: Exception do
  end;

[metemet]

 var
i:integer;
be_jon:myJSON;
list:TStringList;
begin
list := TStringList.Create;
       be_jon := myJSON.Create;
       be_jon.LoadFromFile('be_jonson.json');
      if be_jon['ayar'].Count>0 then   // ayar varsa
       begin
       for i := 0 to be_jon['ayar'].Count - 1 do
       begin
       list.Add(be_jon['ayar'].Value[i].getStr); //ayarın degerini al
        ShowMessage(list.Strings[i]);
        end;
       be_jon.Free;
       end;


       be_jon := myJSON.Create; // bu  satırda bu blokları kaldırırsan hata alırdın  nesle nil oldugu icin
       be_jon.LoadFromFile('be_jonson.json');  // yukarıda nesleyi free etmez isen bu satırları kaldırabilirsin
      if be_jon['ayar'].Count>0 then   // ayar varsa
       begin
       for i := 0 to be_jon['ayar'].Count - 1 do
       begin
       list.Add(be_jon['ayar'].Value[i].getStr); //ayarın degerini al
        ShowMessage(list.Strings[i]);
        end;
       be_jon.Free;
       end;
end;

m_ekiciSystem.JSON bu fonksiyonda patlıyor. İlk geldiğinde doğru sayı geliyor, 2. geldiğinde exception a düşüyor.

function TJSONObject.GetCount: Integer;
begin
 Result := FMembers.Count;
end;

myjonson unit

function myJSON.Count: integer;
begin
if Length(fChild) > 0 then ///  bura kontrol edebilirsin
  result := Length(fChild) else Result:=0;
end;

procedure myJSON.LoadFromFile(filename: string; utf: boolean);
var
  f: Text;
  s, b: string;
begin
 if not FileExists(filename) then begin   Abort end;// ayrıca burdadosya yoksa hataya gitmeden konrol edbilirsin 
  clear_child;
  AssignFile(f, filename);
  {$I-}
...............


cagırdıgımda konrol ediuorum
  if be_jon['ayar'].Count>0 then

[m_ekici]

Tşk. ederim, farklı bir yolla çözüm bulmuştum.