Чат для 2 ПК

[aesoem]

Здравствуйте, вылажил исходник своего чата...
http://rapidshare.com/files/107642454/Chat.rar.html
Проблема в следующем, коннектится нормально но после нажатия на кнопку отправить связь разрывается, в чом причина?

[Air]

У меня вопрос.

Здесь что Вы проверяете (if toolbutton10.Tag=0 then)

procedure TForm1.ToolButton10Click(Sender: TObject);
begin
if toolbutton10.Tag=0 then
begin
ServerSocket1.Active:=true;
Clientsocket1.Active:=true;
toolbutton10.Tag:=1;
sstatusbar1.Panels[6].Text:='В сети';
end
else
begin
ServerSocket1.Active:=false;
Clientsocket1.Active:=false;
toolbutton10.Tag:=0;
sstatusbar1.Panels[6].Text:='Не в сети';
end;
end;

[aesoem]

ну, это типа метки, каторая помогает опредилить была-ли нажата кнопка ранее (пример с пашего клуба кстати);

[Air]

Хм... А разве здесь не разрывается связь?

ServerSocket1.Active:=false;  
Clientsocket1.Active:=false;

Попробуйте тут изменить код (не использовать вообще, что получится?)

[aesoem]

это дополнительные кнопки впринципе они не задействованы во время проявления ошибки, а эти компаненты активированы

[Alar]

aesoem, прикрепляйте исходники к форуму.

[aesoem]

во 1

[Air]

Хм...
Действительно странно...

А здесь сто происходит?

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
ServerSocket1.Active:=false;
Clientsocket1.Active:=false;
spanel2.Visible:=toolbutton1.Down;
end;

приходится спрашивать, т.к. части компонентов нет...

P.S. Ещё просьба, скомпилируйте код и отправьте его мне или в тему.

[aesoem]

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

Хм...
Действительно странно...

А здесь сто происходит?

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
ServerSocket1.Active:=false;
Clientsocket1.Active:=false;
spanel2.Visible:=toolbutton1.Down;
end;

приходится спрашивать, т.к. части компонентов нет...

P.S. Ещё просьба, скомпилируйте код и отправьте его мне или в тему.

toolbutton1.Down

возвращает значени true \ false, и это значение присваивается свойству visible панели с настройкой портов и т.д

[aesoem]

\\\ Tserversocket и TClientsocket есть в Delphi просто они не происталены по дефолту