idhttp türkçe karakter probleminin çözümü

Yazdığınız makaleleri ve üyelerimizin işine yarayacağını düşündüğünüz kodlarınızı gönderebilirsiniz. Bu foruma soru sormayın!
Cevapla
Kullanıcı avatarı
ender_arslanturk
Kıdemli Üye
Mesajlar: 709
Kayıt: 18 Şub 2005 03:38
Konum: İstanbul

idhttp türkçe karakter probleminin çözümü

Mesaj gönderen ender_arslanturk »

Selamlar,

Kod: Tümünü seç

Function InternettenSayfasindanVeriCek(Url:WideString):WideString;
var
        GelenVeri: TStringStream;
        s:WideString;
begin
        Result:='';
        try
                If Trim(Url)='' Then Exit;

                GelenVeri := TStringStream.Create('', TEncoding.UTF8);

                IdHttp1.Get(Trim(Url), GelenVeri);

                s:=GelenVeri.DataString;

                s:=AnsiReplaceText(s  ,  '<'     ,  '<');
                s:=AnsiReplaceText(s  ,  '>'     ,  '>');

                s:=AnsiReplaceText(s  ,  '&#x131;'  ,  'ı');    s:=AnsiReplaceText(s  ,  '&#305;'  ,  'ı');
                s:=AnsiReplaceText(s  ,  '&#xF6;'   ,  'ö');    s:=AnsiReplaceText(s  ,  '&#246;'  ,  'ö');
                s:=AnsiReplaceText(s  ,  '&#xFC;'   ,  'ü');    s:=AnsiReplaceText(s  ,  '&#252;'  ,  'ü');
                s:=AnsiReplaceText(s  ,  '&#xE7;'   ,  'ç');    s:=AnsiReplaceText(s  ,  '&#231;'  ,  'ç');
                s:=AnsiReplaceText(s  ,  '&#x15F;'  ,  'ş');    s:=AnsiReplaceText(s  ,  '&#351;'  ,  'ş');
                s:=AnsiReplaceText(s  ,  '&#x11F;'  ,  'ğ');    s:=AnsiReplaceText(s  ,  '&#287;'  ,  'ğ');

                s:=AnsiReplaceText(s  ,  '&#x130;'  ,  'İ');    s:=AnsiReplaceText(s  ,  '&#304;'  ,  'İ');
                s:=AnsiReplaceText(s  ,  '&#xD6;'   ,  'Ö');    s:=AnsiReplaceText(s  ,  '&#214;'  ,  'Ö');
                s:=AnsiReplaceText(s  ,  '&#xDC;'   ,  'Ü');    s:=AnsiReplaceText(s  ,  '&#220;'  ,  'Ü');
                s:=AnsiReplaceText(s  ,  '&#xC7;'   ,  'Ç');    s:=AnsiReplaceText(s  ,  '&#199;'  ,  'Ç');
                s:=AnsiReplaceText(s  ,  '&#x15e;'  ,  'Ş');    s:=AnsiReplaceText(s  ,  '&#350;'  ,  'Ş');
                s:=AnsiReplaceText(s  ,  '&#x11e;'  ,  'Ğ');    s:=AnsiReplaceText(s  ,  '&#286;'  ,  'Ğ');

                s:=AnsiReplaceText(s  ,  'nbsp;'    ,  ' ');
                s:=AnsiReplaceText(s  ,  '&'    ,  '<br>');


                Result:=s;
        finally
                GelenVeri.Free;
        end;
end;

Bu kadar.. :)

Forumda bazı sonuçlara baktım, çözümü göremedim. İstifadenize..

Kullanımı :

Kod: Tümünü seç

Memo1.Text:=InternettenSayfasindanVeriCek('http://www.seyrangah.tv/Kuranin-delil-talebine-verdigi-onem.html');
Hayırlı çalışmalar..
Cevapla