RTCPeerConnection pour Delphi

uses
  sgcP2P, sgcP2P_DataChannel;

// TFormPeer contient FPeer, FChannel, FIncoming : TStringList et les gestionnaires

procedure TFormPeer.CreatePeer;
begin
  FPeer := TsgcRTCPeerConnection.Create(nil);
  FPeer.RTCOptions.ICEServers.AddURL('stun:stun.l.google.com:19302');
  FPeer.RTCOptions.ICE.TURN := False;  // pas encore de serveur TURN

  FPeer.OnLocalDescription := OnLocalDescription;
  FPeer.OnDataChannel      := OnDataChannel;

  // côté sortant. CreateDataChannel active RTCOptions.DTLS
  FChannel := FPeer.CreateDataChannel('chat');
  FChannel.OnMessage := OnChannelMessage;
  FPeer.CreateOffer;
end;

procedure TFormPeer.OnLocalDescription(Sender: TObject;
  const aType, aSDP: string);
begin
  // aType vaut 'offer' ou 'answer'
  SignalToPeer(aType, aSDP); // via votre canal de signalisation WebSocket
end;

procedure TFormPeer.OnDataChannel(Sender: TObject;
  aChannel: TsgcRTCDataChannel);
begin
  FChannel := aChannel;
  FChannel.OnMessage := OnChannelMessage;
end;

procedure TFormPeer.OnChannelMessage(Sender: TObject;
  const aText: string);
begin
  // se déclenche sur un thread de travail, marshalez avant de toucher un contrôle
  FIncoming.Add(aText);
end;