CREATE URL, HOST NAME WITH INDY 9

CREATE URL, HOST NAME WITH INDY 9

I tried to create My WebPage (http://www.enclarton.com) for somebody who has computer in other home or city with other telefon line through INTERNET. To access to my home page.

I used TIdHostNameServer (EVENTS) and TIdAuthenticationItem (URL) but I don't know how to set them ?

It's only working while I'm putting address in IE6 :

http://127.0.0.1:8080/

But I want that it is working with :

http://www.enclarton.com

With specified INTERNET HOST NAME : www.enclarton.com

Here is how I was trying :

PROJECT1.DPR --------->

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

UNIT1.PAS --------->

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    IdHTTPServer1: TIdHTTPServer;
    procedure FormCreate(Sender: TObject);
    procedure IdHTTPServer1CommandGet(AThread: TIdPeerThread;
      ARequestInfo: TIdHTTPRequestInfo;
      AResponseInfo: TIdHTTPResponseInfo);
    procedure sasaCommandHAddr(Thread: TIdPeerThread; Parm:string);
  private
    { Private declarations }
    sasaIdHostNameServer: TIdHostNameServer;
    sasaIdAuthenticationItem: TIdAuthenticationItem;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.sasaCommandHAddr(Thread: TIdPeerThread; Parm:string);
begin
Parm:='http://www.enclarton.com';
IdHttpServer1.Threads.Add(Thread);
IdHttpServer1.ParseParams:=True;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  sasaidhostnameserver:=TIdHostNameServer.Create(IdHttpServer1);
  sasaidhostnameserver.Bindings:=IdHTTPServer1.Bindings;
  sasaidhostnameserver.DefaultPort:=8080;
  sasaidhostnameserver.OnCommandHADDR:=sasacommandHAddr;
  sasaidhostnameserver.Active:=True;

  sasaIdAuthenticationItem:=TIdAuthenticationItem.Create(nil);
  sasaIdAuthenticationItem.URL.URI:='http://www.enclarton.com';
  sasaIdAuthenticationItem.URL.Port:='8080';
  sasaIdAuthenticationItem.URL.Host:='127.0.0.1';
end;

procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
  LocalDoc: string;
  ByteSent: LongInt;
begin
  LocalDoc := 'C:\index.html';
  ByteSent := IdHTTPServer1.ServeFile(AThread, AResponseInfo, LocalDoc);
end;

end.

UNIT1.DFM --------->

object Form1: TForm1
  Left = 192
  Top = 114
  Width = 264
  Height = 120
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object IdHTTPServer1: TIdHTTPServer
    Bindings = <
      item
        IP = '127.0.0.1'
        Port = 8080
      end>
    CommandHandlers = <>
    DefaultPort = 8080
    Greeting.NumericCode = 0
    MaxConnectionReply.NumericCode = 0
    ReplyExceptionCode = 0
    ReplyTexts = <>
    ReplyUnknownCommand.NumericCode = 0
    AutoStartSession = True
    KeepAlive = True
    OnCommandGet = IdHTTPServer1CommandGet
    Left = 56
    Top = 24
  end
end

END OF PROJECT1 --------->

THANK YOU.