Integrando Skype em aplicações Delphi
Transferir como PPTX, PDF6 gostaram6,752 visualizações
O documento fornece uma visão geral sobre a integração do Skype em aplicações Delphi, explicando o que é Skype e a sua popularidade. Detalha a API do Skype, incluindo métodos de integração, como conectar e enviar comandos, além de descrever o uso do Skype4COM. Inclui links para documentação e recursos adicionais para desenvolvedores interessados.
Integrando Skype em aplicações Delphi
- 1. Integrando Skype em aplicações DelphiAndreano LanusseTechnical Lead Evangelist, Developer Relations
- 2. O que é Skype?P2P Internet Telephone – VOIPComputador para ComputadorComputador para Telefone (SkypeOut)Telefone para Computador (Skypein)P2P Instant MessengerTópicsHistóricosP2P Application Framework
- 3. O que é Skype?Mais de 500 milhões de downloadsMais de 130 milhões de usuários ativos4 a 8 milhões de usuários simultâneos250000 novos usuários por dia
- 4. O quão amigável é o SkypeDelphi amigávelWindows Client escrito em DelphiUsa Indy para as comunicações que não são P2PSDK Tools escrito em DelphiAlgumas documentação e interfaces escritas em pascalExemplosDelphiC++C#VBPhyton
- 5. Desenvolvendo para SkypeSkype APIMétodo original de integraçãoUsa Windows MessageMuito flexívelSkype4COM / Skype4JavaEasyObjectWrappersMenos flexívelSkype ExtrasPlug-in Framework
- 6. O que você precisa para usar Skype APIInstalaçãoSkype: http://www.skype.comNenhum outro arquivo necessárioDocumentaçãoAPI – https://developer.skype.com/Docs/ApiDocDev Notes - https://developer.skype.com/Docs/DevNotesEste apresentaçãoVamos focar no Skype API e Skype4COM
- 7. Usando Skype APIConectando ao SkypeRegistrar ‘SkypeControlAPIDiscover’ windows messageRegistrar ‘SkypeControlAPIAttach’ windows messageBroadcast ‘SkypeControlAPIDiscover’ windows messageSkype responde com um ‘SkypeControlAPIAttach’ messageIdentificao o Protocolo de referênciaprocedure TSkypeAPI.Connect;beginif IsSkypeInstalled thenbegin FSkypeAPIDiscover := RegisterWindowMessage('SkypeControlAPIDiscover'); FSkypeAPIAttach := RegisterWindowMessage('SkypeControlAPIAttach'); SendMessage(HWND_BROADCAST, FSkypeAPIDiscover, Handle, 0)end;end;
- 8. Definindo Protocolo - Skype APIDefine qual protocolo usarOverride WndProcprocedure TSkypeAPI.WndProc(var Message: TMessage);beginif Message.Msg = FSkypeAPIAttach thenbeginif Message.LParam = 0 thenbegin FSkypeAPIWindow := Message.WParam; SendCommand('PROTOCOL '+IntTostr(FProtocol));endelseif Assigned(FOnConnectStatus) thencaseMessage.LParam of 1: FOnConnectStatus(Self,csWaitingForConfirmation); 2: FOnConnectStatus(Self,csDenied); 3: FOnConnectStatus(Self,csNotAvailable);else FOnConnectStatus(Self,csNotAttached);end;Message.Result := 1end elseinherited;end;
- 9. Send Command - Skype APIDefinir parâmetros através da estrutura CopyDataStructprocedure TSkypeAPI.SendCommand(Str: String);var CopyData: CopyDataStruct;beginif Str <> '' thenbegin CopyData.dwData := 0; CopyData.lpData := PChar(Str); CopyData.cbData := Length(Str)+1; SendMessage(FSkypeAPIWindow, WM_COPYDATA, Self.Handle,LPARAM(@CopyData));end;end;
- 10. Receive Command - Skype APIEspere pelo WM_COPYDATA messagelpData recebe o comando como PAnsiCharprocedure TSkypeAPI.WMCopyData(var Message: TWMCopyData);var msg : String;beginif (Message.From = FSkypeAPIWindow) and (FSkypeAPIWindow > 0) thenbegin msg := PAnsiChar(Message.CopyDataStruct.lpData) Message.Result := 1end;end;
- 11. Skype API WrapperJason Southwell e Dr. Bob criaram o componente TSkypeAPISkype API wrapperCódigo disponível no CodeCentral, facilita o uso do Skype API
- 12. Comandos - Skype APIPhone ControlAUDIO IN | OUT, HOOK ON | OFF, MUTE ON | OFF, BTN_PRESSED, BTN_RELEASEDVoice CallsCALL | GET CALL | SET CALL INPROGRESS | SET CALL FINISHED | SET CALL ONHOLD | SET CALL JOIN CONFERENCE | SET CALL DTMF | SET CALL SEEN | ALTER CALL | GET CALL CAN TRANSFER | ALTER CALL TRANSFERManaging call forwardingGET PROFILE CALL APPLY CF | SET PROFILE CALL APPLY CF | GET PROFILE CALL FORWARD RULES | SET PROFILE CALL FORWARD RULES | GET PROFILE CALL NOANSWER TIMEOUT | SET PROFILE CALL NOANSWER TIMEOUT | GET PROFILE CALL SEND TO VM | SET PROFILE CALL SEND TO VM |
- 13. Comandos - Skype APISending and managing SMS messagesCREATE SMS | SET SMS BODY | ALTER SMS SEND | SET SMS SEEN | SET SMS REPLY TO NUMBER | SET SMS TARGET NUMBERSCustom Application CommunicationAP2AP CREATE | AP2AP CONNECT | AP2AP WRITE | AP2AP DATAGRAM | AP2AP READ | AP2AP DISCONNECT | AP2AP DELETE Making and managing video callsGET VIDEO IN | SET VIDEO IN | GET CALL VIDEO STATUS | ALTER CALL VIDEO SEND | ALTER CALL VIDEO RECEIVE | GET CALL VIDEO SEND STATUS | GET CALL VIDEO RECEIVE STATUS | IS VIDEO CAPABLE | OPEN VIDEOTEST | OPEN OPTIONS VIDEO
- 14. Comandos - Skype APIManaging contacts and groupsGET GROUP USERS | GET GROUP VISIBLE | GET GROUP EXPANDED | GET GROUP DISPLAYNAME | SET GROUP DISPLAYNAME | GET GROUP TYPE | CREATE GROUP | DELETE GROUP | ALTER GROUP ADDUSER | ALTER GROUP REMOVEUSER | SET USER DISPLAYNAMELista completa de comandoshttps://developer.skype.com/Docs/ApiDoc/Commands
- 15. Demo Skype API
- 16. O que você precisa para usar Skype4COMInstalaçãoSkype: http://www.skype.comSkype4COM.dllhttp://developer.skype.com/accessoriesPrecisa registrar a DLLObjectWrapper para APIAjuda a entender os comandos da API
- 17. Objetos principais - Skype4COMSkype (ISkype)Core integration objectFornece acesso a maioria dos objetosComponente “Visual” quando importadoDrop no form o crie em runtimeApplication (IApplication)Crie aplicações p2p usando o Skype frameworkIApplication tem conflito com VCL TApplication, referencie Forms.Application para evitar este problema
- 18. Demo Skype4COMUsando VCLUsando TMS Smooth Controls
- 19. ExemplosCódigo fonte disponível para downloadhttp://cc.embarcadero.com/Item/27742
- 20. PerguntasEDN – Embarcadero Developer Networkhttp://edn.embarcadero.com/br (Artigos e Vídeos)Trial Downloadhttp://www.embarcadero.com/downloadsCódigo fonte disponível para downloadhttp://cc.embarcadero.com/Item/27742