WebService方面的问题,请高手帮忙,分不够可加,帮顶有分送!

下面是一个小例子,但得不到想要的结果,请高手们帮忙分析!
{服务端}
{接口定义部分代码}
{ Invokable interface IMYTest }

unit MYTestIntf;

interface

uses InvokeRegistry, Types, XSBuiltIns;

type

  { Invokable interfaces must derive from IInvokable }
  IMYTest = interface(IInvokable)
  ['{EA425D3A-DC44-4778-92EA-24E376B19792}']
    function GetCount():Integer;stdcall;
    function SetCount(value: Integer):Integer;stdcall;
    { Methods of Invokable interface must not use the default }
    { calling convention; stdcall is recommended }
  end;

implementation

initialization
  { Invokable interfaces must be registered }
  InvRegistry.RegisterInterface(TypeInfo(IMYTest));

end.

{接口实现部分代码}
{ Invokable implementation File for TMYTest which implements IMYTest }

unit MYTestImpl;

interface

uses InvokeRegistry, Types, XSBuiltIns, MYTestIntf;

type

  { TMYTest }
  TMYTest = class(TInvokableClass, IMYTest)
  private
    v_Count:Integer;
  public
    function GetCount():Integer;stdcall;
    function SetCount(value: Integer):Integer;stdcall;
  end;

implementation

{ TMYTest }

function TMYTest.GetCount: Integer;
begin
  result := v_Count;
end;

function TMYTest.SetCount(value:Integer): Integer;
begin
  v_Count := value;
  result := v_Count;
end;

initialization
  { Invokable classes must be registered }
  InvRegistry.RegisterInvokableClass(TMYTest);

end.

{客户端}

unit UMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UIMyTest, InvokeRegistry, StdCtrls, Rio, SOAPHTTPClient;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    HTTPRIO1: THTTPRIO;
    SetButton1: TButton;
    GetButton1: TButton;
    procedure SetButton1Click(Sender: TObject);
    procedure GetButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SetButton1Click(Sender: TObject);
var Obj: IMyTest;
    i: Integer;
begin
  Obj := HTTPRIO1 as IMyTest;
  i := Obj.SetCount(StrToInt(Edit1.Text));
  ShowMessage(IntToStr(i));
  Obj := nil;
end;

procedure TForm1.GetButton1Click(Sender: TObject);
var obj: IMyTest;
    i: Integer;
begin
  Obj := HTTPRIO1 as IMyTest;
  i := Obj.GetCount;
  ShowMessage(IntToStr(i));
  Obj := nil;
end;

end.

要实现在EDIT1中输入一个数字,然后点击<SetButton>后将值传到服务端,然后存储到一个变量中,当客户端点击<GetButton>时,服务端将变量的值传回客户端显示,但每次<GetButton>传回的值都是0.而不是刚刚SET的值,哪位可以解决该问题?
分不够可加!

14 个解决方案

#1

不懂,只有帮UP接点分.

#2

var obj: IMyTest;
把创建的obj对象保存下来！就可以了。
你设置了，就把obj＝nil，不是把这个对象给释放啦！那还跟你保存这个值呢？
Get时，等于是重新创建一个新的服务器对象，当然值为0啦！

#3

把OBJ:=NIL去掉问题依然存在!

#4

老兄，nil去掉，
但是GetButton1方法中你又创建了一个新的obj: IMyTest，这个不是你要的那个对象啦！
所以还是0

#5

能否给个实际的例子,谢谢!

#6

唉！
在TForm1的private声明 Obj: IMyTest;
把setbutton，getbutton中的obj声明都去掉
SetButton1把obj＝nil去掉
getbutton1写成
procedure TForm1.GetButton1Click(Sender: TObject);
var
    i: Integer;
begin
  i := Obj.GetCount;
  ShowMessage(IntToStr(i));
  Obj := nil;
end;

#7

塞翁,不好意思,菜了点!
按照你的做法做完了,结果依然和以前一样!不知原因为何!

#8

如果是这样，你就需要调一下服务器端的代码了。
看看是不是同一个对象！

#9

汗S，看来你还是没有明白WebService。

WebService，顾名思义，它是一个Web应用，而一个标准的Web应用，是无状态的，你必须自己处理状态的持久化，比如保存到数据库，或通过cookie记录在客户端。

在Web应用中，只有“请求”和“响应”，而一个SOAP“调用”就是被这样分解的。所以你调用SetCount的时候，只是发出一个Web请求，然后服务端创建一个实例去响应你的请求，执行完后，服务端返回一个响应，然后服务端实例就被释放了。当你下次调用GetCount的时候，又是一个请求，服务端又创建一个新的实例--注意：是新的--所以就是你现在的结果了。

这样的结果是正确的。

#10

来晚了，今天才上网收邮件，具体原因，楼上已经说的很清楚了，
无状态的这个概念要好好理解，因为有了它，连接池，负载平衡才得以实现，

#11

帮顶一下

#12

webserice 是无状态的，基于http协议的。

#13

顶一下

#14

问题已解决,放分!

#1