Hallo!

Ich möchte ein kleines Programm schreiben,
das einen Peer-To-Peer Chat mit Hilfe von UDP ermöglichen soll.
Ich verwende die TUDPSocket-Komponente, ich würde auch Indy benutzen,
aber da ist imho ein Server nötig.

Jedenfall schaffe ich es nicht einen einfach Text zu senden:

zusammenfalten · markieren

Delphi-Quellcode:

  object UdpSocket: TUdpSocket
    Active = True
    BlockMode = bmNonBlocking
    LocalPort = '5006'
    RemoteHost = '127.0.0.1'
    RemotePort = '5005'
    OnConnect = UdpSocketConnect
    OnReceive = UdpSocketReceive
  end
  object UdpSocket2: TUdpSocket
    Active = True
    BlockMode = bmNonBlocking
    LocalPort = '5005'
    RemoteHost = '127.0.0.1'
    RemotePort = '5006'
    Top = 40
  end


procedure TfrmMain.Timer1Timer(Sender: TObject);
var
  test: array[0..255] of Char;
begin
  test := 'hallo!';
  UdpSocket2.SendBuf(test[0],6);
  FillChar(test[0],256,0);
  UdpSocket.ReceiveBuf(test[0],256);

  if test[0] > #0 then ShowMessage(test);
end;

Kann mir hier denn keiner helfen?

Grüße