Delphi XEとWinsock

Question

私のアプリケーションをDelphi 2007からDelphi XEにアップグレードしています。私は個人的に書かれたSocketコンポーネントを持っています。新しい環境（XE）では、正しく動作しません。同じコードはここに私のコードの断片ですデルファイ2007

で動作します：

uses WinSock; 

procedure TForm1.GetProtocolClick(Sender: TObject); 
var 
    ProtoEnt: PProtoEnt; 
    FProtocol: Integer; 
begin 
    FProtocol := IPPROTO_TCP; 
    ProtoEnt := getprotobynumber(FProtocol); 
    if Assigned(ProtoEnt) 
    then ShowMessage(ProtoEnt.p_name); 
end; 

var 
    WSAData: TWSAData; 

procedure Startup; 
begin 
    if WSAStartup($0101, WSAData) <> 0 
    then raise Exception.Create('WSAStartup'); 
end; 

procedure Cleanup; 
begin 
    if WSACleanup <> 0 
    then raise Exception.Create('WSACleanup'); 
end; 

initialization 
    Startup; 
finalization 
    Cleanup; 
end. 

ProtoEntが常に割り当てられていない（すなわち=ゼロ）!!!!!

なぜですか？

私はこの問題を解決するために狂ったつもりです... おかげ

エンツォ

Answer 1

あなたのコードビット

procedure TForm1.GetProtocolClick(Sender: TObject); 
var 
    ProtoEnt: PProtoEnt; 
    FProtocol: Integer; 
begin 
    FProtocol := IPPROTO_TCP; 
    ProtoEnt := getprotobynumber(FProtocol); 
    if Assigned(ProtoEnt) 
    then ShowMessage(ProtoEnt.p_name) 
    else ShowMessage(IntToStr(WSAGetLastError)); 
end; 

を変更する場合は、エラーコードが表示されます。それは私が次を試してみましたWinSock error codes

を確認した後、それがXEに完璧に動作します：

var 
    WSAData: TWSAData; 

procedure Startup; 
begin 
    if WSAStartup($0101, WSAData) <> 0 
    then raise Exception.Create('WSAStartup'); 
end; 

procedure Cleanup; 
begin 
    if WSACleanup <> 0 
    then raise Exception.Create('WSACleanup'); 
end; 

procedure TForm1.Button5Click(Sender: TObject); 
var 
    ProtoEnt: PProtoEnt; 
    FProtocol: Integer; 
begin 
    StartUp; 
    FProtocol := IPPROTO_TCP; 
    ProtoEnt := getprotobynumber(FProtocol); 
    if Assigned(ProtoEnt) 
    then ShowMessage(ProtoEnt.p_name) 
    else ShowMessage(IntToStr(WSAGetLastError)); 
    CleanUp; 
end;