VPF::ICS THttpSrv No more free message - Форум программистов

Vovkin

Дата 17.11.2009, 19:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 10.1.2007

Репутация: нет
Всего: нет

Использую в программе компонент THttpServer.
Подправил его немного для своих нужд. В частности
добавил дополнительное одно свое сообщение

Код


{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}
procedure THttpConnection.AllocateMsgHandlers;
begin
    inherited AllocateMsgHandlers;
    FMsg_WM_HTTP_DONE := FWndHandler.AllocateMsgHandler(Self);
    WM_CALL_CONDATASENT := FWndHandler.AllocateMsgHandler(Self);
end;


{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}
procedure THttpConnection.FreeMsgHandlers;
begin
    if Assigned(FWndHandler) then begin
        FWndHandler.UnregisterMessage(FMsg_WM_HTTP_DONE);
        FWndHandler.UnregisterMessage(WM_CALL_CONDATASENT);
    end;
    inherited FreeMsgHandlers;
end;

WM_CALL_CONDATASENT - это мое сообщение.
При этом иногда получается, что сервер валится с сообщением
No more free message
валится в модуле OverByteIcsWndControl в функции

Код


{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}
function TIcsWndHandler.AllocateMsgHandler(Obj: TIcsWndControl): UINT;
var
    I : UINT;
begin
    if FMsgLow < WM_USER then
        raise EIcsException.Create('MsgLow not defined');
    if FMsgCnt >= WH_MAX_MSG then
        raise EIcsException.Create('No more free message');
    I := 0;
    while I < WH_MAX_MSG do begin
        if not Assigned(FMsgMap[I]) then begin
            Result     := I + FMsgLow;
//if IsConsole then writeLn('AllocateMsgHandler = ', Result);
            FMsgMap[I] := Obj;
            Inc(FMsgCnt);
            if FHandle = INVALID_HANDLE_VALUE then
                AllocateHWnd;
            Exit;
        end;
        Inc(I);
    end;
    raise EIcsException.Create('No more free message');
end;

Срабатывает проверка
if FMsgCnt >= WH_MAX_MSG then

Этот WH_MAX_MSG равен 100 в определениях.
Может кто подскажет, почему так может получаться?
Почему добавление своего сообщения приводит к нехватке
очереди сообщений, хотя с честно делаю и Allocate и Unregister.
Что за FWndHandler и куда он стреляет и за что отвечает?

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »