Hi,
du schreibst eine procedure in dieser form:
procedure ServerRead(Sender: TObject; Socket: TCustomWinSocket);
Diese hat die Form eines TNotify-Events. Wenn alle Server gleich mit empfangenen Nachrichten Umgehen sollen, kannst du sie "normal" schreiben. Du kannst aber auch einzelne Server unterscheiden mit
Delphi-Quellcode:
if (Sender is Server[3]) then
begin
.
.
.
end;
Für Lesevorgänge benutzt du ja den übergebenen Parameter Socket. Falls du Eigenschaften des Servers verändern willst kannst du dass ja dann z.B. so machen:
(Sender as TAbstractSocket).Active:=false;