bildanzeigen geht irgentwie nicht :(

Übersicht

BlitzBasic

Allgemein

	cyby Betreff: bildanzeigen geht irgentwie nicht :(	Di, Jul 06, 2004 22:11 Antworten mit Zitat
hi, wenn man diesen code 2mal startet , einmal host (als erstes) und client (als zweites) , dann kommt ein fehler das es das Bilder nicht anzeigen kann ! aber ganz am anfang sieht man ja das es das bild gibt ! (einfach ein beliebiges bild nehmen zum testen ....) Code: [AUSKLAPPEN] [EINKLAPPEN] Global tiles = LoadImage("tiles.bmp") ;hier als beispiel das es die bilder gibt ! DrawImage tiles,10,10,0 WaitKey() Print "1 = Host" Print "2 = Client" wahl_nummer = Input("Ihre Wahl:") If wahl_nummer = 1;[Host] stream = CreateUDPStream(8001) Print "Warten auf den Client..." Repeat ip = RecvUDPMsg(stream) Until ip <> 0 WriteByte stream,1 SendUDPMsg stream,ip,sendeport CloseUDPStream stream DrawImage tiles,10,10,0 ;<---- hier ElseIf wahl_nummer = 2;[Client] ip = integerip("127.0.0.1") stream = CreateUDPStream(8000) WriteByte stream,1 SendUDPMsg stream,ip,sendeport Delay 1000 If RecvUDPMsg(stream) Then CloseUDPStream stream DrawImage tiles,10,10,0 ;<---- hier EndIf EndIf Function IntegerIP(IP$) A1 = Int(Left(IP$,Instr(IP$,".")-1)) : IP$ = Right(IP$,Len(IP$)-Instr(IP$,".")) A2 = Int(Left(IP$,Instr(IP$,".")-1)) : IP$ = Right(IP$,Len(IP$)-Instr(IP$,".")) A3 = Int(Left(IP$,Instr(IP$,".")-1)) : IP$ = Right(IP$,Len(IP$)-Instr(IP$,".")) A4 = Int(IP$) Return (A1 Shl 24) + (A2 Shl 16) + (A3 Shl 8 ) + A4 End Function Weis wer warum das kommt ? Ich habe keine Ahnung Danke für eine Anwort MfG cyby

cyby

Betreff: bildanzeigen geht irgentwie nicht :(

Di, Jul 06, 2004 22:11
Antworten mit Zitat

hi,

wenn man diesen code 2mal startet , einmal host (als erstes) und client (als zweites) , dann kommt ein fehler das es das Bilder nicht anzeigen kann ! aber ganz am anfang sieht man ja das es das bild gibt ! (einfach ein beliebiges bild nehmen zum testen ....)
Code: [AUSKLAPPEN]

Global tiles = LoadImage("tiles.bmp")
;hier als beispiel das es die bilder gibt !
DrawImage tiles,10,10,0
WaitKey()

Print "1 = Host"
Print "2 = Client"
wahl_nummer = Input("Ihre Wahl:")

If wahl_nummer = 1;[Host]
stream = CreateUDPStream(8001)
Print "Warten auf den Client..."
Repeat
ip = RecvUDPMsg(stream)
Until ip <> 0
WriteByte stream,1
SendUDPMsg stream,ip,sendeport
CloseUDPStream stream
DrawImage tiles,10,10,0 ;<---- hier

ElseIf wahl_nummer = 2;[Client]

ip = integerip("127.0.0.1")
stream = CreateUDPStream(8000)
WriteByte stream,1
SendUDPMsg stream,ip,sendeport
Delay 1000
If RecvUDPMsg(stream) Then
CloseUDPStream stream
DrawImage tiles,10,10,0 ;<---- hier
EndIf
EndIf

Function IntegerIP(IP$)
A1 = Int(Left(IP$,Instr(IP$,".")-1)) : IP$ = Right(IP$,Len(IP$)-Instr(IP$,"."))
A2 = Int(Left(IP$,Instr(IP$,".")-1)) : IP$ = Right(IP$,Len(IP$)-Instr(IP$,"."))
A3 = Int(Left(IP$,Instr(IP$,".")-1)) : IP$ = Right(IP$,Len(IP$)-Instr(IP$,"."))
A4 = Int(IP$)
Return (A1 Shl 24) + (A2 Shl 16) + (A3 Shl 8 ) + A4
End Function

Weis wer warum das kommt ? Ich habe keine Ahnung Sad