Ohne weit auszuholen, hier eine PB cgi-exe die einen Text zurückgeben soll und gleichzeitig ein Cookie setzen soll.
Spiderbasic Code:
Code: Alles auswählen
EnableExplicit
Procedure myCallback(Success, Result.s, UserData)
If Success = 0
Result.s = "CGI antwortet nicht!"
EndIf
Debug "Success: " + Str(Success)
Debug "Result: " + Result.s
EndProcedure
HTTPRequest(#PB_HTTP_Post, "http://localhost/cgi-bin/test_cgi.exe", "Hello World", @myCallback())
Code: Alles auswählen
EnableExplicit
If Not InitCGI()
End
EndIf
Define text.s
Define BufferSize = ReadCGI()
If BufferSize
If CGIBuffer()
text.s = PeekS(CGIBuffer(), BufferSize, #PB_Ascii)
text.s = "Folgende Daten erhalten: " + text.s
EndIf
EndIf
WriteCGIHeader(#PB_CGI_HeaderContentType, "text/html")
WriteCGIHeader(#PB_CGI_HeaderSetCookie , "testcookie=hello", #PB_CGI_LastHeader)
WriteCGIString(text.s)
Vielleicht kann ja wer helfen.
Grüße, Micha122