Clarion и ASP.NET сервис

Clarion, Clarion 7

Модератор: Дед Пахом

Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Ответить
FOS
Новичок
Сообщения: 9
Зарегистрирован: 06 Март 2007, 9:21
Откуда: Минск
Контактная информация:

Clarion и ASP.NET сервис

Сообщение FOS »

Ребята, помогите.

ASP.NET сервис по строке http://OUR_SERVER/account/check.aspx?user=*&pass=* возвращает строку со значением (в HTML), как мне организовать вызов из Clarion 6.3 (9058), чтобы получить и обработать эту строку.

Спасибо.
Аватара пользователя
morkovin
Ветеран
Сообщения: 935
Зарегистрирован: 20 Июль 2005, 14:53
Откуда: Volgograd, Russia
Благодарил (а): 9 раз
Поблагодарили: 4 раза
Контактная информация:

Re: Clarion и ASP.NET сервис

Сообщение morkovin »

В аттаче пример из ClaMag_2005_08
Вложения
WebFetch.zip
(13.49 КБ) 164 скачивания
WBR, morkovin
FOS
Новичок
Сообщения: 9
Зарегистрирован: 06 Март 2007, 9:21
Откуда: Минск
Контактная информация:

Re: Clarion и ASP.NET сервис

Сообщение FOS »

Спасибо большое , то что нужно!
FOS
Новичок
Сообщения: 9
Зарегистрирован: 06 Март 2007, 9:21
Откуда: Минск
Контактная информация:

Re: Clarion и ASP.NET сервис

Сообщение FOS »

Еще возникла одна проблема, если параметры url русские, то сервис его не понимает.
Что нужно сделать (может нужен какой-то encoding).

Пример запроса такой: http://localhost:1907/Account/Check.ash ... &pass=тест
Аватара пользователя
Admin
Администратор
Сообщения: 4010
Зарегистрирован: 05 Июль 2005, 15:59
Откуда: Хабаровск
Благодарил (а): 53 раза
Поблагодарили: 33 раза
Контактная информация:

Re: Clarion и ASP.NET сервис

Сообщение Admin »

примерно так...
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
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
FOS
Новичок
Сообщения: 9
Зарегистрирован: 06 Март 2007, 9:21
Откуда: Минск
Контактная информация:

Re: Clarion и ASP.NET сервис

Сообщение FOS »

Спасибо, заработало :)
Ответить