TCP/IP session - can someone help
in [Visual Objects]
|
Prev: Having problems with ReportPro after upgrading VO2.8 to SP2
Next: Displaying JPG in a BBrowser cell - sample code please
From: Tom Szabo on 21 Nov 2008 17:00 Hi, I would like to connect from a VO app to an Asterisk system, but not sure how to go about it. http://www.voip-info.org/wiki/view/Asterisk+manager+API Any help would be greatly appreciated TIA, Tom
From: Alessandro Antonangeli on 22 Nov 2008 05:00 Hi Tom Here are some hints: First yo should be able to make a TCP connection (you can find examples in this NG and in CAVO sample) You need a client connection to the Asterisk server You must enable Asterisk to accept order trought TCP IP: see /etc/asterisk/manager.conf This an example [general] enabled = yes port = 5999 bindaddr = 0.0.0.0 ;displayconnects = yes [yyyyy] secret=xxxxx deny=0.0.0.0/0.0.0.0 permit=127.0.0.1/255.255.255.255 permit=192.168.1.1/255.255.255.0 read = system,call,log,verbose,command,agent,user write = system,call,log,verbose,command,agent,user Your CAVO application must connect to the IP address of your asterisk server trougth the port you will specify in general (5999 in this example) Than your application must login: this is an example oSocketCentralino:oMioSocket:cAltriDati:="Action: Login"+CrLf oSocketCentralino:oMioSocket:cAltriDati+="ActionID: AStringYouPrefer"+CrLf oSocketCentralino:oMioSocket:cAltriDati+="Username: yyyyy"+CrLf oSocketCentralino:oMioSocket:cAltriDati+="Secret: xxxxx"+CrLf oSocketCentralino:oMioSocket:cAltriDati+="Events: On"+CrLf Please notice that username is the same than the section name [yyyyy] and the password is the one specified in secret After that, it depends on what you need: for example to make a call oSocketCentralino:oMioSocket:cAltriDati:="Action: Originate"+CrLf //NumDaChiamare is the phone number to call IF Left(NumDaChiamare,1)$PrefissiValidi//for outgoing call oSocketCentralino:oMioSocket:cAltriDati+="Channel: zap/g1/"+NumDaChiamare+CrLf ELSE //internal numbers oSocketCentralino:oMioSocket:cAltriDati+="Channel: SIP/"+NumDaChiamare+CrLf ENDIF oSocketCentralino:oMioSocket:cAltriDati+="Context: default"+CrLf oSocketCentralino:oMioSocket:cAltriDati+="Exten: "+NumInterno+CrLf oSocketCentralino:oMioSocket:cAltriDati+="Priority: 1"+CrLf oSocketCentralino:oMioSocket:cAltriDati+="Callerid: "+TelefonateInCorso[NumeroChiamateInCorso][4]+CrLf oSocketCentralino:oMioSocket:cAltriDati+="Timeout: "+Str(TempoDiAttesa,-1)+"000"+CrLf oSocketCentralino:oMioSocket:cAltriDati+="Async: yes"+CrLf With this isctructions you tell asterisk to place a call to NumDaChiamare and when someone answer to pass the comunication to the internal NumInterno. If the called party wont answer in TempoDiAttesa seconds, the call will drop. Note that with Async: yes, asterisk will be ready to place others call, with Async: no you will have to wait for the asterisk answer. The link you posted is the right way were to find information Remember to send an empty line with a CrLf in order to instruct Asterisk your command is finished and to process it HTH -- Ciao Alessandro "Tom Szabo" <tom(a)intersoft.net.au> ha scritto nel messaggio news:49272f49$1(a)dnews.tpgi.com.au... > Hi, > > I would like to connect from a VO app to an Asterisk system, but not sure > how to go about it. > > http://www.voip-info.org/wiki/view/Asterisk+manager+API > > Any help would be greatly appreciated > > TIA, > > Tom > >
From: Tom Szabo on 22 Nov 2008 07:03 Hi Alessandro, What you sent me is all really good info, but my primary problem is that I don't know how to start with making a connection. You mentioned that there are some examples in the VO Samples. Could you please point me ouy or give me more directions? Thanks very much for your help, I really do appreciate. TIA, Tom "Alessandro Antonangeli" <alcati(a)alcati.RemoveThis.com> wrote in message news:gg8l6s$vr1$1(a)aioe.org... > Hi Tom > Here are some hints: > First yo should be able to make a TCP connection (you can find examples in > this NG and in CAVO sample) > You need a client connection to the Asterisk server > You must enable Asterisk to accept order trought TCP IP: see > /etc/asterisk/manager.conf > This an example > > [general] > enabled = yes > port = 5999 > bindaddr = 0.0.0.0 > ;displayconnects = yes > > [yyyyy] > secret=xxxxx > deny=0.0.0.0/0.0.0.0 > permit=127.0.0.1/255.255.255.255 > permit=192.168.1.1/255.255.255.0 > read = system,call,log,verbose,command,agent,user > write = system,call,log,verbose,command,agent,user > > Your CAVO application must connect to the IP address of your asterisk server > trougth the port you will specify in general (5999 in this example) > Than your application must login: this is an example > > oSocketCentralino:oMioSocket:cAltriDati:="Action: Login"+CrLf > oSocketCentralino:oMioSocket:cAltriDati+="ActionID: AStringYouPrefer"+CrLf > oSocketCentralino:oMioSocket:cAltriDati+="Username: yyyyy"+CrLf > oSocketCentralino:oMioSocket:cAltriDati+="Secret: xxxxx"+CrLf > oSocketCentralino:oMioSocket:cAltriDati+="Events: On"+CrLf > > Please notice that username is the same than the section name [yyyyy] and > the password is the one specified in secret > After that, it depends on what you need: for example to make a call > > oSocketCentralino:oMioSocket:cAltriDati:="Action: Originate"+CrLf > //NumDaChiamare is the phone number to call > IF Left(NumDaChiamare,1)$PrefissiValidi//for outgoing call > oSocketCentralino:oMioSocket:cAltriDati+="Channel: > zap/g1/"+NumDaChiamare+CrLf > ELSE //internal numbers > oSocketCentralino:oMioSocket:cAltriDati+="Channel: > SIP/"+NumDaChiamare+CrLf > ENDIF > oSocketCentralino:oMioSocket:cAltriDati+="Context: default"+CrLf > oSocketCentralino:oMioSocket:cAltriDati+="Exten: "+NumInterno+CrLf > oSocketCentralino:oMioSocket:cAltriDati+="Priority: 1"+CrLf > oSocketCentralino:oMioSocket:cAltriDati+="Callerid: > "+TelefonateInCorso[NumeroChiamateInCorso][4]+CrLf > oSocketCentralino:oMioSocket:cAltriDati+="Timeout: > "+Str(TempoDiAttesa,-1)+"000"+CrLf > oSocketCentralino:oMioSocket:cAltriDati+="Async: yes"+CrLf > > With this isctructions you tell asterisk to place a call to NumDaChiamare > and when someone answer to pass the comunication to the internal NumInterno. > If the called party wont answer in TempoDiAttesa seconds, the call will > drop. > Note that with Async: yes, asterisk will be ready to place others call, with > Async: no you will have to wait for the asterisk answer. > The link you posted is the right way were to find information > Remember to send an empty line with a CrLf in order to instruct Asterisk > your command is finished and to process it > HTH > > -- > Ciao > Alessandro > > "Tom Szabo" <tom(a)intersoft.net.au> ha scritto nel messaggio > news:49272f49$1(a)dnews.tpgi.com.au... > > Hi, > > > > I would like to connect from a VO app to an Asterisk system, but not sure > > how to go about it. > > > > http://www.voip-info.org/wiki/view/Asterisk+manager+API > > > > Any help would be greatly appreciated > > > > TIA, > > > > Tom > > > > > >
From: John Martens on 22 Nov 2008 07:49 Tom, You should use the cHttp class of VO. This is a basic example how to get a file: oHttp := CHttp{"Asterisk connection"} cHttpInhoud := oHttp:GetDocumentByURL("www.server.com\Folder\Mydoc.htm") Norbert Kolb's methdo for getting data from a from shows some more oof cHttp: Cheers, John METHOD GetDocumentByForm(cIP, cDocument, cData, cHeaders) CLASS cHttp *************************************** // First the InternetOpen function is called to initialize the // remaining functions. Then the InternetConnect function is called // to identify the type of service being requested. This is necessary // as the same set of functions can be used to interact with a number // of different servers. *************************************** LOCAL lResult AS LOGIC LOCAL cPostData AS STRING LOCAL nPostDataLen AS DWORD LOCAL cRet AS STRING Default(@cIP, NULL_STRING) Default(@cDocument, NULL_STRING) Default(@cData, NULL_STRING) cRet := NULL_STRING // Open the connection IF SELF:hSession == NULL_PTR SELF:hSession := InternetOpen(String2Psz(SELF:cAgent),; INTERNET_OPEN_TYPE_PRECONFIG,; NULL_PTR,; NULL_PTR,; 0 ) // INTERNET_FLAG_SECURE ipv 0 om https te gebruiken ENDIF IF SELF:hSession <> NULL_PTR // Identify the type OF service that IS being accessed IF SELF:hConnect == NULL_PTR .OR. SELF:cHostAddress <> cIP SELF:cHostAddress := cIP SELF:hConnect := InternetConnect(SELF:hSession, ; String2Psz(SELF:cHostAddress), ; INTERNET_DEFAULT_HTTP_PORT, ; NULL_PSZ, ; NULL_PSZ, ; INTERNET_SERVICE_HTTP, ; 0, ; 0) ENDIF // // Give computer some time (otherwise app could freeze) ApplicationExec(EXECWHILEEVENT) IF SELF:hConnect <> NULL_PTR // Once we've identified the service, we need to indicate the // page to which the data will be posted. In this example, it will // be "/getorpost.php" SELF:hRequest := HttpOpenRequest(SELF:hConnect, ; String2Psz("POST"), ; String2Psz(cDocument), ; String2Psz("HTTP/1.0"), ; NULL_PSZ, ; 0, ; INTERNET_FLAG_RELOAD, ; 0) // We need to add a header to notify the web server that the // incoming data is form encoded and then send the request. Default(@cHeaders, "Content-Type: application/x-www-form-urlencoded" + CrLf) lResult := HttpAddRequestHeaders(SELF:hRequest, ; cHeaders, SLen(cHeaders), HTTP_ADDREQ_FLAG_ADD) // // Give computer some time (otherwise app could freeze) ApplicationExec(EXECWHILEEVENT) cPostData := cData nPostDataLen := SLen(cPostData) lResult := HttpSendRequest(SELF:hRequest, ; NULL_PSZ, ; 0, ; PTR(_CAST, cPostData), ; nPostDataLen) IF lResult // Finally, we need to collect our reward for all this effort cRet := SELF:GetResponse() SELF:CloseRequest() //ToonMelding('VRT-Antwoord op Http request',cRet) ELSE cRet := 'FORM_ERROR: Request niet juist verzonden' ENDIF ELSE cRet := 'FORM_ERROR: Connect niet juist gemaakt' ENDIF ELSE cRet := 'FORM_ERROR: Sessie niet juist open' ENDIF RETURN cRet Tom Szabo schreef: > Hi Alessandro, > > What you sent me is all really good info, but my primary problem is that I > don't know how to start with making a connection. > > You mentioned that there are some examples in the VO Samples. Could you > please point me ouy or give me more directions? > > Thanks very much for your help, I really do appreciate. > > TIA, > > Tom > > "Alessandro Antonangeli" <alcati(a)alcati.RemoveThis.com> wrote in message > news:gg8l6s$vr1$1(a)aioe.org... >> Hi Tom >> Here are some hints: >> First yo should be able to make a TCP connection (you can find examples in >> this NG and in CAVO sample) >> You need a client connection to the Asterisk server >> You must enable Asterisk to accept order trought TCP IP: see >> /etc/asterisk/manager.conf >> This an example >> >> [general] >> enabled = yes >> port = 5999 >> bindaddr = 0.0.0.0 >> ;displayconnects = yes >> >> [yyyyy] >> secret=xxxxx >> deny=0.0.0.0/0.0.0.0 >> permit=127.0.0.1/255.255.255.255 >> permit=192.168.1.1/255.255.255.0 >> read = system,call,log,verbose,command,agent,user >> write = system,call,log,verbose,command,agent,user >> >> Your CAVO application must connect to the IP address of your asterisk > server >> trougth the port you will specify in general (5999 in this example) >> Than your application must login: this is an example >> >> oSocketCentralino:oMioSocket:cAltriDati:="Action: Login"+CrLf >> oSocketCentralino:oMioSocket:cAltriDati+="ActionID: AStringYouPrefer"+CrLf >> oSocketCentralino:oMioSocket:cAltriDati+="Username: yyyyy"+CrLf >> oSocketCentralino:oMioSocket:cAltriDati+="Secret: xxxxx"+CrLf >> oSocketCentralino:oMioSocket:cAltriDati+="Events: On"+CrLf >> >> Please notice that username is the same than the section name [yyyyy] and >> the password is the one specified in secret >> After that, it depends on what you need: for example to make a call >> >> oSocketCentralino:oMioSocket:cAltriDati:="Action: Originate"+CrLf >> //NumDaChiamare is the phone number to call >> IF Left(NumDaChiamare,1)$PrefissiValidi//for outgoing call >> oSocketCentralino:oMioSocket:cAltriDati+="Channel: >> zap/g1/"+NumDaChiamare+CrLf >> ELSE //internal numbers >> oSocketCentralino:oMioSocket:cAltriDati+="Channel: >> SIP/"+NumDaChiamare+CrLf >> ENDIF >> oSocketCentralino:oMioSocket:cAltriDati+="Context: default"+CrLf >> oSocketCentralino:oMioSocket:cAltriDati+="Exten: "+NumInterno+CrLf >> oSocketCentralino:oMioSocket:cAltriDati+="Priority: 1"+CrLf >> oSocketCentralino:oMioSocket:cAltriDati+="Callerid: >> "+TelefonateInCorso[NumeroChiamateInCorso][4]+CrLf >> oSocketCentralino:oMioSocket:cAltriDati+="Timeout: >> "+Str(TempoDiAttesa,-1)+"000"+CrLf >> oSocketCentralino:oMioSocket:cAltriDati+="Async: yes"+CrLf >> >> With this isctructions you tell asterisk to place a call to NumDaChiamare >> and when someone answer to pass the comunication to the internal > NumInterno. >> If the called party wont answer in TempoDiAttesa seconds, the call will >> drop. >> Note that with Async: yes, asterisk will be ready to place others call, > with >> Async: no you will have to wait for the asterisk answer. >> The link you posted is the right way were to find information >> Remember to send an empty line with a CrLf in order to instruct Asterisk >> your command is finished and to process it >> HTH >> >> -- >> Ciao >> Alessandro >> >> "Tom Szabo" <tom(a)intersoft.net.au> ha scritto nel messaggio >> news:49272f49$1(a)dnews.tpgi.com.au... >>> Hi, >>> >>> I would like to connect from a VO app to an Asterisk system, but not > sure >>> how to go about it. >>> >>> http://www.voip-info.org/wiki/view/Asterisk+manager+API >>> >>> Any help would be greatly appreciated >>> >>> TIA, >>> >>> Tom >>> >>> >> > >
From: Alessandro Antonangeli on 22 Nov 2008 09:21
> What you sent me is all really good info, but my primary problem is that I > don't know how to start with making a connection. Well, you have a lot of job then!!! I use mainly the VO class cSocket: I sublcassed it because I need asyncronous connection. I did find in this newgroup some code for making it: look for WSAAsyncSelect I put here the code I use to make the client connect to the server: this is only part of the code, but it may help you. Basically with WSAAsyncSelect you can have an event dispatched to a class. And this was what i needed, otherwise you must keep on listening to the port First of all look to CAVO cSocket help and example. Mainly to send and receive data I use SendRawText and GetRawText: if you look to them in the help file, you will find some good example, may be enought for you Sorry, but comment and name are in Italian: NumPorta is the port number (5999 of the previous post), NomeHost is the name or the IP address of your asterisk machine The LG(.....) function just make a log file/output: you can ignore them MioSocket is a subclass of cSocket -- Ciao Alessandro METHOD AscoltaClient(NumPorta AS DWORD,NomeHost AS STRING) AS DWORD CLASS TCPGestione LOCAL oClientSocket AS MioSocket LOCAL nSocket AS DWORD LOCAL IndirizzoIP AS STRING oClientSocket:=MioSocket{SOCK_STREAM} nSocket:=oClientSocket:NumSocket IF Empty(NomeHost) NomeHost:=HostName() ENDIF IndirizzoIP:=GetIPAddress(NomeHost) Lg("Connessione di",nSocket,"a IndirizzoIP,NumPorta",IndirizzoIP,NumPorta) IF !oClientSocket:connect(IndirizzoIP,NumPorta) /*SSTAT_UNINITIALIZED SSTAT_DISCONNECTED SSTAT_CONNECTING SSTAT_LISTENING SSTAT_DISCONNECTING SSTAT_CONNECTED SSTAT_ERRORSTATE SSTAT_TIMEDOUT */ Lg("Errore nella connessione",IndirizzoIP,NumPorta,oClientSocket:ErrorMsg,oClientSocket:Status) oClientSocket:Close() oClientSocket:=NULL_OBJECT RETURN INVALID_SOCKET ENDIF IF WSAAsyncSelect(nSocket,SELF:hwSWHandle,SELF:dwNotificationMessage,FD_READ+FD_WRITE+FD_CLOSE)==0 Lg("Socket accepting IN non-blocking mode") ELSE Lg("ERRORE Socket NON accepting IN non-blocking mode") oClientSocket:=NULL_OBJECT nSocket:=INVALID_SOCKET ENDIF IF oClientSocket=NULL_OBJECT IF shutdown(nSocket,SD_BOTH)==0 closesocket(nSocket) ENDIF nSocket:=INVALID_SOCKET ELSE oClientSocket:AssegnaGestore(SELF) AAdd(aSockets,oClientSocket) ENDIF Lg("Client in ascolto",nSocket,INVALID_SOCKET) Lg(oClientSocket:ErrorMsg) RETURN nSocket |