Discussion :

[portu]

Bonjour à tous,

Ca fait maintenant plusieurs jours que je tourne en rond afin de trouver la meilleure
façon d'implémenter le protocole WebSocket dans une application Delphi.

J'ai l'impression que rien n'existe en standard dans Delphi (Contrairement dans d'autres langages populaires ).

J'ose maintenant espérer qu'un Delphi-iste de Developpez.com a déjà implémenté
ce protocole pourrait me donner quelques pistes.

PS : J'ai essayé avec les composants Indy et Overbyte ICS mais rien à faire...

D'avance merci.

[ShaiLeTroll]

En Seattle, je ne sais pas mais j'avais échangé sur le forum sur les WebSockets et le Hixie76,
A l'époque, il n'y avait rien, maintenant, il y a des composants tiers comme sgcWebSockets for Delphi / CBuilder / C#
Si tu n'as pas le temps pour faire toi même le protocole, quelques centaines d'euros pour une licence c'est un gain de temps

[portu]

C'est bien ce qu'il me semblait. J'aurais bien aimé cependant éviter avoir recourt à des composants tiers sachant
que mon application en a déjà une bonne cinquantaines de packs de composants. Ca devient de plus en plus Rock&Roll
pour migrer de Delphi.

Bref si quelqu'un à d'autres pistes, je suis preneurs.

Merci ShaiLeTroll !

[Paul TOTH]

as tu tenté "ICS WebSocket" et "Indy WebSocket" sur Google ?

http://www.esegece.com/websockets/

https://jonlennartaasenden.wordpress...in-15-minutes/
https://github.com/andremussche/DelphiWebsockets

http://andremussche.blogspot.fr/2012...jects-and.html

https://github.com/ms301/ics-websockets

yapluka !

[portu]

Oui bien sûr. ça n'en reste pas moins "facile" à implémenter . Il n'y a pas trop de doc pour la partie "client".
Mais bon, pas trop le choix... on va faire avec.

Merci

[portu]

Voilà, j'ai réussi à implémenter les WebSockets à l'aide de la bibliothèque de https://github.com/andremussche/DelphiWebsockets
Pour ceux que ça intéresse, voici une petite portion de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
FWebSocket := TIdHTTPWebsocketClient.Create(nil);
FWebSocket.Host := FHost;
FWebSocket.Port := FPort;
FWebSocket.ProtocolVersion := FProtocolVersion;
Result := FWebSocket.TryConnect and FWebSocket.TryUpgradeToWebsocket;