Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

dron9999 © (2008-10-22 17:11:00)
привет всем кто это читает !
не могу установить компонент из за ошибки .. =(
выдает ошибку ....
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
прошу помочь! ....
зарание спс.

dron9999 (2008-10-26 21:55:00) [1]
Можешь дать твой тестовый пример! krasnii84@list.ru icq 460475775

Compiler (2008-10-24 03:36:00) [2]
> dron9999 © (23.10.08 20:36) [12]

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

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

dron9999 (2008-10-23 12:25:00) [4]
Ура ...!!!! проблема решена
спасибо огромное "Compiler ©"
с меня пиво! ....

Compiler (2008-10-23 02:47:00) [5]
Попробуйте заменить на raise ESocketError.Create(e_Custom, sCannotListenOnOpen);

dron9999 (2008-10-23 01:44:00) [6]
Да! это помогло спс большое !!!! "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 00:21:00) [7]
Замените
> >> else raise ESocketError.CreateResFmt2(Integer(@sWindowsSocketError)
> ,

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

dron9999 (2008-10-22 20:26:00) [8]
что с ним не так как вы думаете ???

dron9999 (2008-10-22 19:48:00) [9]
сам компонент взял с \\ http://www.kolnmck.ru/components/files_net.shtml

dron9999 (2008-10-22 19:42:00) [10]
да есть uses kol, err,{Objects,}Windows, Messages, WinSock,KOLSyncObjs;

MTsv DN (2008-10-22 19:35:00) [11]
>> Юнит err подключен?
> ну он в папке с KOL
В uses'ах KOLScktComp.pas он есть?

dron9999 (2008-10-22 19:20:00) [12]
блин уже перепробовал наверное все! осталось найти верное решение и не как не приходит. . .

dron9999 (2008-10-22 19:04:00) [13]
ну он в папке с KOL

MTsv DN (2008-10-22 17:41:00) [14]
Юнит err подключен?
Integer(@sWindowsSocketError) -> sWindowsSocketError

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »