void __fastcall TForm1::Button1Click(TObject *Sender)
{
Button1->Enabled = false;
Button2->Enabled = true;
s_socket1 = Connect(5555);
s_socket2 = Connect(5556);
s_socket3 = Connect(5557);//camera
if (test == true)
{
Application->MessageBox("Соединение установлено","Соединение", MB_OK);
test = false;
}
BUFSOK = s_socket2;
BUFSOK1 = s_socket3;
Thread1 = new THR1(false);
Thread1->FreeOnTerminate = true;
Thread2 = new THR2(false);
Thread2->FreeOnTerminate = true;
}
Удаленный администратор
Здравствуйте!
В общем написал прогу для удаленного администрирования. Но есть несколько вопросов.
Запускаю клиент и сервер на одной машине. Нажимаю в клиенте коннект. Всё работает нормально. Как только делаю дисконнект, то клиент начинает на полную хавать процессор. Подскажите что сделать.
Вот так делаю коннект к серверу:
Дисконнект:
В общем написал прогу для удаленного администрирования. Но есть несколько вопросов.
Запускаю клиент и сервер на одной машине. Нажимаю в клиенте коннект. Всё работает нормально. Как только делаю дисконнект, то клиент начинает на полную хавать процессор. Подскажите что сделать.
Вот так делаю коннект к серверу:
Код:
Дисконнект:
Код:
closesocket(s_socket1);
closesocket(s_socket2);
closesocket(s_socket3);
WSACleanup();
closesocket(s_socket2);
closesocket(s_socket3);
WSACleanup();
Треды небось в цикле начинают крутиться. Этого кода - мало.
Все разобрался) Там цикл был бесконечный.