не могу установить компонент

← →
dron9999 © (2008-10-22 17:11) [0]

привет всем кто это читает !
не могу установить компонент из за ошибки .. =(
выдает ошибку ....
function CheckSocketResult(ResultCode: Integer; const Op: string): Integer;
begin
if ResultCode <> 0 then
begin
Result := WSAGetLastError;
if Result <> WSAEWOULDBLOCK then
if Assigned(SocketErrorProc) then
SocketErrorProc(Result)
>> else raise ESocketError.CreateResFmt2(Integer(@sWindowsSocketError),
[SysErrorMessage(Result), Result, Op, ]);
end else Result := 0;
end;

компил: [Error] KOLScktComp.pas(664): Incompatible types: "TError" and "Integer"

это кусок кода с ошибкой из KOLScktComp.pas
прошу помочь! ....
зарание спс.

← →
MTsv DN (2008-10-22 17:41) [1]

Юнит err подключен?
Integer(@sWindowsSocketError) -> sWindowsSocketError

← →
dron9999 © (2008-10-22 19:04) [2]

ну он в папке с KOL

← →
dron9999 © (2008-10-22 19:20) [3]

блин уже перепробовал наверное все! осталось найти верное решение и не как не приходит. . .

← →
MTsv DN (2008-10-22 19:35) [4]

>> Юнит err подключен?
> ну он в папке с KOL
В uses"ах KOLScktComp.pas он есть?

← →
dron9999 © (2008-10-22 19:42) [5]

да есть uses kol, err,{Objects,}Windows, Messages, WinSock,KOLSyncObjs;

← →
dron9999 © (2008-10-22 19:48) [6]

сам компонент взял с \\http://www.kolnmck.ru/components/files_net.shtml

← →
dron9999 © (2008-10-22 20:26) [7]

что с ним не так как вы думаете ???

← →
Compiler © (2008-10-23 00:21) [8]

Замените
> >> else raise ESocketError.CreateResFmt2(Integer(@sWindowsSocketError)
> ,

на
else raise ESocketError.CreateResFmt(e_Custom, Integer(@sWindowsSocketError),

← →
dron9999 © (2008-10-23 01:44) [9]

Да! это помогло спс большое !!!! "Compiler" и "MTsv DN" !!!
остаются только такие ошибки
они все такого типа ...
////////////////////////////////////////////////////////////////////////////////
>>>raise ESocketError.CreateRes(Integer(@sNoAddress));
>>>raise ESocketError.CreateRes(Integer(@sCannotListenOnOpen));
////////////////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////
компилятор жалуется только на :
>>[Error]: Undeclared identifier: "CreateRes"
//////////////////////////////////////////////////
только такие ошибки ...
если не тяжело помогите еше немного ...
за рание спс

пример из кода
=================================================
procedure TCustomWinSocket.Listen(const Name, Address, Service: string; Port: Word;
QueueSize: Integer; Block: Boolean);
begin
if FConnected then
else raise ESocketError.CreateRes(Integer(@sCannotListenOnOpen));
FSocket := socket(PF_INET, SOCK_STREAM, IPPROTO_IP);
if FSocket = INVALID_SOCKET then raise ESocketError.CreateRes(Integer(@sCannotCreateSocket));
try
Event(@Self, seLookUp);
if Block then
begin
FAddr := InitSocket(Name, Address, Service, Port, False);
DoListen(QueueSize);
end else
AsyncInitSocket(Name, Address, Service, Port, QueueSize, False);
except
Disconnect(FSocket);
raise;
end;
=======================================================
за флуд простите ...

← →
Compiler © (2008-10-23 02:47) [10]

Попробуйте заменить на raise ESocketError.Create(e_Custom, sCannotListenOnOpen);

БЛин !!! не пашет !
кароч такая штука : если оставить так raise ESocketError.Create(e_Custom, sCannotListenOnOpen); то тогда форма даж не запускается !
я попробывал полностью убрать это типо // raise ESocketError.Create(e_Custom, sCannotListenOnOpen); и клиент не видет сервака ! =( блин мама дорогая как я людей уже закоцал ! и сам закоцался! =(

> dron9999 © (23.10.08 20:36) [12]

Поправил тестовый пример, но компонент не ставил, использовал визуально. Работает, вылетает ошибка или зависает только при остановке сервера. Связано это скорее всего с остановкой потока. Exception тут не при делах

Можешь дать твой тестовый пример! krasnii84@list.ru icq 460475775

не могу установить компонент Найти похожие ветки