Ребята, помогите.
ASP.NET сервис по строке http://OUR_SERVER/account/check.aspx?user=*&pass=* возвращает строку со значением (в HTML), как мне организовать вызов из Clarion 6.3 (9058), чтобы получить и обработать эту строку.
Спасибо.
Clarion и ASP.NET сервис
Модератор: Дед Пахом
Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
- morkovin
- Ветеран
- Сообщения: 935
- Зарегистрирован: 20 Июль 2005, 14:53
- Откуда: Volgograd, Russia
- Благодарил (а): 9 раз
- Поблагодарили: 4 раза
- Контактная информация:
Re: Clarion и ASP.NET сервис
В аттаче пример из ClaMag_2005_08
- Вложения
-
- WebFetch.zip
- (13.49 КБ) 164 скачивания
WBR, morkovin
Re: Clarion и ASP.NET сервис
Еще возникла одна проблема, если параметры url русские, то сервис его не понимает.
Что нужно сделать (может нужен какой-то encoding).
Пример запроса такой: http://localhost:1907/Account/Check.ash ... &pass=тест
Что нужно сделать (может нужен какой-то encoding).
Пример запроса такой: http://localhost:1907/Account/Check.ash ... &pass=тест
- Admin
- Администратор
- Сообщения: 4010
- Зарегистрирован: 05 Июль 2005, 15:59
- Откуда: Хабаровск
- Благодарил (а): 53 раза
- Поблагодарили: 33 раза
- Контактная информация:
Re: Clarion и ASP.NET сервис
примерно так...
http://www.aport.ru/search/?r=%C4%E5%EC ... F&That=std
http://www.aport.ru/search/?r=%C4%E5%EC ... F&That=std
Код: Выделить всё
PROGRAM
MAP
INCLUDE('CWUTIL.INC')
EncodeUrl(STRING Url),STRING
END
CODE
MESSAGE(EncodeUrl('http://www.aport.ru/search/?r=Демонстрация&That=std'),,,,,MSGMODE:CANCOPY)
EncodeUrl PROCEDURE(STRING Url)!,STRING
l:outstr cstring(1024)
CODE
LOOP W# = 1 TO LEN(CLIP(Url))
IF INRANGE(VAL(Url[W#]),192,255)
l:outstr = CLIP(l:outstr) & '%' & ByteToHex(VAL(Url[W#]))
ELSE
l:outstr = CLIP(l:outstr) & Url[W#]
END
END
return l:outstr
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса