- Fix creating net server in Windows issue
authorunc0rr
Sun, 18 Feb 2007 12:52:39 +0000
changeset 449 9f4063306e54
parent 448 e968e19a464c
child 450 70ca5822c503
- Fix creating net server in Windows issue - Fix playing music
QTfrontend/hwform.cpp
hedgewars/uSound.pas
--- a/QTfrontend/hwform.cpp	Sun Feb 18 12:20:36 2007 +0000
+++ b/QTfrontend/hwform.cpp	Sun Feb 18 12:52:39 2007 +0000
@@ -306,7 +306,7 @@
 {
   pnetserver = new HWNetServer;
   pnetserver->StartServer();
-  _NetConnect(pnetserver->getRunningHostName(), pnetserver->getRunningPort(), ui.pageNet->editNetNick->text());
+  _NetConnect("localhost", pnetserver->getRunningPort(), ui.pageNet->editNetNick->text());
   pUdpServer = new HWNetUdpServer();
 }
 
--- a/hedgewars/uSound.pas	Sun Feb 18 12:20:36 2007 +0000
+++ b/hedgewars/uSound.pas	Sun Feb 18 12:52:39 2007 +0000
@@ -76,8 +76,8 @@
     end;
 
 s:= PathPrefix + '/Music/kahvi140a_alexander_chereshnev-illusion.ogg';
-WriteToConsole(msgLoading + string(s) + ' ');
-Mus:= Mix_LoadMUS(@s);
+WriteToConsole(msgLoading + s + ' ');
+Mus:= Mix_LoadMUS(Str2PChar(s));
 TryDo(Mus <> nil, msgFailed, false);
 WriteLnToConsole(msgOK)
 end;