Web Application Opener - WebSnap!
Chapter 10, WebService WebSnap
I still remember that I have said to be with you to discuss WebService in WebSnap? I believe that you have a conceptual concept, this is very simple, you just have to build a new page module in the inside to use HTTPRIO:
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;
AdaptgoExecute is an action, AdaptneWstype is an adapterfield, you should clearly know how to commend them, the parade has this schedule, and you can't recommend you to try it.
