Delphi. Проблема с winsock функцией connect() — HackZona.Ru

Вобщем поставил се дельфи 2009. Пытаюсь скомпилировать такой код: [code] var WSA:TWSADATA; sock:TSocket; addr:SockAddr_IN; begin WSAStartUp(MAKEWORD(1,1),WSA); sock:=socket(AF_INET,SOCK_STREAM,IPPROTO_IP); addr.sin_family:=AF_INET; addr.sin_port:=htons(90); addr.sin_addr.S_addr:=inet_addr('127.0.0.1'); connect(sock,addr,sizeof(addr));(87) end; [/code] Ругается так: [code] [DCC Error] Unit1.pas(87): E2029 ')' expected but ',' found[/code] Самое ужасное, что в delphi 7(как наверное и в других, кроме 2009) код собирается без ошибок. Может там фича какая есть? хз вобще. сижу туплю.

Delphi. Проблема с winsock функцией connect()

Сообщений в теме: 13
--StraNger--
Нравится
Не нравится
Репутация: 0
Рейтинг: 1
Кол-во тем: 0
Сообщения: 0
Вобщем поставил се дельфи 2009.
Пытаюсь скомпилировать такой код:

[code]

var
WSA:TWSADATA;
sock:TSocket;
addr:SockAddr_IN;
begin
WSAStartUp(MAKEWORD(1,1),WSA);
sock:=socket(AF_INET,SOCK_STREAM,IPPROTO_IP);
addr.sin_family:=AF_INET;
addr.sin_port:=htons(90);
addr.sin_addr.S_addr:=inet_addr('127.0.0.1');
connect(sock,addr,sizeof(addr));(87)

end;
[/code]
Ругается так:
[code]
[DCC Error] Unit1.pas(87): E2029 ')' expected but ',' found[/code]

Самое ужасное, что в delphi 7(как наверное и в других, кроме 2009) код собирается без ошибок.
Может там фича какая есть?
хз вобще. сижу туплю.
13:41 Ответить
cmp
Нравится
Не нравится
Репутация: 0
Рейтинг: 0
Кол-во тем: 0
Сообщения: 0
connect(sock,addr,sizeof(addr));(87)
No comment
13:58 Ответить
h4x
Нравится
Не нравится
Репутация: 0
Рейтинг: 0
Кол-во тем: 0
Сообщения: 0
--StraNger-- ты этот код копи/пастом вставлял?
Шо за (87)?
[DCC Error] Unit1.pas(87): E2029 ')' expected but ',' found

Эта ошибка вызвана совершено по другой причине. не лишнеми (87).
14:25 Ответить
--StraNger-- - автор темы
Нравится
Не нравится
Репутация: 0
Рейтинг: 1
Кол-во тем: 0
Сообщения: 0
блин
это я указал что строка 87. в коде этого нет
14:44 Ответить
cmp
Нравится
Не нравится
Репутация: 0
Рейтинг: 0
Кол-во тем: 0
Сообщения: 0
попробуй так
addr.sin_addr.S_addr:=inet_addr(«127.0.0.1»);

или
addr.sin_addr.S_addr:=inet_addr(PChar('127.0.0.1'));
14:56 Ответить
--StraNger-- - автор темы
Нравится
Не нравится
Репутация: 0
Рейтинг: 1
Кол-во тем: 0
Сообщения: 0
[QUOTE=cmp;100234]попробуй так
addr.sin_addr.S_addr:=inet_addr(«127.0.0.1»);

[/QUOTE]
Ну и через какую жопу такой код заработает? =)
кстати ошибка в строке с функцией connect
14:58 Ответить
h4x
Нравится
Не нравится
Репутация: 0
Рейтинг: 0
Кол-во тем: 0
Сообщения: 0
У меня все норм. собирается. Про 87 мог и написать що могзи зря е? ать.
Хотя если ты говоришь что в Delphi7 собирается нормально то ошибка может быть связана с unicod-ом в каком-нибудь другом участки кода. Ты мне скажи ты открыл свой старый проект или создавал все с Delphi 2009?
15:03 Ответить
fraIzer
Нравится
Не нравится
Репутация: 1
Рейтинг: 0
Кол-во тем: 0
Сообщения: 436
Delete
14:59 Ответить
h4x
Нравится
Не нравится
Репутация: 0
Рейтинг: 0
Кол-во тем: 0
Сообщения: 0
[B]cmp[/B] дебил!
15:05 Ответить
--StraNger-- - автор темы
Нравится
Не нравится
Репутация: 0
Рейтинг: 1
Кол-во тем: 0
Сообщения: 0
с нуля в delphi 2009
15:09 Ответить
h4x
Нравится
Не нравится
Репутация: 0
Рейтинг: 0
Кол-во тем: 0
Сообщения: 0
давай весь код. я найду тебе ошибку.
15:17 Ответить
cmp
Нравится
Не нравится
Репутация: 0
Рейтинг: 0
Кол-во тем: 0
Сообщения: 0
[QUOTE=h4x;100239][B]cmp[/B] дебил![/QUOTE]
) какие вы тут резкие. Вы поймите, код должен быть красивым и сначала нужно работать над этим вопросом, а только потом переходить к ошибкам конпеляции.
15:20 Ответить
--StraNger-- - автор темы
Нравится
Не нравится
Репутация: 0
Рейтинг: 1
Кол-во тем: 0
Сообщения: 0
вобщем путем переборного удаления было выяснено что трабла все происходит из за вот этого участка
[code]
type
Connect=record
server, nick: String;
port: Integer;
end;[/code]
15:27 Ответить
--StraNger-- - автор темы
Нравится
Не нравится
Репутация: 0
Рейтинг: 1
Кол-во тем: 0
Сообщения: 0
в общем все оказалось проще чем два байта об асфальт
из выше привиденной структуры все и не работало.
Просто НЕльзя было называть ее Connect.
Переименовав ее в Conect все разаботало.
Вот такая тупая фича.
16:14 Ответить
Тема закрыта
Тема закрыта