Delphi Web Server

[toxich]

Всем привет, ребят подскажите пожуйсто как сделать веб сервер на делфи чтобы он распознавал команды которые я давал ему с веб браузера. Ну к примеру чтобы в если я командной строке появлялась /getmessage выводил север на экран сообщение.
Очень надеюсь на вашу помощь!

[Stilet]

Воспользоваться компонентами INDI

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    IdHTTPServer1: TIdHTTPServer;
    procedure IdHTTPServer1CommandGet(AThread: TIdPeerThread;
      RequestInfo: TIdHTTPRequestInfo; ResponseInfo: TIdHTTPResponseInfo);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;
  RequestInfo: TIdHTTPRequestInfo; ResponseInfo: TIdHTTPResponseInfo);
begin
 if RequestInfo.Document='/getmessage' then ShowMessage('');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 IdHTTPServer1.Active:=true;
end;

end.

Учитывая что это пример для Д6. Для Д2010 к примеру он будет отличаться параметрами функции-обработчика.
Изучай хелп по TIdHTTPServer.

[toxich]

Пробую это в делфи 7 и ничего не получается, ругается на RequestInfo

[raxp]

1 2 3 4

p.s.: на моей памяти это десятая аналогичная тема на форуме по управлению из браузера

[toxich]

а как RequestInfo настроит в делфи 7 ? как описано пример выше!

[Stilet]

в делфи 7

А какая версия ИНДИ?
Да ты просто кинь на форму компонент и жмакни по его событию CommandGet - посмотришь как он его опишет.

[toxich]

ничего не пойму как это сделать через CommandGet. Плиз помогите!

[Stilet]

Плиз помогите!

События описывать умеешь?
Открывай в Object Inspеctor-е вкладку Events для компонента IdHTTPServer и дважды кликай на событии OnCommandGet - получишь обработчик, в нем и прописывай команды обработки, примерно так как я показывал.

[toxich]

События описывать умеешь?
Открывай в Object Inspеctor-е вкладку Events для компонента IdHTTPServer и дважды кликай на событии OnCommandGet - получишь обработчик, в нем и прописывай команды обработки, примерно так как я показывал.

Примерно как ты показывал в Делфи 7 ниразу не получается!
Если можешь помочь примером, помоги, буду тебе очень и очень благодарен!

[darrion]

ARequestInfo - 7 delphi
RequestInfo - 6 delphi