wfi в ногу со временем

Оценка раздела:

Интеграция SpiderBasic и WFI

Дата публикации: 2014-05-29 09:36:30
Просмотров: 3115
Автор: Мета Гость

Интеграция SpiderBasic и WFI

Приложение на языке SpiderBasic получает данные из заполненной формы, отправляет их на сервер ajax запросом и размещает в cответствующем div контейнере полученный ответ сервера.
Пример интеграции фактически заменяет форму комментирования внизу страницы.

Исходный код формы.

Procedure HttpGetEvent(Success, result.s)

If Success

Debug result

;!alert(v_result);

!document.getElementById('com_loader').innerHTML = v_result;

Else

Debug "HTTPRequest(): Error"

EndIf

EndProcedure

Global ListView1, Button1, Tree1

Procedure SizeWindowEvent()

ResizeGadget(0, 10, 10, WindowWidth(0)-20, WindowHeight(0)-20)

EndProcedure

Procedure CloseWindowEvent()

CloseWindow(EventWindow())

EndProcedure

Procedure GadgetEvents()

Select EventGadget()

Case 1

DisableGadget(1,1)

url$="act=com_add&com_nav=158&com_lang=1&com_item=&com_olp=интеграция_spiderbasic_и_wfi&com_title="+GetGadgetText(2)+"&com_mail="+GetGadgetText(3)+"&com_name="+GetGadgetText(4)+"&com_msg="+GetGadgetText(5)+""

HTTPRequest(#PB_HTTP_Post, "http://wfi.lomasm.ru/rus.main.ajax/", url$, @HttpGetEvent())

EndSelect

EndProcedure

If OpenWindow(0, 0, 0, 420, 200, "", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_SizeGadget)

SetWindowTitle(0, "SpiderBasic and WFI example of integration and interaction")



StringGadget(2, 10, 10, 170, 20, "title...")

StringGadget(3, 10, 40, 170, 20, "mail...")

StringGadget(4, 10, 70, 170, 20, "name...")

StringGadget(5, 10, 100, 170, 60, "text...")



ButtonGadget(1, 10, 170, 200, 20, "SEND", #PB_Button_Left)



BindEvent(#PB_Event_CloseWindow, @CloseWindowEvent())

BindEvent(#PB_Event_SizeWindow, @SizeWindowEvent())

BindEvent(#PB_Event_Gadget, @GadgetEvents())



EndIf