пардон моя неаккуратность.. исходник выглядит так:
Код:
procedure TForm1.Button3Click(Sender: TObject);
begin
if CheckBox1.Checked=True then begin
ClientSocket1.Host:=comp1';
ClientSocket1.Open;
end;
if CheckBox2.Checked=True then begin
ClientSocket1.Host:='comp2';
ClientSocket1.Open;
end;
end;
процедура при конекте клиента к серверу:
Код:
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
ClientSocket1.Socket.SendText('s'+IntToStr(N));
ClientSocket1.Close;
end;
по поводу логики:
проверяется если первый чекбокс стоит имя хоста - Comp1 конект, при удачном конекте отсылка сообщения, закрытие соединения, проверяется второй чекбокс и т.д. я обхясню что непосредственнодля одного чекбокса все выполняется отлично(неважно первый или второй) если между условиями поставить showmessage то выполняется весь код без ошибок, даже если чекбоксов 5,10 но мне не нужно выводить сообщение после каждой отправки, ноесли убрать вывод сообщения то выдает ошибку.