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?

Free KodBank (FD Code Bank)

Farklı programlama dilleri ile çalışıyordum, zamanla txtye kaydettiğim kodlar,foksiyonlar,procedureler sqller çok çok birikip,istediğimi bulmakda zorlandığım için bende elimdeki kodları kategorize ederek tek bir yerde toplama kararı aldım ve kendi kodbank‘ımı … Devamını oku..

Delphide Html Sembollerinin Karektere Çevrilmesi

Web sitelerinden Http Get işlemi yaparken bazı karakterlerin &#8221; 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 … Devamını oku..

Delphi ile geliştirilen ve Dünyaca Ünlü Programlar.

Herkes tarafından öldü, ölmeye mahkum denilen delphi diliyle bakın neler yazılmış. Ve bu programlardan en az birini kesinlikle kullanmışsınızdır. Sizler için bildiğim uygulamaları açıklamalarıyla yazdım. Delphi hakkında bilip bilmeden atıp tutmayalım

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

Üye Girişi Valid XHTML 1.0 Transitional