Hay-NS Yazılım

DELPHİ KÖŞESİ => Kod Bankası => Konuyu başlatan: turkoder üzerinde Aralık 16, 2010, 07:55:19 ÖS



Konu Başlığı: IdHttp Türkçe problem çözümü
Gönderen: turkoder üzerinde Aralık 16, 2010, 07:55:19 ÖS
Bu olay ile ilgili net te yaptığım aramalarda utf8decode vs gibi kullanımlar önerilmiş.

Ben de basit bir fonksiyon ile sorunu çözdüm, aynı sorunu yaşayan var ise faydalansın ve teşekkür etsin yeter. Yalnız bir yerlerde paylaşacaksanız mutlaka alıntı olduğunu yazınız.
 
Aşağıdaki bozuk karakter yerine sizin sorunlu karakterleri koyarsınız.
Kod:
function TForm8.degis(s:string):string;
 var
 sonuc:AnsiString;
 secenek:TReplaceFlags;//unutmayın
 begin
 result:='';
   secenek:=[rfReplaceAll]; //Harf Duyarlılığı var
s:=StringReplace(s,'ý','ı',secenek);  //ÝÞ  Ð
s:=StringReplace(s,'þ','ş',secenek);
s:=StringReplace(s,'ð','ğ',secenek);
s:=StringReplace(s,'Ý','İ',secenek);   // yaðýþ
s:=StringReplace(s,'Þ','Ş',secenek);
s:=StringReplace(s,'Ð','Ğ',secenek);
  result:=s;
 end;


Kullanırken ise :
Kod:
Memo1.Text:=degis(IdHTTP1.Get('http://www.sitelinki.com'));