[Mishko]

Уважаемые! При компиляции код из D2010 в XE5 ошибка в строке Data := WinsockInfo;. Может кто нибудь сталкивался?

Код:

Код:

  { Display winsock info }
    Data := WinsockInfo;
    Display('Winsock version ' + IntToStr(LOBYTE(Data.wHighVersion)) + '.' + IntToStr(HIBYTE(Data.wHighVersion)));
    Display(String(StrPas(Data.szDescription)));
    Display(String(StrPas(Data.szSystemStatus)));

    Caption := Caption + ' ' + HostNameEdit.Text;

[NumLock]

так удали строчку

Код:

Data := WinsockInfo;

далее по коду вместо Data используй WinsockInfo, если самому разбираться с типами лень

[Mishko]

спасибо)))....теперь пишет [dcc32 Error] E2036 Variable required

на строках кода:

Код:

 Display('Winsock version ' + IntToStr(LOBYTE(Data.wHighVersion)) + '.' + IntToStr(HIBYTE(Data.wHighVersion))); 
    Display(String(StrPas(Data.szDescription))); 
    Display(String(StrPas(Data.szSystemStatus))); 

[NumLock]

не все выполнено из 2"го сообщения

[Mishko]

я так и сделал)

Display('Winsock version ' + IntToStr(LOBYTE(WinsockInfo.wHighVersion)) + '.' + IntToStr(HIBYTE(WinsockInfo.wHighVersion)));
Display(String(StrPas(WinsockInfo.szDescription))) ;
Display(String(StrPas(WinsockInfo.szSystemStatus)) );

[NumLock]

WinsockInfo не объявлена