Html parse ve Türkçe karakter problemi

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
hdayi
Kıdemli Üye
Mesajlar: 1284
Kayıt: 29 Oca 2004 01:53
Konum: Erciyes'in eteklerinden.

Html parse ve Türkçe karakter problemi

Mesaj gönderen hdayi »

Merhaba,
html parse ile bir web sayfasından veri alıyorum. Tükçe karakterler de problem çıkarıyor.
sırası ile:

Kod: Tümünü seç

ı İ ğ Ğ ü Ü ş Ş ö Ö ç Ç
olan karakterleri aşağıdaki gibi veriyor

Kod: Tümünü seç

ı İ ğ Ğ ü Ü ş Ş ö Ö ç Ç
karakterleri kopyaladım ama bende göründüğü gibi görüntü de vermiyor burada
websayfasında değişiklik yapmak ta elimde. ne yapabilirim?
teşekkürler
Bişnev in ney çün hikâyet mîküned
Ez cüdâyîhâ şikâyet mîküned
Resim
Kullanıcı avatarı
husonet
Admin
Mesajlar: 2962
Kayıt: 25 Haz 2003 02:14
Konum: İstanbul
İletişim:

Mesaj gönderen husonet »

Aynı olay benim Flash la Asp eyi haberleştirirken başıma gelmişti Asp nin kendine has fonksiyonu ile halletmiştim. Ufak bir fonksiyon yazarak işin üstesinden gelebilirsiniz.

Asp ede kullandığım şekli!

Kod: Tümünü seç

dusunce = request.form("dusunce")
dusunce = Replace(dusunce,"İ","İ")
dusunce = Replace(dusunce,"ı","ı")
dusunce = Replace(dusunce,"Ü","Ü")
dusunce = Replace(dusunce,"ü","ü")
dusunce = Replace(dusunce,"Åž","Ş")
dusunce = Replace(dusunce,"ÅŸ","ş")
dusunce = Replace(dusunce,"Ç","Ç")
dusunce = Replace(dusunce,"ç","ç")
dusunce = Replace(dusunce,"Äž","Ğ")
dusunce = Replace(dusunce,"ÄŸ","ğ")
dusunce = Replace(dusunce,"Ö","Ö")
dusunce = Replace(dusunce,"ö","ö")
Kolay Gelsin...

Gazete manşetleri
* DİKKAT :Lütfen forum kurallarını okuyalım ve uyalım...!
* Warez,crack vs. paylaşımı kesinlikle yasaktır.
Kullanıcı avatarı
hdayi
Kıdemli Üye
Mesajlar: 1284
Kayıt: 29 Oca 2004 01:53
Konum: Erciyes'in eteklerinden.

Mesaj gönderen hdayi »

html işlerinden pek anlamadığım için şöyle bişey yaptım.

Kod: Tümünü seç

s :=  StringReplace(Memo2.Text,'ı','ı',[rfReplaceAll, rfIgnoreCase]);
s := StringReplace(s,'İ','İ',[rfReplaceAll, rfIgnoreCase]);
s := StringReplace(s,'ÄŸ','ğ',[rfReplaceAll, rfIgnoreCase]);
s := StringReplace(s,'Ğ','Ğ',[rfReplaceAll, rfIgnoreCase]);
s := StringReplace(s,'ü','ü',[rfReplaceAll, rfIgnoreCase]);
s := StringReplace(s,'Ü','Ü',[rfReplaceAll, rfIgnoreCase]);
s := StringReplace(s,'ÅŸ','ş',[rfReplaceAll, rfIgnoreCase]);
s := StringReplace(s,'Ş','Ş',[rfReplaceAll, rfIgnoreCase]);
s := StringReplace(s,'ö','ö',[rfReplaceAll, rfIgnoreCase]);
s := StringReplace(s,'Ö','Ö',[rfReplaceAll, rfIgnoreCase]);
s := StringReplace(s,'ç','ç',[rfReplaceAll, rfIgnoreCase]);
s := StringReplace(s,'Ç','Ç',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text := s;
uses'a strutils eklemek gerekiyor tabii.
Bişnev in ney çün hikâyet mîküned
Ez cüdâyîhâ şikâyet mîküned
Resim
Cevapla