Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.03.2009, 12:46   #1
AngelOfDeath
Delphi/C++/Asm
Форумчанин Подтвердите свой е-майл
 
Аватар для AngelOfDeath
 
Регистрация: 28.03.2008
Сообщений: 358
Вопрос WinSock.Ошибка 87

В общем вылетает код ошибки 87
В чём проблема и из-за чего она появляется?
Вот код:
Код:
procedure TForm1.CreateSocket;
var
error:Integer;
begin
Paddr:='mrim.mail.ru';
Client:= socket(AF_INET,SOCK_STREAM,IPPROTO_IP);
if Client=INVALID_SOCKET then
begin
    ShowMessage('Invalid Socket');
end;
ZeroMemory(@saddr,SizeOf(saddr));
saddr.sin_family:=AF_INET;
saddr.sin_port:=htons(2042);
saddr.sin_addr.S_addr:=inet_addr(PAnsiChar(Paddr));
if connect(Client, saddr, SizeOf(saddr))=SOCKET_ERROR then
begin
  ShowMessage('Connect error');
  error:=WSAGetLastError;
  ShowMessage(IntToStr(error));
end;

end;

Последний раз редактировалось AngelOfDeath; 30.03.2009 в 00:35.
AngelOfDeath вне форума Ответить с цитированием
Старый 31.03.2009, 10:46   #2
AngelOfDeath
Delphi/C++/Asm
Форумчанин Подтвердите свой е-майл
 
Аватар для AngelOfDeath
 
Регистрация: 28.03.2008
Сообщений: 358
По умолчанию

Вроде понял ошибку
Тему можно закрыть...
AngelOfDeath вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
События WinSock telcomp Win Api 1 13.01.2009 09:26
Winsock не соединяет Da$aD Работа с сетью в Delphi 0 11.07.2008 22:57
Proxy в WinSock SHEI'TI Работа с сетью в Delphi 3 29.03.2008 18:27
работа с WinSock Agasfer Работа с сетью в Delphi 1 13.02.2008 18:54