, er, hvordan vi får adgang til et web service fra delphi?hvordan skal vi bruge sæbe komponenter i delphi?du kan lære grundreglerne for edb - programmer og skabe software af dine egne ved at kontrollere de fremragende, programmelbehov løs.   lære at adgang webtjenester med sæbe, læs!,, adgang til webtjenester med sæbe... i delphi 6, adgang til webtjenester med sæbe er meget nemt med et komplet sæt komponenter i webtjenester palet.i denne artikel, jeg vil give dig et simpelt eksempel i delphi 6 om, hvordan man skal bruge web services. en web service er en service, der har til formål at udføre en bestemt opgave.det kunne for eksempel, at en temperatur fra grader til farenheit osv. disse tjenester er baseret på et sprog kaldes web services description language (wsdl).det er en xml - baseret sprog.du kan finde wsdl filer i http://www.xmethods.net.der er masser af sådanne nettjenester, der er til rådighed i stedet,.,, hvordan det virker?, for eksempel, hvis du ønsker at konvertere en temperatur fra grader til farenheit, så vil du sikkert lndtast celsius temperatur til tjeneste.nu, hvor input er ved at blive udarbejdet som en xml - anmodning og sendt til web service.så web service udfører omstilling og sender resultatet tilbage til kunden som en xml - respons.alle disse opgaver er udført for den kunde, som wsdl.det er bare et bredt syn på dets funtionality. i denne artikel, jeg skal bruge en webtjeneste for at finde en bog pris på barnes &noble med amp; - kode.du kan finde den web service på http://www.xmethods.net/detail.html?id = 7.,, hvordan kan vi så få adgang til denne web service fra dephi 6?,, 1.downloade wsdl fil til din lokale drive., 2.indføre web service i delphi, dette er et af de nye elementer i delphi - 6.klik på ny og i dialogen rubrik udvælge webservices regning og udvælge de webtjenester importør.en dialog rubrik kommer.det vil der være to tabletter.i import regning, klik på browse og udvælge de wsdl fil reddede fra dine lokale drive.så klik på en knap, en enhed - sagen vil blive oprettet med service detaljer. indholdet af det nyoprettede /genereret filen bliver det sådan:,, enhed, bnquoteservice; interface, anvender typer, xsbuiltins;, type,    bnquoteporttype =, grænseflade (iinvokable),      [(a37458fd-f89d-4bdf-bed9-1592153a51cb)],     , funktion, getprice (, konstant, isbn: widestring): fælles;, stdcall;,,   ,;,, gennemførelse, anvendelse, invokeregistry;, initialization,,    invregistry. registerinterface (typeinfo (bnquoteporttype), ","),.,,,, så vi kan bruge den, getprice, funktion, i denne enhed fil at finde bogen pris. der er et nyt element thttprio under websevices palet i delphi - 6.denne komponent vil hjælpe os med at påberåbe sig den metode, der anvendes af web service.skabe en ny ansøgning og smid den komponent. a, der wsdllocation, sevice -, havne - ejendomme i genstand, inspektør. her er stikprøven ansøgning, der anvender web service og finder den bog pris.i stikprøven anvendelse tilføje denne enhed fil.,, bnquoteprj. dpr, program, bnquoteprj; anvender,    former,    bnquote,,...) unitfiles. bnquote. - (form1},,    bnquoteservice,,...) webservicesunitfiles. bnquoteservice. pas « ($r *. res}, begynder,    anvendelse. påbegynd;,    anvendelse. createform (tform1, form1),    anvendelse. løb,,.,, enhed, bnquote; interface, anvender,    vinduer, beskeder, sysutils, varianter, klasser, grafik, kontrol, former, dialoger, stdctrls, rio, soaphttpclient;, type,    tform1 =, klasse, (tform),      httprio1: thttprio;,      button1: tbutton;,      edit1: tedit;,      label1: tlabel;,      edit2: tedit;,      label2: tlabel;,      button2: tbutton;,     , procedure, button1click (sender: TObject);,     ,procedure, Button2Click(Sender: TObject);,   ,private,,     { Private declarations },   ,public,,     { Public declarations },   ,end;,,var,,   Form1: TForm1;,implementation,,uses, BNQuoteService;, {$R *.dfm},procedure, TForm1.Button1Click(Sender: TObject);,var,,   QuotePrice : Real;,begin,,   if Trim(Edit1.Text) <> '' then,   ,begin,,      QuotePrice := 0;,      QuotePrice :=(HTTPRIO1 as BNQuotePortType).getPrice(Edit1.Text);,      if QuotePrice <> -1 then,         Edit2.Text := FloatToStr(QuotePrice),      else,      ,begin,,         MessageDlg('Wrong ISBN Code' + #13 + 'Enter a Valid ISBN code',mtInformation,[mbOk],0);,         button2. klik,          edit1. setfocus;,      ,,,,,,   ,    andet,   , begynder,       messagedlg ('enter en gyldig - kode, mtinformation [mbok., 0),       edit1. setfocus;,   ,,,,,,,, procedure, tform1. button2click (afsender: tobject), begynder,    edit1. klart,    edit2. klart,    edit1. setfocus;,;,,.,, i stikprøven anvendelse, jeg brugte to edit kasser, to etiketter og thttprio komponent. nyd!!!tak, magesh.,