Курсовая работа: Розробка програмного забезпечення системи збору даних про хід та параметри технологічного процесу

}

return;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)

{

if (sUvm != NULL)

{

bEndThread = 1;

shutdown(sUvm, SD_BOTH);

closesocket(sUvm);

SetEvent (hEvent);

WaitForSingleObject(hThreadUVM, INFINITE);

CloseHandle (hThreadUVM);

}

}

//---------------------------------------------------------------------------

Додаток Б

Вихідний текст серверу

#include <vcl.h>

#pragma hdrstop

#include "Server.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

#include <winsock2.h>

#include <process.h>

#include <time.h>

#include <fcntl.h>

#include <stdio.h>