Winsockの初期化




いまさら感が否めないけれども、またネットワークをいじりたくなってきたので結構昔のソースを発掘。

uses
... , Winsock;

...

var
r: Integer;
WSAData: TWSAData;
version: WORD;
begin
// WinSockの初期化
version := $0002;
r := WSAStartup(version, WSAData); // Version 2.0
if(r <> 0)then
begin
version := $0101;
r := WSAStartup(version, WSAData);
if(r <> 0)then
raise Exception.Create('Winsockの初期化に失敗しました:') at @r;
end;
end;

終了時はWSACleanup()を忘れずに。



コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です