Суббота, 24.08.2019, 06:28
Приветствую Вас Гость | RSS
Главная | Каталог статей | Регистрация | Вход
Меню сайта
Категории каталога
BlitzMax [14]
Blitz3D [9]
BlitzPlus [0]
Xna [1]
DarkBasic [0]
Общее [3]
Наш опрос
Hans Zimmer - что это для вас?
1. Где?
2. Композитор вроде
3. Простые символы
4. Любимый композитор
5. Я не определился
Всего ответов: 12
Форма входа
Поиск
Друзья сайта
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Статьи
Главная » Статьи » BlitzMax

PHP Скрипты в BMax
Итак, давайте проведем команде ReadStream() крутой тест! Мы создадим ф-ию, которая запустит php скрипт , который в свою очередь, при введении строки в него, очистит ее от MD5 мусора.
Поехали!
Quote

'Для начала включим режим 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")


Все!

Источник: http://blitzmax.com
Категория: BlitzMax | Добавил: JohnK (26.03.2007) | Автор: Владимир
Просмотров: 911
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Copyright JohnK© 2019