Форум АНТИЧАТ - Инициализация WinSock2

Инициализация WinSock2

26.05.2009, 03:28

Flenov

Участник форума

Регистрация: 22.11.2008

Сообщений: 142

Провел на форуме:
636446

Репутация: 32

Инициализация WinSock2

Господа, заранее извиняюсь за наитупейший вопрос, но для меня он очень важен.

Я пишу программу на Delphi (по сути TCP клиент, но это не имеет большого значения) с использованием WinSock2.

И мне нужно грамотно инициализировать WinSock2.
Как правильно это сделать и есть ли существенная разница между этими двумя кодами?

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  wData: TWSAData;
begin
  if (WSAStartup(MakeWord(2, 0), wData)<>0) then Raise Exception.Create('Ошибка инициализвции WinSock2');
end;

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  wData: TWSAData;
begin
  if (WSAStartup($202, wData)<>0) then Raise Exception.Create('Ошибка инициализвции WinSock2');
end;