Traducir de VB a DELPHI
Publicado por Sebastian (5 intervenciones) el 03/06/2005 22:59:09
Estimados maestros y maestras del codigo, quisiera saber si alguno de los presentes me puede ayudar a traspasar este script que esta hecho en VB a Delphi ya que lo he intentado y solo me arroja errores que no puedo entender.
<SCRIPT LANGUAGE="VBScript">
'dim mgr
'set mgr = CreateObject("Vvsys.VvManager")
'mgr.Initialize()
Sub VvCtrl_OnCallCreated(ByVal pIUnk, ByVal bIsIncoming)
MsgBox("Callback Test")
if(bIsIncoming) then
VvCtrl.Answer
end if
End Sub
Sub btnDial_onclick
VvCtrl.Dial IPAddr.Value, Speed.Value
End Sub
Sub btnHangup_onclick
VvCtrl.Hangup
End Sub
</SCRIPT>
De antemano Gracias.!!!
<SCRIPT LANGUAGE="VBScript">
'dim mgr
'set mgr = CreateObject("Vvsys.VvManager")
'mgr.Initialize()
Sub VvCtrl_OnCallCreated(ByVal pIUnk, ByVal bIsIncoming)
MsgBox("Callback Test")
if(bIsIncoming) then
VvCtrl.Answer
end if
End Sub
Sub btnDial_onclick
VvCtrl.Dial IPAddr.Value, Speed.Value
End Sub
Sub btnHangup_onclick
VvCtrl.Hangup
End Sub
</SCRIPT>
De antemano Gracias.!!!
Valora esta pregunta


0