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 , 'ı' , 'ı'); s:=AnsiReplaceText(s , 'ı' , 'ı');
s:=AnsiReplaceText(s , 'ö' , 'ö'); s:=AnsiReplaceText(s , 'ö' , 'ö');
s:=AnsiReplaceText(s , 'ü' , 'ü'); s:=AnsiReplaceText(s , 'ü' , 'ü');
s:=AnsiReplaceText(s , 'ç' , 'ç'); s:=AnsiReplaceText(s , 'ç' , 'ç');
s:=AnsiReplaceText(s , 'ş' , 'ş'); s:=AnsiReplaceText(s , 'ş' , 'ş');
s:=AnsiReplaceText(s , 'ğ' , 'ğ'); s:=AnsiReplaceText(s , 'ğ' , 'ğ');
s:=AnsiReplaceText(s , 'İ' , 'İ'); s:=AnsiReplaceText(s , 'İ' , 'İ');
s:=AnsiReplaceText(s , 'Ö' , 'Ö'); s:=AnsiReplaceText(s , 'Ö' , 'Ö');
s:=AnsiReplaceText(s , 'Ü' , 'Ü'); s:=AnsiReplaceText(s , 'Ü' , 'Ü');
s:=AnsiReplaceText(s , 'Ç' , 'Ç'); s:=AnsiReplaceText(s , 'Ç' , 'Ç');
s:=AnsiReplaceText(s , 'Ş' , 'Ş'); s:=AnsiReplaceText(s , 'Ş' , 'Ş');
s:=AnsiReplaceText(s , 'Ğ' , 'Ğ'); s:=AnsiReplaceText(s , 'Ğ' , 'Ğ');
s:=AnsiReplaceText(s , 'nbsp;' , ' ');
s:=AnsiReplaceText(s , '&' , '<br>');
Result:=s;
finally
GelenVeri.Free;
end;
end;
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');