Corrects remote connection on Windows

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@502 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2008-07-01 19:45:46 +00:00 · 2008-07-01 19:45:46 +00:00 · 9dac41bef0
commit 9dac41bef0
parent b48c112f91
1 changed files with 1 additions and 1 deletions
--- 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('');