[Deell]

при нажатии на кнопку выполняется вот такой код

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

if CheckBox1.Checked=True then begin   ClientSocket1.Host:='comp1';   ClientSocket1.Open;   ClientSocket1.Close; end;    if CheckBox2.Checked=True then begin   ClientSocket1.Host:='comp2';   ClientSocket1.Open;   ClientSocket1.Close; end;    procedure TForm1.ClientSocket1Connect(Sender: TObject;   Socket: TCustomWinSocket); begin ClientSocket1.Socket.SendText('s'); ClientSocket1.Close; end;

выскакивает ошибка asynchronous socket error 10049, а если между условиями добавить showmessage, то все норм. подскажите в чем проблема?

[Delphist]

Извиняюсь за встречный вопрос но ClientSocket1.Host:='comp1'; это что?
Host это имя машины к которой мы хотим подключится(например 192.127.01.01), что такое comp1??? где вы указываете порт? ClientSocket1.Port:=2011? Где?

[Deell]

comp это имя компьютера в сети. порт непосредственно указан в самом компоненте, я же написал что по отдельности все работает, работает даже вместе если между IFами вставить Showmessage с каким либо текстом, без него выдает ошибку описанную выше

[NumLock]

Сообщение от Deell

подскажите в чем проблема?

не в чем, а в ком - все неправильно: код не подлежит доработке, только полное переписывание!!!
-зачем открывать клиента, если сразу же его закрыть?
-почему после send сразу close (уверен, что SO_LINGER)?
-if'ы вообще вне блока begin-end!
-если оба чекбокса == true?
-...

как много разных почему)

[Deell]

пардон моя неаккуратность.. исходник выглядит так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12

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;

процедура при конекте клиента к серверу:

Код:

1 2 3 4 5 6

procedure TForm1.ClientSocket1Connect(Sender: TObject;   Socket: TCustomWinSocket); begin ClientSocket1.Socket.SendText('s'+IntToStr(N)); ClientSocket1.Close; end;

по поводу логики:
проверяется если первый чекбокс стоит имя хоста - Comp1 конект, при удачном конекте отсылка сообщения, закрытие соединения, проверяется второй чекбокс и т.д. я обхясню что непосредственнодля одного чекбокса все выполняется отлично(неважно первый или второй) если между условиями поставить showmessage то выполняется весь код без ошибок, даже если чекбоксов 5,10 но мне не нужно выводить сообщение после каждой отправки, ноесли убрать вывод сообщения то выдает ошибку.

[Deell]

насколько я понял то вызов процедуры ClientSocket1Connect происходит только после окончания выполнения процедуры нажатия кнопки и он пытается открыть еще один хост в то время как открыт первый, но не совсем понятно почему тогда все работает если вставить вывод сообщения? как правильнее будет сделать? или необходимо добавлять несколько компонентов Clientsocket для реализации этой задачи?

[NumLock]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, ScktComp, StdCtrls;   type   TForm1 = class(TForm)     Button1: TButton;     Memo1: TMemo;     Memo2: TMemo;     ClientSocket1: TClientSocket;     procedure Button1Click(Sender: TObject);   private     { Private declarations }     function SendText(URL: String): String;   public     { Public declarations }   end;   var   Form1: TForm1;   implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); begin   Memo1.Text:=SendText('www.delphisources.ru');   Memo2.Text:=SendText('ya.ru'); end;   function TForm1.SendText(URL: String): String; begin   ClientSocket1.ClientType:=ctBlocking;   ClientSocket1.Host:=URL;   ClientSocket1.Port:=80;   ClientSocket1.Open;   ClientSocket1.Socket.SendText('GET / HTTP/1.1'#13#10#13#10);   Sleep(1000);   Result:=ClientSocket1.Socket.ReceiveText;   ClientSocket1.Socket.Close;   ClientSocket1.Close; end;   end.