Вот туториал с моего сайта (эксклюзив (специально для булеан
))
Итак, давайте проведем команде ReadStream() крутой тест! Мы создадим ф-ию, которая запустит php скрипт , который в свою очередь, при введении строки в него, очистит ее от MD5 мусора.
Поехали!
'Для начала включим режим Strict
Strict Function inetscript:String(myurl:String)
'Теперь открываем нужную нам URL
Local myip:TStream = ReadStream(myurl$)
'Теперь нам нужна переменная, которая будет хранить строку, которую будет возвращать php скрипт
Local ipstring:String = ""
'URL существует?
If Not myip
'Если нет, то пускай пользователь это поймет!
ipstring$ = "Error!"
Else
'Если да, то читаем скрипт
While Not Eof(myip)
'И записываем вывод данных линией за линией
ipstring$ :+ ReadLine(myip)
Wend
'Не забудьте закрыть поток, когда скрипт будет прочтен!
CloseStream myip
EndIf
'Просто возвращаем то, что мы получили
Return ipstring$
End Function
Print inetscript$("http::www.infernalsoftware.com/md5.php?test=blablablubb")
|
Все!
Вот, если что.