Hi
wie kann ich die UDPServerRead Prozedure per befehl (zb. Button) ausführen.
Mein problem:
Zwei Rechner, R1 startet das Programm, R2 auch. R1 sieht R2, aber nicht umgekehrt.
Und wenn ich R2 schließe, dann wirft R1 den R2 nicht aus der Liste.
Hier der Code:
Delphi-Quellcode:
procedure TForm1.userverUDPRead(Sender: TObject; AData: TBytes;
ABinding: TIdSocketHandle);
var
k: integer;
RecText: String;
MyList: TListItem;
begin
RecText := '';
for k:= 0 to length(AData)-1 do
begin
RecText := RecText + chr(AData[k]);
end;
MyList:= Namen.Items.Add;
MyList.caption:= RecText;
MyList.Subitems.Add(ABinding.PeerIP);
end;