Source code form.
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=191&com_lang=2&com_item=&com_olp=integration spiderbasic and 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