Форум: "KOL";
Текущий архив: 2010.10.03;
Скачать: [xml.tar.bz2];
Внизне могу установить компонент Найти похожие ветки
← →
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);
← →
dron9999 © (2008-10-23 12:25) [11]Ура ...!!!! проблема решена
спасибо огромное "Compiler ©"
с меня пиво! ....
← →
dron9999 © (2008-10-23 20:36) [12]БЛин !!! не пашет !
кароч такая штука : если оставить так raise ESocketError.Create(e_Custom, sCannotListenOnOpen); то тогда форма даж не запускается !
я попробывал полностью убрать это типо // raise ESocketError.Create(e_Custom, sCannotListenOnOpen); и клиент не видет сервака ! =( блин мама дорогая как я людей уже закоцал ! и сам закоцался! =(
← →
Compiler © (2008-10-24 03:36) [13]> dron9999 © (23.10.08 20:36) [12]
Поправил тестовый пример, но компонент не ставил, использовал визуально. Работает, вылетает ошибка или зависает только при остановке сервера. Связано это скорее всего с остановкой потока. Exception тут не при делах
← →
dron9999 © (2008-10-26 21:55) [14]Можешь дать твой тестовый пример! krasnii84@list.ru icq 460475775
Страницы: 1 вся ветка
Форум: "KOL";
Текущий архив: 2010.10.03;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.004 c