VPF::OnCommandGet в консольном режиме - Форум программистов

lukash256

Дата 9.1.2008, 01:17 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 107
Регистрация: 23.7.2007
Где: Гомель/Беларусь

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

помогите обработать OnCommandGet на консольном HTTPServer'e.
вот его исходник

Код


program Project5;

{$APPTYPE CONSOLE}

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPServer,
  IdCustomHTTPServer, IdHTTPServer, IdIPWatch;


var
    serv:tidhttpserver;
    ip:TIdIPWatch;
      comp:tcomponent;

begin
serv:=tidhttpserver.Create(comp); //создание обьекта   класса tidhttpserver
 ip:=TIdIPWatch.Create(comp);      //создание обьекта   класса TIdIPWatch
 writeln('port : '+inttostr(serv.defaultport));      //панты
 writeln('Server IP : '+ip.localip);                 //панты

   serv.Active:=true;          //запуск

if  serv.Active=true
          then
               writeln('Started!')
           else
               writeln('Not Started!');
/////-------   обьект создается и порт открывается  ------


writeln;
write('press Enter to quit');
readln; ////ожидание Enter для завершения работы
serv.Free;
  { TODO -oUser -cConsole Main : Insert code here }
end.

куда вписать OnCommandGet ??????

Snowy

Дата 9.1.2008, 13:56 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Код


  TMyHttpServ = class(TIdHttpServer)
  private
    procedure MyCommandGetProc(.....);
  end;

...

  var 
    serv := TMyHttpServ;

...

  serv := TMyHttpServ.Create(nil); //создание обьекта   класса tidhttpserver
  ip := TIdIPWatch.Create(serv);      //создание обьекта   класса TIdIPWatch
  serv.OnCommandGet := MyCommandGetProc;

lukash256

Дата 9.1.2008, 23:29 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 107
Регистрация: 23.7.2007
Где: Гомель/Беларусь

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

ОГРОМНОЕ ТЕБЕ СПАСИБО!!!! smile

я мудился вечер, а тут все так просто оказалось.

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