yes.
server:
Rem Project: memblocksend
Rem Created: Sunday, November 08, 2009
Rem ***** Main Source File *****
set display mode 640,480,32
sync on
sync rate 0
LocalPort = 6790
LocalIP$ = "127.0.0.1"
MaxClients = 50
NoThreads = 0
NoInstances = 1;
SendPacket = mn create packet()
mn Start NoInstances,NoThreads
mn Set Local 0,LocalIP$,LocalPort,"",0
mn Disable TCP Handshake 0
Result = mn Start Server(0,MaxClients,0,0)
if Result = 0
print "Server started with ";
print str$(mn Get Threads());
print " thread(s) running"
` If failed to start
else
print "Server failed to start"
wait key
end
endif
load image "000.jpg",1,0
make memblock from image 1,1
`make memblock 1,2000
pTr= get memblock ptr(1)
size= get memblock size(1)
maKE OBJECT CUBE 1,1
do
Joined as integer
Joined = mn Client Joined(0)
if Joined > 0
print "A new client has joined. Client ID is: ";
print str$(Joined)
print "waitkey"
endif
` Leaving clients
Left = mn Client Left(0)
if Left > 0
print "Client ";
print str$(Left);
print " has disconnected"
endif
text 10,10,str$(pTr)
text 10,30,str$(size)
if inkey$()="1"
mn Add int SendPacket, size
aa$=str$(rnd(654654654))
aa$=aa$+" "
num=len(aa$)
mn Add int SendPacket,num
mn Add string SendPacket,aa$,num,1
mn add memblock SendPacket, pTr, size, 0
mn Send TCP 0,SendPacket,1,0,0 :wait 1000
endif
sync
loop
client:
Rem Project: downloadmemblock
Rem Created: Sunday, November 08, 2009
Rem ***** Main Source File *****
set display mode 640,480,32
sync on
sync rate 0
ConnectPort = 6790
Timeout = 10
NoThreads = 0
NoInstances = 1;
RecvPacket = mn create packet()
mn Start NoInstances,NoThreads
mn Disable TCP Handshake 0
mn Set Auto Resize TCP 0, 0, 1
ConnectIP$ as string
ConnectIP$="127.0.0.1"
Connect = mn Connect(0, ConnectIP$,ConnectPort,"",0,Timeout,1)
select Connect
case 1:
print "Connected to server successfully"
endcase
case 0:
CLS
Print "Connection timed out. The server may not be available."
Print "Press any key to exit"
Wait Key
end
endcase
case -1:
CLS
Print "An unknown error occurred whilst trying to connect."
Print "Press any key to exit"
Wait Key
end
endcase
case -2:
CLS
print "The connection request was rejected because the server is full."
print "Press any key to exit"
Wait Key
end
endcase
endselect
maKE OBJECT CUBE 1,1
do
Percent# = mn Get Tcp Percent(0,0)
` Check to see if the file has finished receiving
TcpPacket = mn Recv TCP(0,RecvPacket,0)
` When the file has finished receiving
if TcpPacket > 0
`Size = mn Get Packet Remainder(RecvPacket)
mn set cursor RecvPacket, 0 ` move cursor back to start of packet
Size2= mn Get int(RecvPacket)
mn set cursor RecvPacket, 0 ` move cursor back to start of packet
Size3= mn Get int(RecvPacket)
mn set cursor RecvPacket, 0 ` move cursor back to start of packet
aa$=mn Get string(RecvPacket,Size3,0)
make memblock 2,Size2
pTr= get memblock ptr(2)
mn set cursor RecvPacket, 0 ` move cursor back to start of packet
mn get memblock RecvPacket, pTr,0,0
endif
if memblock exist(2)
make image from memblock 1,2
delete memblock 2
endif
if image exist(1)
paste image 1,100,10
endif
text 10,50,str$(size2)
text 10,80,str$(TcpPacket)
text 10,100, str$(Percent#)
text 10,120, str$(screen fps())
text 10,140, str$(Size3)
text 10,160,aa$
if mn Client Connected(0,0) = 0 then end
sync
loop
and else:
I can not add string in package
in than my mistake.
excuse me for my bad language . and I bad understand HELP files
forall
