Cli:=THTTPClient.Create;
Result:=Cli.Get(URL).ContentAsString;
Cli.Free;
Memo1.Text:=Result;
它作業正常，但有些標簽被破壞了。我得到它：
</div></div><div class="masthead_main container row"><div class="masthead_logo_search"><di
v class="masthead_logo"><a href="/">FAQs</a></div><div class="masthead_search"><form class="search" method="get" action="/search"
我需要這樣的東西：
...
</div>
</div>
<div class="masthead_main container row">
<div class="masthead_logo_search">
<div class="masthead_logo">
<a href="/">FAQs</a>
</div>
<div class="masthead_search">
<form class="search" method="get" action="/search">
...
我不需要打破標簽。如何獲得格式化的 HTML？
uj5u.com熱心網友回復：
我創建了函式！它對我有用：
function RestoreTags(Source:String):String;
var
TagString:String;
I:Integer;
PosS:Integer;
Opened:Boolean;
begin
Opened:=False;
Result:='';
for I:=1 to Length(Source)-1 do
begin
if Source[I]='<' then
begin
Opened:=True;
PosS:=I;
end
else if Source[I]='>' then
begin
Opened:=False;
TagString:=Copy(Source,PosS,I-PosS 1);
TagString:=StripChars(TagString,[#9, #10, #13]);
Result:=Result TagString;
end
else if Opened=False then
begin
Result:=Result Source[I];
end
end;
end;
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/371180.html
標籤：德尔福 delphi-xe2