First commit 14/02/1999

Unit1.cpp

@@ -0,0 +1,25 @@
+//---------------------------------------------------------------------------
+#include <inifiles.hpp>
+
+#pragma hdrstop
+
+//---------------------------------------------------------------------------
+int Port;
+//---------------------------------------------------------------------------
+void CargarConfiguracion( AnsiString CFG )
+{
+ TIniFile *ini;
+ ini = new TIniFile( ExtractFileDir( Application->ExeName ) + CFG );
+   // General
+   Port = ini->ReadInteger( "Global", "Port", 8000 );
+}
+//---------------------------------------------------------------------------
+#pragma argsused
+int main(int argc, char* argv[])
+{
+  CargarConfiguracion("WebServer.ini");
+
+        return 0;
+}
+//---------------------------------------------------------------------------
+