Udpsocket onReceive Ereignis wird nicht ausgelöst?

[richard_boderich]

@Sirius

Kannst du bitte mal drüberschaun. onReceive wird trotzdem nicht gefeuert. Timer ist aktiv (10ms)!

mfG Richard

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  udpstream:TStringStream;
begin
getmem(buffer,8192);
udpstream:=TStringStream.Create(Suche+#13#10);
udpsocket1.SendStream(udpstream);
end;


procedure TForm1.UdpSocket1Receive(Sender: TObject; Buf: PAnsiChar;
  var DataLen: Integer);
begin

label1.Caption:='fired';
end;

procedure TForm1.Timer2Timer(Sender: TObject);
var
bla:sockaddr_in;
data:integer;
begin
  bla:=udpsocket1.GetSocketAddr('192.168.0.1','0');
  udpsocket1.receivefrom(buffer,sizeof(buffer), bla, data, 0);
end;