Winsock - создание клиента

[_PROGRAMM_]

Добрый вечер. Я приступил к изучению WinSock. Все вроде бы правильно написал, но выбивает ошибку несоответствия типов. Гуглил, находил коды, но у коллег не в этом ошибка, следовательно, эта строка не должна быть ошибочной.

var
Server:TInAddr;
inf:TWSADATA;
sock:integer;
Sockaddr:TsockAddr;
begin
   Server.s_addr:=inet_addr(PChar('127.0.0.1')); // вот в этой строке ошибка
   WSAStartup(MAKEWORD(2,0),inf);
   sock:=Socket(AF_INET,SOCK_STREAM,0);
   Sockaddr.sin_family:=AF_INET;
   Sockaddr.sin_port:=htons(21);
   Sockaddr.Sin_addr:=Server;
   bind(sock,sockaddr,SizeOf(SockAddr));
   listen(sock,3);
end;

Выбивает [DCC Error] Unit1.pas(32): E2010 Incompatible types: 'Char' and 'AnsiChar' Я в полном недоумении. Дошло дело до того, что Pchar() на AnsiChar() менял(получилось [DCC Error] Unit1.pas(32): E2089 Invalid typecast).
Заранее благодарен.

[Пепел Феникса]

ну в принципе, для строковой константы не нужно приведение типов.
ну а так, вам нужен PAnsiChar, типы то не посмотреть чтоль?
в итоге потом если через string придеться задавать приведение типов PAnsiChar(AnsiString(Edit1.Text))

[_PROGRAMM_]

ну в принципе, для строковой константы не нужно приведение типов.

Спасибо все получилось. Я тут вот что подумал. Статья посвящена WinSock2, а я использую первую библиотеку. Возможно функции изменились? В основном все проблемы в приведении типов. Вот что опять у меня произошло.

var
inf:TWSADATA;
sock:integer;
Sockaddr:TsockAddr;
i:integer;
begin

   WSAStartup(MAKEWORD(1,0),inf);
   sock:=Socket(AF_INET,SOCK_STREAM,0);
   Sockaddr.sin_family:=AF_INET;
   Sockaddr.sin_port:=htons(21);
   Sockaddr.Sin_addr.S_addr:=htonl(INADDR_ANY);
   bind(sock,sockaddr,SizeOf(SockAddr));
   listen(sock,3);
   i:=Sizeof(SockAddr);
   accept(Sock,sockaddr,i)// Тут ошибка. В sockaddr;

Вот что выбивает: [DCC Error] Unit1.pas(41): E2010 Incompatible types: 'PSOCKADDR' and 'sockaddr_in'. PSOCKADDR - это вообще что за тип?
Спасибо.
p.s вот статья по которой я учусь.

[Пепел Феникса]

PSOCKADDR - это вообще что за тип?

ну судя по принятому именованию типов в Д, это указатель на TSOCKADDR

 accept(Sock,@sockaddr,i)

попробуйте так.

[_PROGRAMM_]

ну судя по принятому именованию типов в Д, это указатель на TSOCKADDR

Я тоже так подумал, поменял и получил: [DCC Error] Unit1.pas(41): E2010 Incompatible types: 'PInteger' and 'Integer'. Сейчас даже перепроверил.

[Аватар]

Судя по справке там тоже адрес

accept(Sock,@sockaddr,@i):

[_PROGRAMM_]

Судя по справке там тоже адрес

Спасибо вам.