Получение информации о сокетах.

Попробуем инициализировать библиотеку WinSock. Для этого перенесите на созданную нами форму три строки ввода и кнопку. После этого создайте обработчик события Onclick для кнопки и напишите там следующий текст:

■procedure TForml .ButtonlClick(Sender: TObject) ;

var

info:TWSADATA; begin

WSAStartup(MAKEWORD(2,0), infо);

VersionEdit.Text:=IntToStr(info.wVersion);

DescriptionEdit.Text:=infо.szDescription;

SystemStatusEdit.Text:=infо.szSystemStatus;

WSACleanup;

end;

 

Рис. 5.3. Окно будущей программы

В самом начале запускается WinSock с помощью вызова функции WSAStartup. В нем запрашивается вторая версия, а информация о текущем состоянии будет возвращена в структуру info. После этого выводим полу­ченную информацию из структуры в главное окно программы.

Рис. 5.4. Результат работы программы