- 題名: VB6からWebサービスのCall方法
- 日時: 2011/03/02 18:33:01
- ID: 28274
- この記事の返信元:
- (なし)
- この記事への返信:
- [28275] Re[1]: VB6からWebサービスのCall方法2011/03/03 11:06:25
- ツリーを表示
■No28274に返信(kuroさんの記事) > セッション情報を保持したいのですが、どのように対応すればよいのでしょうか? MSSOAP.SoapClient といいますか、SOAP Toolkit のバージョンは 2.0 でしょうか。 SOAP Toolkit 3.0 を使用してみてはいかがでしょうか。 SOAP Toolkit 3.0 http://www.microsoft.com/downloads/en/details.aspx?FamilyId=C943C0DD-CEEC-4088-9753-86F052EC8450&displaylang=en
分類:[VB6以前]
2011/03/02(Wed) 18:35:09 編集(投稿者)
こんばんは。
VB6からWebサービスのCall方法についての質問です。
VB6からWebサービス(ASP.NET)のメソッド自体をCallできるのですが
下記Aの機能をCallすると"ログイン未実施"が返ってきてしまいます。
セッション情報を保持したいのですが、どのように対応すればよいのでしょうか?
(VB.NETならセッション情報をクッキーコンテナで保持できるのですが...)
///// VB6 ///////
Dim oSoapClient As SOAPClient
Dim strRes As Integer
Set oSoapClient = CreateObject("MSSOAP.SoapClient")
'WSDLファイル読み込み
strRes = oSoapClient.mssoapinit("http://localhost/serviceTEST.asmx?wsdl")
'WebサービスのログインメソッドをCall
@ strRes = oSoapClient.login("ユーザー名")
'WebサービスのDB検索をCall
A strRes = oSoapClient.SerchDB("検索キー","検索結果")
///// Web Service //////
@Public Function login(ByVal strUserID as String) as String
Session("UserID") = strUserID
Return "ログイン成功"
End Function
APublic Function SerchDB(ByVal strKey as String, ByRef ds as DataSet) as String
'ログインチェック
If Session("UserID") Is Nothing Then
Return "ログイン未実施"
End If
:
:
End Function