Delphi WebSocket WSS Client API Binance

Je suis en delphi berlin 10.1...

voila, j'essaye de devlopper une application pour me connecter a mon compte binance crypto en delphi ... je reussi a le faire avec sgcWebSockets mais c'est une solution payante...
j'ai essayer de comprendre d'autre solution gratuite mais on dirrait que tout le monde fait seullement la version serveur du websocket...


en javascript je n'est qu'a faire ceci et j'ai automatiquement le prix du BTC/BUSD qui rentre en temp reel via le event onReceive :

Code:

---

1 2 3 4 5 6

conn = new TWebSocket("wss://stream.binance.com:9443/ws/btcbusd@trade"); conn.onOpen = opentest; conn.onReceive = receivedata; conn.onError = errortest; conn.onClose = closetest; conn.connect();

---

je veux pas faire un server, tout ce que je veux c'est me faire un objet delphi qu'on entre l'adresse wss, quil se connect et reste connecter websocket pour recevoir les data du server en temp reel...

please !!! quelqu'un peux m'aider ?

:?

le composant de Paul Toth dommage, on dirait un Server et non le client ... en même temps, ça semble juste être des requêtes HTTPS (le serveur pouvant émettre de façon asynchrone), le plus difficile étant si je me souviens bien le chiffrement et signature que l'on devait un peu tout faire à la main en Delphi XE, désolé, je n'ai aussi regarder que la partie Server pour justement recevoir des données depuis un appel type JQuery

Idem, gain de temps, d'argent Devart TScWebSocketClient, acheter un composant payant fait gagné du temps et plus fiable, surtout si la source est réputé comme Devart (Core Lab) qui fait aussi une couche provider DB des plus performantes.

Si il n'y a pas de client Indy pour les WebSocket, il y en a dans un ICS : https://getitnow.embarcadero.com/ICS_FMX-8.67-11/

oui je n'ai publié que la partie serveur, mais j'ai développé la partie cliente que j'ai surtout testé sur mon implémentation serveur.

par contre je n'utilise pas Indy mais mon propre composant HTTP pour ça...Indy c'est bien, mais comme le support SSL est devenu insuffisant, j'ai d'abord créé Socket Handler Indy pour SChannel, et petit à petit j'ai repris une portion de HTTP (qui fini par être complexe) dans un composant qui a la même tronche que Indy mais qui est de mon cru.

alors pour en revenir au client WebSocket, c'est pas très compliqué à faire, mais comme c'est une connexion persistante, les composants HTTP de Indy sont pas prévu pour au départ.

sinon c'est pas super compliqué, on commence par un GET HTTP avec les entêtes "Connection: Upgrade" et "Upgrade: websocket" pour indiquer au serveur qu'on veux faire du WS...il faut aussi préciser "Sec-WebSocket-Version: 13" et un clé de connexion "Sec-WebSocket-Key: xxx" qui est une clé de 16 octets random encodée en Base64

le serveur doit répondre avec en gros les mêmes entêtes plus un "Sec-Websocket-Accept: yyy" qui est un SHA1 de la clé + '258EAFA5-E914-47DA-95CA-C5AB0DC85B11' cf ma partie serveur

ensuite c'est un échange de messages avec la particularité que le client encode ses messages en XOR avec une clé aléatoire...le décodage est visible ici

côté client ça donne un truc comme ça

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

// x pointe ici après la taille du message qui est sur un nombre variable d'octets for i := 0 to 3 do begin Inc(Msg[x], Random(255)); Inc(x); end; // après les 4 random on a le message lui-même for i := 0 to Count - 1 do begin Msg[x + i] := Data[Start + i] xor Msg[x - 4 + i mod 4]; end;

---

ok c'est pas une solution clé en main, mais c'est gratos :D et si c'était clé en main ça serait sous GPL :p

? tu utilise les winsock directement comme cette exemple : http://www.felix-colibri.com/papers/...ogramming.html
ou tu utilise le composant TTcpClient ?

mon web socket herite de TIdTCPClient

j'ai un probleme avec la connection...

je me connect avec le websocket, c'est ok, quand je change de quoi dans mon compte sur le serveur, mon websocket recoit l'evenement sans probleme, mais si je ne recois pas d'evenement pendant environt 30 sec ou 1 min, mon websocket tombe dans un la la land !!! la communication marche plus, pourtant mon socket est encore connecter.

est ce que TIdTCPClient a un bug avec ca ???