Интеграция 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

About \  О сайте