Delphi websocket Client 調用Java websocket Server

一、Delphi使用websocket需要下面的開源庫：

地址：https://github.com/andremussche/DelphiWebsockets

二、建立SpringBoot的websocket服務端：

這方面資料比較多，大家隨便搜搜，我以下面的博友爲例

請參照：https://blog.csdn.net/huiyunfei/article/details/90719351

package com.ybsoftware.demo.websocket;

import org.springframework.stereotype.Component;

import javax.websocket.*;
import javax.websocket.server.PathParam;
import javax.websocket.server.ServerEndpoint;
import java.io.IOException;
import java.util.concurrent.CopyOnWriteArraySet;

@ServerEndpoint("/webSocketServer/{sid}")
@Component
public class WebSocketServer {

    //靜態變量，用來記錄當前在線連接數。應該把它設計成線程安全的。
    private static int onlineCount = 0;
    //concurrent包的線程安全Set，用來存放每個客戶端對應的MyWebSocket對象。
    private static CopyOnWriteArraySet<WebSocketServer> webSocketSet = new CopyOnWriteArraySet<WebSocketServer>();

    //與某個客戶端的連接會話，需要通過它來給客戶端發送數據
    private Session session;

    //接收sid
    private String sid="";
    /**
     * 連接建立成功調用的方法*/
    @OnOpen
    public void onOpen(Session session,@PathParam("sid") String sid) {
        this.session = session;
        webSocketSet.add(this);     //加入set中
        addOnlineCount();           //在線數加1
        System.out.println("有新窗口開始監聽:"+sid+",當前在線人數爲" + getOnlineCount());
        this.sid=sid;
        try {
            sendMessage("Hi 我是服務器，恭喜你連接成功");
        } catch (IOException e) {
            System.out.println("websocket IO異常");
        }
    }

    /**
     * 連接關閉調用的方法
     */
    @OnClose
    public void onClose() {
        webSocketSet.remove(this);  //從set中刪除
        subOnlineCount();           //在線數減1
        System.out.println("有一連接關閉！當前在線人數爲" + getOnlineCount());
    }

    /**
     * 收到客戶端消息後調用的方法
     *
     * @param message 客戶端發送過來的消息*/
    @OnMessage
    public void onMessage(String message, Session session) {
        System.out.println("收到來自窗口"+sid+"的信息:"+message);
        //羣發消息
        for (WebSocketServer item : webSocketSet) {
            try {
                item.sendMessage(message);
            } catch (IOException e) {
                e.printStackTrace();
            }
        }
    }

    /**
     *
     * @param session
     * @param error
     */
    @OnError
    public void onError(Session session, Throwable error) {
        System.out.println("發生錯誤");
        error.printStackTrace();
    }
    /**
     * 實現服務器主動推送
     */
    public void sendMessage(String message) throws IOException {
        this.session.getBasicRemote().sendText(message);
    }


    /**
     * 羣發自定義消息
     * */
    public static void sendInfo(String message,@PathParam("sid") String sid) throws IOException {
        System.out.println("推送消息到窗口"+sid+"，推送內容:"+message);
        for (WebSocketServer item : webSocketSet) {
            try {
                //這裏可以設定只推送給這個sid的，爲null則全部推送
                if(sid==null) {
                    item.sendMessage(message);
                }else if(item.sid.equals(sid)){
                    item.sendMessage(message);
                }
            } catch (IOException e) {
                continue;
            }
        }
    }

    public static synchronized int getOnlineCount() {
        return onlineCount;
    }

    public static synchronized void addOnlineCount() {
        WebSocketServer.onlineCount++;
    }

    public static synchronized void subOnlineCount() {
        WebSocketServer.onlineCount--;
    }
}

三、建立delphi的websocket客戶端：

unit Unit3;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, IdURI;

type
  TForm3 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure ClientOnTextData(const sData: String);
  end;

var
  Form3: TForm3;

implementation

uses
  IdWebsocketServer, IdHTTPWebsocketClient, superobject, IdSocketIOHandling,
  IdIOHandlerWebsocket;
{$R *.dfm}

var
  client: TIdHTTPWebsocketClient;

procedure TForm3.Button1Click(Sender: TObject);
begin
  try
    // 創建並建立長連接
    client := TIdHTTPWebsocketClient.Create(Self);
    client.Port := 8090;
    client.Host := '10.88.77.56';
    // 對應SpringBoot的websocket的路徑
    client.WSResourceName := 'webSocketServer/1';
    client.Connect;
    client.UpgradeToWebsocket;
    // 設置數據監聽
    client.OnTextData := ClientOnTextData;
  except
    on E: Exception do
      Memo1.Lines.Add(E.ToString);
  end;

end;


procedure TForm3.ClientOnTextData(const sData: String);
begin
  // 獲得服務器發送的數據
  Memo1.Lines.Add(sData);
end;

end.