在delphi中调用webservice

Filed under: 程序开发 |
Posted on March 1st, 2006 by 李 方进

最近的一个项目需要用到这个技术，于是做了一个demo来验证可行性

webservice是用c#写的,提供三个操作:UserLevel 、UserDate、IsLogin

在delphi中使用webservice导入，以下为主程序：

  1. procedure TForm1.Btn_OkClick(Sender: TObject);
  2. var
  3.   strWSDL:string;
  4.   Iservice:Service1Soap;
  5.   msg:widestring;
  6.   strUsername:string;
  7.   strPassword:string;
  8.   IsLogin:boolean;
  9.   UserLevel:integer;
  10.   UserDate:string;
  11. begin
  12.   strWSDL:= Edit1.Text;
  13.   HTTPRIO1.WSDLLocation:=strWSDL;
  14.   strUsername:=EdtUserName.Text;
  15.   strPassword:=EdtPassword.Text;
  16.   //HTTPRIO1.HTTPWebNode.Agent := 'Borland SOAP 1.2';
  17.   //HTTPRIO1.HTTPWebNode.UseUTF8InHeader := true;
  18.   Iservice:= HTTPRIO1 as Service1Soap;
  19.   IsLogin:= Iservice.IsLogin(strUsername,strPassword);
  20.   if IsLogin=true then
  21.   begin
  22.   UserLevel:= Iservice.UserLevel(strUsername,strPassword);
  23.   UserDate:=  Iservice.UserDate(strUsername,strPassword);
  24.   msg:='登陆成功,到期时间为'+UserDate;
  25.   if UserLevel=2 then
  26.   begin
  27.     msg:=msg+'付费用户';
  28.     Edt_1.ReadOnly:=false;
  29.     Edt_2.ReadOnly:=false;
  30.     end
  31.   else
  32.   begin
  33.   msg:=msg+'免费用户';
  34.     Edt_1.ReadOnly:=true;
  35.     Edt_2.ReadOnly:=false;
  36.   end
  37.  
  38.   end
  39.   else
  40.   msg:='登陆失败,用户名或者密码错误';
  41.   LblMsg.Caption:=msg;
  42. end;

相关文章

Tags : ,
Trackback url : u can trackback from your own site
« 穷啊穷
[MP3精彩试听]：《那一刻》 »

One Response to “在delphi中调用webservice”

  1. ...... suny Says:
    April 9th, 2006 at 7:29 pm

    不错,不错。。。

    PING:
    BLOG NAME: prozac
    TITLE: buy prozac
    Prozac and Depression Information from…

    PING:
    BLOG NAME: prozac
    TITLE: buy prozac
    Prozac and Depression Information from…

    PING:
    BLOG NAME: Hichkok Blog
    TITLE: Hichkok
    my favorits…

    PING:
    BLOG NAME: beatten chloe
    TITLE: Reforms to Gun Dealer Sales Practices Reduce Supply of New Guns to Criminals
    sex School of hotels Public misc Health’s Center for Gun Policy and Research. The study appears in the September/October …

Leave a Reply