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.