Показать сообщение отдельно
Старый 08.05.2010, 10:51   #54
Damp
Знающий
 
Регистрация: 12.07.2007
Сообщений: 297
Написано 50 полезных сообщений
(для 133 пользователей)
Ответ: Либа для работы с MySQL

;GET запрос на MyServer.com/Script.php, юзер Федя шлет свой счет=1000 на 5 уровне
Stream=OpenTCPStream("www.MyServer.com",80)
If Stream=0 RuntimeError ("Error at OpenTCPStream")
WriteLine Stream,"GET http://MyServer.com/Script.php?Nick=Федя&Score=1000&Level=5 HTTP/1.0"
WriteLine Stream,"Host: localhost:5555"
WriteLine Stream,"User-Agent: Mozilla/5.0"
WriteLine Stream,Chr$(10)

;если запрос предполагает ответ
time=MilliSecs ()+3000
Repeat
	If ReadAvail (Stream)
		s$=ReadLine (Stream)
		Print s$
	EndIf
Until time<MilliSecs () And (Eof(Stream))

CloseTCPStream Stream

;.....................................................
;в файле Script.php, посылаемые переменные определятся как:
$Nick=$_GET['Nick'];
$Score=$_GET['Score'];
$Level=$_GET['Level'];
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
Crayzi (08.05.2010)