글 수 497
이장환
조회 수 : 4519
2005.10.27 (22:27:58)
>게시판을 이용해 주셔서 감사합니다.
>다음양식에 맞게 입력해주세요.
>
>* 고객시스템명 :
>* TOInB 버전 : 5.0
>* 서버 Platform :
>* 문의 유형(질문/요청/참조) :
>* 내용 :
>
>수고하십니다.
>
>등록되어있는 SOB의 Object들을 C/S쪽에서 사용할 수 는 있는지 알고 싶습니다.
>웹으로 서비스되고있는 사이트를 C/S프로그램으로 돌릴 필요가 있다고 생각이
>들어 프로그램을 개발해야 하는데요. 데이타 작업은 기존 만들어 놓은 SOB를
>활용할 수 있을것 같다는 생각이 들어서요.
>
>모회사에 SI로 들어갔을 때 Tuxedo기반에서 C++로 C/S,
>JSP로 웹서비스하는데, DataSet Object는 한 분말 개발하더라고요.
>
>저희쪽에서는 VB로 개발할 생각인데요.
>혹시 방법이 있으시면 알고싶습니다.
>감사합니다.
TOInB의 ToinbAsp.dll API 모듈을 사용하셔서 VB로 작성 가능합니다.
다음은 VB로 작성하는 예입니다.
Module Module1
Sub Main()
Dim objToinbAsp = CreateObject("ToinbAsp.ToinbWAsp")
Call objToinbAsp.Init("C:\\Inetpub\\Scripts\\message.ko", "D:\\Toinb_api.log")
If objToinbAsp.ReturnValue < 0 Then
MsgBox("Init Error" + objToinbAsp.GetErrStr)
Exit Sub
End If
Call objToinbAsp.SetArg("ddd=111,name=안녕하세요,fff=56", vbNullString, ",", "=")
If objToinbAsp.ReturnValue < 0 Then
MsgBox("SetArg Error" + objToinbAsp.GetErrStr)
Exit Sub
End If
Call objToinbAsp.GetData("210.124.184.25", "5001", 30, "demo_sel(O:output=out)")
If objToinbAsp.ReturnValue < 0 Then
MsgBox("GetData Error" + objToinbAsp.GetErrStr)
Exit Sub
End If
Dim iLoop, lRowCnt
On Error Resume Next
lRowCnt = objToinbAsp.GetRowCnt("out")
If objToinbAsp.ReturnValue < 0 Then
MsgBox("GetRowCnt Error" + objToinbAsp.GetErrStr)
Exit Sub
End If
End Sub
End Module
http://member.shift.co.kr/index.php?document_srl=99967
(*.124.184.25)
|
|
