WINCE / fphttpserver "Listening on port #1 failed, error: 10022"
lazarus / 38-Networking and Web Programming

----------------------------------------------------------------------
sanmiolade · 2013-09-16 11:18

Hello All,


 These are my problems....I am trying to build a Embedded WebServer
for my WINCE Device so
 my users can change the device settings via a browser.

 I built a Simple WebServer, it works on my Windows Dev Computer
 but when I move the same code to my WINCE it gives the "Listening on
port #1 failed, error: 10022"

Please I need a Solution

*** MY CODE IS BELOW ****
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils,EmbeddedWebServerClass, FileUtil,
Forms,LResources, Controls, Graphics, Dialogs,
StdCtrls,fpwebfile,fphttpserver;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
    procedure HandleWebServerRequest(Sender: TObject; var ARequest:
TFPHTTPConnectionRequest; var AResponse: TFPHTTPConnectionResponse);
  end;

var
  Form1: TForm1;
  myWebServer :EmbeddedWebServer;
  FServer : TFPHTTPServer;
implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin

    self.Position:= poDesktopCenter;
end;

procedure TForm1.Button1Click(Sender: TObject);


begin
    Memo1.Lines.Add('Starting server');
    FServer:=TFPHTTPServer.Create(self);
    FServer.Port:=8081;
    FServer.OnRequest:=@HandleWebServerRequest;
    Memo1.Lines.Add('Done Starting server');

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    Memo1.Lines.Add('Starting Active '+ inttostr(FServer.Port));
  FServer.Active := true;;
end;


procedure TForm1.HandleWebServerRequest(Sender: TObject; var ARequest:
TFPHTTPConnectionRequest; var AResponse: TFPHTTPConnectionResponse);

begin

      memo1.Lines.add(ARequest.URL);
end;

end.