Bin im Chat!
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Show posts MenuGPC - GLBasic Precompiler V.7.034 SN:df334537 - 3D, NET
Wordcount:4 commands
compiling:
'
/cygdrive/C/Dokumente und Einstellungen/Damien/Eigene Dateien/GLBasic/TryTest\CocoaTouch.mm:29: confused by earlier errors, bailing out
*** FATAL ERROR - Bitte die Compiler-Ausgabe ins Forum kopieren
// --------------------------------- //
// Project: TryTest
// Start: Monday, August 10, 2009
// IDE Version: 7.073
REQUIRE "network.mm"
// Create new Popup
IMPORT "C" void GlbPopup(const char* title, const char* text, const char* firstButton, const char* secondButton);
// Get Pressed ButtonIndex (1,2)
IMPORT "C" int GetPopupState();
// CreateTextField
IMPORT "C" int GlbInitGUI();
// Create Button
IMPORT "C" void GlbButton(const char* caption, int x, int y, int dx, int dy);
// Check Button Action
IMPORT "C" int GetPressState(const char* button);
GlbInitGUI();
GlbPopup("Message...","This message was created with GLBasic \n One Line \n ;)","Cancel","Ok")
WHILE TRUE
Ret = GetPopupState()
IF Ret = 1 THEN foo("Cancel")
IF Ret = 2 THEN foo("OK")
SHOWSCREEN
WEND
FUNCTION foo: muh$
GlbButton(muh$,110,240,100,30);
WHILE TRUE
IF GetPressState(muh$)
ENDIF
SHOWSCREEN
WEND
ENDFUNCTION
FUNCTION MakeMusic: file$
INLINE
#ifdef IPHONE
SoundEngine_Initialize(0);
SoundEngine_LoadBackgroundMusicTrack(file_Str.c_str(),false,false);
SoundEngine_StartBackgroundMusic();
#endif
ENDINLINE
ENDFUNCTION
IF BOXCOLL(...)
IF b1
MakeMusic("Mondschein.mp3")
ENDIF
ENDIF
// --------------------------------- //
// Project: HTTP
// Start: Monday, January 26, 2009
// IDE Version: 6.143
AUTOPAUSE FALSE
GLOBAL clients%[]
GLOBAL ip%,rv%
GLOBAL Header$
GLOBAL www$ = "htdocs/"
GLOBAL index$ = "index.html"
init% = SOCK_INIT()
IF init% < 0
PRINT NETGETLASTERROR$(),0,0
SHOWSCREEN
KEYWAIT
END
ENDIF
Server_Sock% = SOCK_TCPLISTEN(8080)
WHILE TRUE
Client_Sock% = SOCK_TCPACCEPT(Server_Sock%,ip%)
IF Client_Sock THEN DIMPUSH clients%[],Client_Sock
FOREACH a IN clients%[]
rv% = SOCK_RECV(a,msg$,512)
IF rv%
Header$ = Header$+msg$
ENDIF
NEXT
IF Header$ <> ""
anzahl = SPLITSTR(Header$,parts$[],"\r\n")
IF anzahl
y = 0
FOREACH muh$ IN parts$[]
hup$ = MID$(muh$,0,3)
IF hup$ = "GET"
blah = SPLITSTR(muh$,wuerg$[]," ")
IF blah
file$ = MID$(muh$,LEN(hup$)+1,LEN(wuerg$[1]))
DEBUG file$
ENDIF
ENDIF
PRINT muh$,0,30+y*10
y = y+1
NEXT
ENDIF
ENDIF
SHOWSCREEN
WEND
http://www.zshare.net/download/9881512e61f8e6/