0

В консольном приложении создаю TIdHttpServer

program Project2;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils, IdContext,
  IdCustomHTTPServer, IdBaseComponent, IdComponent, IdCustomTCPServer,
  IdHTTPServer;

procedure HTTPServerCommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
  if (LowerCase(ARequestInfo.URI) = '/') or (LowerCase(ARequestInfo.URI) = '/index.html') then
  begin
    AResponseInfo.ResponseNo := 200;
    AResponseInfo.ContentType := 'text/html; charset=utf-8';
    AResponseInfo.ContentText := '<html xmlns="http://www.w3.org/1999/xhtml"><body><div align="center">Works!<div></body></html>';
    AResponseInfo.WriteContent;
  end;
end;

var
  HttpServer: TIdHTTPServer;

begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
    Writeln('hello');
    HttpServer := TIdHTTPServer.Create(nil);
    HttpServer.DefaultPort := 9876;
    HttpServer.OnCommandGet := HTTPServerCommandGet;
    HttpServer.Active := True;
    ReadLn;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Как, правильно, присвоить событию OnCommandGet, процедуру HTTPServerCommandGet?

1
  • создать объект а уже в объекте можно присвоить процедуры типа of object
    – vegat4
    7 сен 2022 в 3:40

1 ответ 1

1

примерно так в блокноте написал

program Project2;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils, IdContext,
  IdCustomHTTPServer, IdBaseComponent, IdComponent, IdCustomTCPServer,
  IdHTTPServer;


  type
    TSimp = class
      var  HttpServer: TIdHTTPServer;
      procedure HTTPServerCommandGet(AContext: TIdContext;
       ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
       constructor Create;
       destructor Destroy;override;
    end;


constructor TSimp.Create;
begin
 inherited;
    HttpServer := TIdHTTPServer.Create(nil);
    HttpServer.DefaultPort := 9876;
    HttpServer.OnCommandGet := HTTPServerCommandGet;
end;
destructor TSimp.Destroy;
begin
   HttpServer.Active:=false// или что там не помню
   FreeAndNil(HttpServer);
end;
procedure TSimp.HTTPServerCommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
  if (LowerCase(ARequestInfo.URI) = '/') or (LowerCase(ARequestInfo.URI) = '/index.html') then
  begin
    AResponseInfo.ResponseNo := 200;
    AResponseInfo.ContentType := 'text/html; charset=utf-8';
    AResponseInfo.ContentText := '<html xmlns="http://www.w3.org/1999/xhtml"><body><div align="center">Works!<div></body></html>';
    AResponseInfo.WriteContent;
  end;
end;


var
  Simp: TSimp;

begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
    Writeln('hello');
    Simp:= TSimp.Create(nil);
    try
      Simp.HttpServer.Active:= true;
      ReadLn;
    finally
      FreeAndNil(Simp);
    end;

  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

end.
4
  • 1
    Старайтесь также комментировать и объяснять своё решение словами. Ваши ответы могут читать разные пользователи с разным уровнем и не каждый сходу сможет понять решение и извлечь из него пользу. 7 сен 2022 в 4:11
  • тут главное топикстартеру понимать, что надо получить ссылку на метод объекта, и это не значит, что весь код надо завернуть в класс. Можно сделать и отдельный класс, в одним методом - обработчиком, и его создавать и назначать как обработчик события.
    – teran
    7 сен 2022 в 16:56
  • @vegat4 пытаюсь проделать то же самое для таймера и его события OnTime, но оно не срабатывает
    – ArtGrek13
    16 сен 2022 в 22:38
  • @ArtGrek13 покажи
    – vegat4
    17 сен 2022 в 17:21

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими условиями использования и подтверждаете, что прочитали и поняли наши политику конфиденциальности и нормы поведения.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.