Уважаемые! При компиляции код из D2010 в XE5 ошибка. Может кто нибудь сталкивался?
Код:
{ 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;[/CODE]
Код:
{ 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;[/CODE]