Delphi

本类阅读TOP10

procedure TWebService.AdaptGoExecute(Sender: TObject; Params: TStrings);

var

  URL:string;

begin

  if AdaptNewsType.ActionValue.Values[0] = 'DelphiNews' then

     URL:=(HTTPRIO1 as IHeadLine).DelphiNews(1)

  else if AdaptNewsType.ActionValue.Values[0] = 'CBuilderNews' then

     URL:=(HTTPRIO1 as IHeadLine).CBuilderNews(1)

  else if AdaptNewsType.ActionValue.Values[0] = 'JBuilderNews' then

     URL:=(HTTPRIO1 as IHeadLine).JBuilderNews(1)

  else if AdaptNewsType.ActionValue.Values[0] = 'KylixNews' then

     URL:=(HTTPRIO1 as IHeadLine).KylixNews(1)

  else if AdaptNewsType.ActionValue.Values[0] = 'SoapNews' then

     URL:=(HTTPRIO1 as IHeadLine).SoapNews(1)

  else if AdaptNewsType.ActionValue.Values[0] = 'BorConNews' then

     URL:=(HTTPRIO1 as IHeadLine).BorConNews(1);

  Response.Content:=URL; 

end;