Petit embryon de chat utilisant le même principe
Code : Tout sélectionner
Enumeration
#MainForm
EndEnumeration
Enumeration
#User
#Say
#Send
#UserSayList
EndEnumeration
Procedure Send()
Protected url.s = "http://s242132022.onlinehome.fr/racal/usersay0.php"
Protected User.s = GetGadgetText(#User)
Protected Say.s = GetGadgetText(#Say)
Protected DataSend.s = "&user=" + URLEncoder(GetGadgetText(#User)) + "&say=" + URLEncoder(GetGadgetText(#Say))
;A URL$ may Not contain certain characters such as: tab, space, accent letter etc.
If User <> "" And Say <> ""
DataSend = "&user=" + URLEncoder(User) + "&say=" + URLEncoder(Say)
If ReceiveHTTPFile(url + "?" + DataSend, "log.txt")
SetGadgetState(#UserSayList, #PB_Web_Refresh)
SetGadgetText(#Say, "")
Else
MessageRequester("Error","There is a problem with the database")
EndIf
Else
MessageRequester("Oops", "The field User or Say can not be empty")
EndIf
EndProcedure
Procedure MainForm_Show()
OpenWindow(#MainForm, 0, 0, 800, 600, "UserSay Version 1", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
;ListIconGadget(#UserSayList, 10, 10, 780, 500, "User", 150)
WebGadget(#UserSayList, 10, 10, 780, 500, "http://s242132022.onlinehome.fr/racal/usersayresult.php")
TextGadget(#PB_Any, 10, 530, 100, 20, "User")
StringGadget(#User, 10, 550, 200, 22, "")
TextGadget(#PB_Any, 220, 530, 100, 20, "Say")
StringGadget(#Say, 217, 550, 470, 22, "")
ButtonGadget(#Send, 708, 550, 80, 22, "Send")
EndProcedure
InitNetwork()
MainForm_Show()
BindGadgetEvent(#Send, @Send())
Repeat : Until WaitWindowEvent(10) = #PB_Event_CloseWindow
Manque le rafraîchissement de la page avec un timer et d'autres fonctionnalités mais ce n'est qu'un embryon de code.
Pour générer un blog ou CMS ou autres ça peut être un bon systéme d'autant plus que la tendance est au retour aux pages statics.