пишу свой клас:

class TGetFile
{
private:
  TClientSocket*  FileSocket;
  void __fastcall OnClientSocketRead(TObject *Sender, TCustomWinSocket *Socket);
public:
  TGetFile(AnsiString ServerIP, int ServerPort);
  ~TGetFile();
};

//---------------------------------------------------------------------------
TGetFile::TGetFile(AnsiString ServerIP, int ServerPort)
{
  FileSocket = new TClientSocket(NULL);
  FileSocket->Active = false;
  FileSocket->Host = ServerIP;
  FileSocket->Port = ServerPort;
  FileSocket->ClientType = ctNonBlocking;
  FileSocket->OnRead = OnClientSocketRead;
  FileSocket->Open();
}
//---------------------------------------------------------------------------
TGetFile::~TGetFile()
{
  if(FileSocket->Active)
    while(FileSocket->Active)
    {
      Application->ProcessMessages();
      FileSocket->Close();
    }
  delete FileSocket;
}
//---------------------------------------------------------------------------

в проге следующие строчки

TGetFile *GetFile = new TGetFile("127.0.0.1", 7777);
//работа с классом
delete GetFile;

до сервера вообще ни каких действий...
молчит и всё.
Если же код создания сокета в самой проге написать то всё ок.

void __fastcall TForm1::Button2Click(TObject *Sender)
{
  FileSocket = new TClientSocket(NULL);
  FileSocket->Active = false;
  FileSocket->Host = "127.0.0.1";
  FileSocket->Port = 7777;
  FileSocket->ClientType = ctNonBlocking;
  FileSocket->Open();
}

В чём трабла?

Здравствуйте, Morpeh, Вы писали:

Попробуй добавить обработчик для события OnConnect.
Там выставляй какой-нить флаг его срабатывания, а в конструкторе добавь Application->ProcessMessages() до срабатывания этого флага.
У меня была такая же проблема и решил я ее именно так.

Здравствуйте, alex_mah, Вы писали:

Спасибо, помогло, кто бы мог подумать...
я пробывал слип(1000) добавлять не помогало...

Здравствуйте, Morpeh, Вы писали:

M>Здравствуйте, alex_mah, Вы писали:

M>Спасибо, помогло, кто бы мог подумать...

Все логично. Сокет асинхронный работает в отдельном от твоего приложения потоке. Поэтому нужно обрабатывать сообщения, что бы приложение узнало об отработке коннекта.
У такого способа есть посторонний эффект. Твое приложение получает возможность параллельно с созданием класса выполнять другие обработчки, нажимать кнопки, вызывать срабатывания таймеров и пр. Если это критично, то нужно подумать над синхронизацией.

Здравствуйте, alex_mah, Вы писали:

_>Здравствуйте, Morpeh, Вы писали:

M>>Здравствуйте, alex_mah, Вы писали:

M>>Спасибо, помогло, кто бы мог подумать...

_>Все логично. Сокет асинхронный работает в отдельном от твоего приложения потоке. Поэтому нужно обрабатывать сообщения, что бы приложение узнало об отработке коннекта.
_>У такого способа есть посторонний эффект. Твое приложение получает возможность параллельно с созданием класса выполнять другие обработчки, нажимать кнопки, вызывать срабатывания таймеров и пр. Если это критично, то нужно подумать над синхронизацией.

По моему Application.ProcessMessages это за круто.
Достаточно будет процесать только сокетовые сообщения. Какие есть можна узнать: CM_SOCKETMESSAGE, CM_LOOKUPCOMPLETE, CM_DEFERFREE.

Ну а чтобы не кликалось куда не надо, можна седалать DisableTaskWindows и в конце EnableTaskWindows

Здравствуйте, Danchik, Вы писали:


D>По моему Application.ProcessMessages это за круто.
D>Достаточно будет процесать только сокетовые сообщения. Какие есть можна узнать: CM_SOCKETMESSAGE, CM_LOOKUPCOMPLETE, CM_DEFERFREE.

D>Ну а чтобы не кликалось куда не надо, можна седалать DisableTaskWindows и в конце EnableTaskWindows

Все правильно, мне просто некогда было это все отлаживать. Утилитка была для внутреннего пользования.