面向 Delphi 和 .NET 的企业级通信组件

procedure TForm1.ConnectWebSocket;
begin
  sgcWebSocketClient1.Host   := 'www.esegece.com';
  sgcWebSocketClient1.Port   := 2053;
  sgcWebSocketClient1.TLS    := True;
  sgcWebSocketClient1.Active := True;
end;

procedure TForm1.OnMessage(Connection: TsgcWSConnection;
  const Text: string);
begin
  Memo1.Lines.Add('Received: ' + Text);
end;

void __fastcall TForm1::ConnectWebSocket()
{
  sgcWebSocketClient1->Host   = "www.esegece.com";
  sgcWebSocketClient1->Port   = 2053;
  sgcWebSocketClient1->TLS    = true;
  sgcWebSocketClient1->Active = true;
}

void __fastcall TForm1::OnMessage(TsgcWSConnection *Connection,
  const UnicodeString Text)
{
  Memo1->Lines->Add("Received: " + Text);
}

var client = new TsgcWebSocketClient();
client.Host = "www.esegece.com";
client.Port = 2053;
client.TLS  = true;

client.OnMessage += (sender, args) =>
{
  Console.WriteLine($"Received: {args.Text}");
};

client.OnConnect += (sender, args) =>
{
  client.WriteData("Hello from .NET!");
};

client.Active = true;

program WebSocketClient;
{$mode objfpc}{$H+}
uses
  sgcWebSocket;

var
  Client: TsgcWebSocketClient;
begin
  Client := TsgcWebSocketClient.Create(nil);
  Client.Host   := 'www.esegece.com';
  Client.Port   := 2053;
  Client.TLS    := True;
  Client.Active := True;
  ReadLn;
  Client.Free;
end.