7
Eki

Delphide Html Sembollerinin Karektere Çevrilmesi

Web sitelerinden Http Get işlemi yaparken bazı karakterlerin ” gibi html formatında geldiğini görürsünüz. Normalde PHP dilinde htmlentities fonksiyonu ile bunu decode edebiliyorsunuz. ama delphide bu fonksiyona benzer birşey bulamadığım için kolları sıvayıp kendi fonsiyonumu yazdım. Başka arkadaşların zorlanmaması için paylaşıyorum. Kodlarda açıklama yapmadım eğer takıldığınız yer olursa sorabilirsiniz.

function StripHtmlDecode(const S:String):String;
var
 i,Len,BegnTag:Integer;
 A,B,C:Boolean;
 Symbol:string;         //”
begin
 Len:=Length(S); Result:=S; i:=1;
 while i<=len do
 begin
  if (Result[i]='&') then begin A:=True; BegnTag:=i; end else
  if (Result[i]='#') and A then B:=True else
  if (Result[i] in ['0'..'9']) and A and B then C:=True else
  if (Result[i]=';') and A and B and C then
  begin
   Symbol:=String(Chr(StrToInt(Copy(Result,BegnTag+2,i-BegnTag-2))));
   Delete(Result,BegnTag,i-BegnTag+1);
   Insert(Symbol,Result,BegnTag);
   i:=BegnTag;
   A:=False; B:=False; C:=False;
  end else
  begin  A:=False; B:=False; C:=False; end;
  Inc(i);
 end;
end;



Bunları İncelediniz mi?

En iyi Sunucu (Hosting) Firması

Bir çok sunucu firması denedim. Şimdi hepsinin isimlerini burdan vermek istemiyorum çünkü içinde iyi olanda var, kötü olanda var. Çünkü kötümek,karalamak benim karakterim değildir. Ama ben şuana kadar memnun olduğum … Devamını oku..

Firebird Unavailable Database Hatası

Firebird kurulu olduğu halde database ye bağlanmaya çalışırken unsuccessful execution caused by an unavailable resource. unavailable database hatası aldım. Biraz araştırma yapdıkdan sonra interbase  ve firebird ün çakışabileceği yorumlarını okudum. ve … Devamını oku..

Twitter Mahkeme Kararı Engelini Kaldırma.

Twitter‘a erişim başbakanın talimatıyla engellendi. An itibarıyla Türkiyede hiç bir kullanıcı twitter’a erişim sağlayamayacaktır. Erişmeye çalışanlar mahkeme kararını görcektir. Bunun bi çözümü yokmu diyeceksiniz tabiki de var dns ayarlarınızı değiştirmek! … Devamını oku..

Arama:
Facebook Twitter Friendfeed Rss Wmaraci Arşiv
Son Yorumlar
İstatistik
Barındırılan Sunucu Şirketi
© Copyright 2010-2018 Fatih Duman.

Üye Girişi Valid XHTML 1.0 Transitional