ClientSocket не отправляет сообщения

[ruN00b]

Создал сервер и клиент. У клиента задаю адрес и порт сервера, активирую и открываю. В событии OnConnect прописываю отправку текстового сообщения "Connected"
В событии формы OnDestroy прописываю отправку текстового сообщения "disconnected"

Сообщение о коннекте до сервера доходит, что не скажешь не сообщении о дисконнекте. Ни Exception'а, ничего нет. Просто тишина. Бывало ли у кого нибудь такое и как это решить?

[Stilet]

Так а как оно дойдет, если дисконнект уже закрыл канал связи?
Или я чего-то не понимаю?
Стесняюсь спросить, зачем при дисконнекте отправлять что-то?

[ruN00b]

Stilet, о дисконнекте я имел ввиду, что все происходит так:

1. На сервер отправляется сообщение о дисконнекте (клиент еще не вышел)
2. Закрывается окно и естесственным путем происходит уничтожение сокета

Кстати сообщение не выводится в событиях, не относящихся к сокету, к примеру Button1Click или FormDestroy, тогда как ClientSocket1Read или ClientSocket1Connect вполне отправляют сообщение.

[alextrof94]

Не нашел решения проблемы? Потому что у меня тоже самое.

[Stilet]

Попробуй этот код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, StdCtrls;

type
  TForm1 = class(TForm)
    ClientSocket1: TClientSocket;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
ClientSocket1.Port:=666;
ClientSocket1.Host:='localhost';
ClientSocket1.Active:=true;

end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin
 Caption:=Socket.ReceiveText;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
ClientSocket1.Socket.SendText(Edit1.Text);
end;

end.

Просто как пример. Я его использовал для своих нужд.

сообщение не выводится в событиях, не относящихся к сокету

Ну еще бы )
И не должно.

[alextrof94]

Короче, я использовал компоненты Indy, TIdTcpServer~Client и передача работает успешно.
Функция, которую я повесил на кнопку успешно передает строку на сервер.

procedure TForm2.Button1Click(Sender: TObject);
begin
IdTCPClient1.Socket.WriteLn('ololo');
end;

[Stilet]

Кстати я тут подумал. Если в OnDestroy прописывать передачу сообщения, то его потеря может обьясняться тем что после дестроя нет дисконнекта, и Инди-сервер не в курсе что ему нужно закончить считывать данные, так как ждет дисконнект чтоб убедиться что все пакеты данных успешно пришли.