Rest server client UTF8 Problemi

[burakb44]

Arkadaşlar merhaba, https://m.youtube.com/watch?v=_P6waeTlhVc bu linkteki rest uygulamasını çalışırken UTF-8 kodlamasından kaynaklı verileri getirmiyor. Browserdan linki çağırdığımda sorunsuz geliyor. Sebebi ben olabilir? UTF-8 için nasıl bir ayar gerekiyor.

[masteryoda]

Örnek bir kod bloğu yada proje paylaşabilir misiniz?

[burakb44]

(05-10-2018, Saat: 00:23)masteryoda Adlı Kullanıcıdan Alıntı: Örnek bir kod bloğu yada proje paylaşabilir misiniz?

Server tarafı

procedure TWebModule1.DenemeGet(Request: TWebRequest; Response: TWebResponse);
var
 a: TJSONArray;
 o: TJSONObject;
begin
qry.SQL.Text := 'select * from users;';
qry.Active := true;
 if qry.Active then begin
   if qry.RecordCount>0 then begin
     a := TJSONArray.Create;
     try
       qry.First;
       while (not qry.Eof) do begin
         o := TJSONObject.Create;
         o.AddPair('ID',TJSONNumber.Create( qry.FieldByName('ID').AsInteger ));
         o.AddPair('KULLANICIADI',qry.FieldByName('KULLANICIADI').AsString );
         o.AddPair('SIFRE',qry.FieldByName('SIFRE').AsString );
         o.AddPair('KULLANICITIPI',qry.FieldByName('KULLANICITIPI').AsString );
         a.AddElement(o);
         qry.Next;
       end;
     finally
       Response.ContentType := 'application/json';
       //Response.ContentType := 'application / x-www-form-urlencoded';
       Response.Content := a.ToString;
       a.DisposeOf;
     end;
   end;
 end;
end;

procedure TWebModule1.WebModule1accdenemeAction(Sender: TObject;
 Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
 Handled := True;
 case Request.MethodType of
   mtGet: DenemeGet( Request, Response );
//    mtPut: EmployeePut( Request, Response );
//    mtPost: EmployeePost( Request, Response );
//    mtDelete:  EmployeeDelete( Request, Response );
   else begin
     Response.StatusCode := 400; // bad request error code.
     Response.SendResponse;
   end;
 end;
end;

rest client


request




response







türkçe karakter olmayan data istediğimde server tarafından bilgi sorunsuz geliyor, ancak türkçe karakterli bir data istediğimde aşağıdaki hatayı veriyor

[Fesih ARSLAN]

Merhaba,
Tools menüsü altındaki REST Debugger aracı ile test edebilir misiniz?

[burakb44]

(05-10-2018, Saat: 11:25)Fesih ARSLAN Adlı Kullanıcıdan Alıntı: Merhaba,
Tools menüsü altındaki REST Debugger aracı ile test edebilir misiniz?

test ettim Fesih hocam gelen data içeriğinde türkçe karakter olursa hata veriyor, olmazsa sorunsuz çalışıyor

[Fesih ARSLAN]

(05-10-2018, Saat: 11:31)burakb44 Adlı Kullanıcıdan Alıntı:

(05-10-2018, Saat: 11:25)Fesih ARSLAN Adlı Kullanıcıdan Alıntı: Merhaba,
Tools menüsü altındaki REST Debugger aracı ile test edebilir misiniz?

test ettim Fesih hocam gelen data içeriğinde türkçe karakter olursa hata veriyor, olmazsa sorunsuz çalışıyor

Merhaba,
Response kısmını aşağıdaki gibi tanımlayarak deneyebilir misiniz?

Response.ContentType := 'application/json; charset=UTF-8';

JSON metodlarında desteklenmeyen bir UTF metodunun olmasına karşın, yukarıdaki yöntemle olmaz ise, içeriği metinsel format olarak bildirerek test edin.

Response.ContentType := 'text/html; charset=UTF-8';

[burakb44]

(05-10-2018, Saat: 11:39)Fesih ARSLAN Adlı Kullanıcıdan Alıntı:

(05-10-2018, Saat: 11:31)burakb44 Adlı Kullanıcıdan Alıntı: test ettim Fesih hocam gelen data içeriğinde türkçe karakter olursa hata veriyor, olmazsa sorunsuz çalışıyor

Merhaba,
Response kısmını aşağıdaki gibi tanımlayarak deneyebilir misiniz?

Response.ContentType := 'application/json; charset=UTF-8';

JSON metodlarında desteklenmeyen bir UTF metodunun olmasına karşın, yukarıdaki yöntemle olmaz ise, içeriği metinsel format olarak bildirerek test edin.

Response.ContentType := 'text/html; charset=UTF-8';

Fesih hocam json formatında belirttiğiniz gibi denedim yine aynı hataya düştü, sadece text/html olarak metin gönderdiğimde problemsiz gedi. sorun json gönderip alma ile ilgili

[osiso]

RESTRequest1.Params[1].Value:=UTF8ToString(gönderilen metin)

veya

RESTRequest1.Params[1].Value:=UTF8EncodeToShortString(gönderilen metin)

şeklinde denerseniz sorun çözülüyor bende bu şekilde sorun düzeldi.

[klavye]

(15-11-2018, Saat: 17:10)osiso Adlı Kullanıcıdan Alıntı:

RESTRequest1.Params[1].Value:=UTF8ToString(gönderilen metin)

veya

RESTRequest1.Params[1].Value:=UTF8EncodeToShortString(gönderilen metin)

şeklinde denerseniz sorun çözülüyor bende bu şekilde sorun düzeldi.

Elinize sağlık benzeri bir sorunu bende yasiyordum. Hata iletisi başkaydı ama bu kodu yazinca duzeldi.

[burakb44]

REST'ten vazgeçip datasnap ile çözdüm olayı şimdilik, projenin ilerleyişine göre REST'e dönebilirim belki.
İlginiz ve cevaplar için teşekkür ederim.