Skype + xHarbour & LLamadas telefonicas
Posted: Wed Mar 21, 2007 12:33 pm
Con el siguiente codigo se pueden hacer lamadas telefonicas a traves de Internet usando el Skype + xHarbour:
El problema es que no encuentro por ningun lado el DLL llamado SkypeAPI.dll; Si alguno de ustedes sabe donde encontrar este DLL favor de comunicarnoslo.
Saludos,
George
Code: Select all
function dial_skype(t_phone)
local objskype
if empty(t_phone)
return .t.
endif
objSkype = CreateObject("SKYPEAPI.Access", "objSkype_")
objSkype:Connect()
do while objSkype:APIAttachmentStatus <> 0
enddo
inkey(.5)
oCall = objskype:PlaceCall(t_phone)
objskype = Nil
return .t.
Saludos,
George