RTCPeerConnection in Delphi

uses
  sgcP2P, sgcP2P_DataChannel;

// TFormPeer contiene FPeer, FChannel, FIncoming: TStringList e i gestori

procedure TFormPeer.CreatePeer;
begin
  FPeer := TsgcRTCPeerConnection.Create(nil);
  FPeer.RTCOptions.ICEServers.AddURL('stun:stun.l.google.com:19302');
  FPeer.RTCOptions.ICE.TURN := False;  // nessun server TURN per ora

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

  // lato uscente. CreateDataChannel attiva RTCOptions.DTLS
  FChannel := FPeer.CreateDataChannel('chat');
  FChannel.OnMessage := OnChannelMessage;
  FPeer.CreateOffer;
end;

procedure TFormPeer.OnLocalDescription(Sender: TObject;
  const aType, aSDP: string);
begin
  // aType è 'offer' oppure 'answer'
  SignalToPeer(aType, aSDP); // sul tuo canale di segnalazione 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
  // scatta su un thread di lavoro, fai il marshalling prima di toccare un controllo
  FIncoming.Add(aText);
end;