如何使用.net开发的web services?(200分)

www.xmotheds.com 上面有一个jokeserver
http://www.xmethods.com/ve2/ViewListing.po;jsessionid=-8a2F3iMmQ9MIWL5wFZT_dNx(QCcd0CRM)?serviceid=24682
使用THTTPRIO的代码：
procedure TForm1.Button1Click(Sender: TObject);
Var p:JokeServerSoap;
lang : JokeToString;
receive :JokeToStringResponse;
begin
p := Httprio1 as JokeServerSoap;
lang := JokeToString.Create;
lang.Lang := 'ES';
receive := JokeToStringResponse.Create;
receive := p.JokeToString(lang);
memo1.Text := receive.JokeToStringResult;
lang.Free;
receive.Free;
end;
出现internal 500错误。
按照李维的（程序员8期）的代码：
var mskobj : OleVariant;
lang : JokeToString;
receive :JokeToStringResponse;
begin
lang := JokeToString.Create;
lang.Lang := 'ES';
receive := JokeToStringResponse.Create;
mskObj := CreateOleObject('MSSOAP.SoapClient');
mskObj.mssoapinit('http://www.xml-webservices.net/services/entretainment/joke_server.asmx?WSDL');
receive := mskObj.JokeToString(lang);
memo1.Text := receive.JokeToStringResult;
lang.Free;
receive.Free;
end;

[red]receive := mskObj.JokeToString(lang);编译错误。[/red]
如何解决？

delphi6 patch 2已经可以直接使用了，所以这不再是问题了。呵呵。
请跟贴，前10名散分。

我也为Doc模式的Web Services调用困惑过,
patch 2安装后可以直接用httprio还是可以按照李维的做法用.

学习中！

使用wsdl importer直接就可以了，borland把函数都写好了。
可以到www.xmotheds.com随便引入几个看一看。
我还写了个《每日一笑话》使用的也是上面的一个service，
http://www.csdn.net/cnshare/soft/11/11325.shtm
下载
http://www.csdn.net/cnshare/soft/openfile.asp?kind=1&id=7586
有兴趣的可以下载看看。
就不要问我要源代码了，因为实在太简单了。

谢谢你呀,学习中.

jianl请到
http://www.delphibbs.com/delphibbs/dispq.asp?lid=978436
看看.

落伍了，我还没时间学呢。

多人接受答案了。