Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Datasnap rest service türkçe karakter sorunu hakkında
#1
Merhaba, 
    Datasnap tüm çıktılarda türkçe karakter sorunu yaşıyorum. Derdimi anlatabilmek için aşağıdaki gibi bir basit kod yazdım;

function TServerMethods1.Test: string;
begin
 Result := 'Geçersiz kullanıcı veya şifre';
end;

Tarayıcıda ki sonuç şu şekilde;

{"result":["Ge\u00E7ersiz kullan\u0131c\u0131 veya \u015Fifre"]}


Bu durumu düzeltecek genel bir ayar var mıdır? Neyi eksik yapıyorum?

Teşekkürler.
Cevapla
#2
JSON Parse işlemini kurallara uygun yapmalısınız.

Aşağıdaki şekilde deneyin.
Uses System.JSON;

procedure TForm1.Button1Click(Sender: TObject);
var
  LResponse     : String;
  LJSONData     : TJSONObject;
  LJSONArray    : TJSONObject;
  i : Integer;
begin
  LResponse := '{"result":["Ge\u00E7ersiz kullan\u0131c\u0131 veya \u015Fifre"]}';

  LJSONData := TJSONObject( TJSONObject.ParseJSONValue( TEncoding.ASCII.GetBytes( LResponse ), 0) );
  try
    if LJSONData <> nil then begin
      if LJSONData.FindValue( 'result' ) <> nil then begin
        LJSONArray := TJSONObject( LJSONData.GetValue('result') );
        for i := 0 to pred(LJSONArray.Count) do begin
          ShowMessage( LJSONArray.Pairs[i].ToString );
        end;
      end;
    end;
  finally
    LJSONData.Free;
  end;
end;



Tırnak da olmasın derseniz şu şekilde.


          ShowMessage( TJSONValue( LJSONArray.Pairs[i] ).Value );

Saygılarımla
Muharrem ARMAN

guplouajuixjzfm15eqb.gif


Cevapla
#3
Client tarafında C# ile kodladığım program üzerinden servise erişiyorum. Dediğiniz gibi kurallara uygun JSON Parse işlemi uygulamadığım için karakter sorunu yaşamışım. Çok teşekkür ederim.
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Fast Report - barkod çizgi (çubuk) sorunu debug 1 149 11-05-2021, Saat: 17:45
Son Yorum: shooterman
  SQLite Runtime Connection Sorunu (ÇÖZÜLDÜ) recepmut@hotmail.com 7 362 08-05-2021, Saat: 22:22
Son Yorum: shooterman
  Webbrowser üzerinden Download sorunu COMMANDX 3 294 05-05-2021, Saat: 09:57
Son Yorum: COMMANDX
  Delphi REST showing only one row on the client side ? toufikben44 0 176 02-05-2021, Saat: 00:28
Son Yorum: toufikben44
  Delphi İle Mobil Geliştirme Hakkında furkan.Dev 8 412 01-05-2021, Saat: 19:06
Son Yorum: furkan.Dev



Konuyu Okuyanlar: 1 Ziyaretçi