From 9dac41bef00ff52602be34c732589a1f2216f723 Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 1 Jul 2008 19:45:46 +0000
Subject: [PATCH] Corrects remote connection on Windows

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@502 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/samples/http_server/http_server.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/wst/trunk/samples/http_server/http_server.pas b/wst/trunk/samples/http_server/http_server.pas
index c62a44dcd..866f98f94 100644
--- a/wst/trunk/samples/http_server/http_server.pas
+++ b/wst/trunk/samples/http_server/http_server.pas
@@ -24,7 +24,7 @@ begin
 
   //wst_CreateDefaultFile(wst_GetConfigFileName(),nil);
   
-  AppObject := TwstIndyHttpListener.Create();
+  AppObject := TwstIndyHttpListener.Create('');
   try
     WriteLn('"Web Service Toolkit" HTTP Server sample listening at:');
     WriteLn('');