Silverlight/XAML – Learning by Coding
1: <?xml version="1.0" encoding="UTF-8"?>
2: <!-- coded by Thomas Meinike 09/08 -->
3: <UserControl x:Class="sl2_webclient_post.Page"
4: xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
5: xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
6: Width="800" Height="600">
7:
8: <Canvas>
9: <Button Canvas.Left="30" Canvas.Top="30" Content="POST-Request ..." Padding="10"
10: Cursor="Hand" x:Name="aktion"/>
11: <TextBlock Canvas.Left="150" Canvas.Top="40" Text="..." x:Name="ergebnis"/>
12: </Canvas>
13:
14:
15: <!-- // zusätzlich verwendeter VB.NET-Code in Page.xaml.vb:
16:
17: Imports System.Net
18:
19: Partial Public Class Page
20: Inherits UserControl
21:
22: Public Sub New()
23: InitializeComponent()
24: AddHandler aktion.Click, AddressOf BtnClick
25: End Sub
26:
27: Private Sub BtnClick(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)
28: Dim request As New WebClient()
29: Dim address As Uri = New Uri("postwebreq.php", UriKind.Relative)
30: Dim method As String = "POST"
31: Dim params As String = "param1=wert1¶m2=wert2"
32:
33: request.Headers.Item("Content-Type") = "application/x-www-form-urlencoded"
34: request.Encoding = System.Text.Encoding.UTF8
35: AddHandler request.UploadStringCompleted, AddressOf PostResponse
36: request.UploadStringAsync(address, method, params)
37: End Sub
38:
39: Private Sub PostResponse(ByVal sender As System.Object, ByVal e As UploadStringCompletedEventArgs)
40: If e.Error Is Nothing Then
41: ergebnis.Text = e.Result
42: Else
43: ergebnis.Text = e.Error.Message
44: End If
45: End Sub
46:
47: End Class
48:
49: -->
50:
51:
52: <!-- // zusätzlich verwendeter PHP-Code in postwebreq.php:
53:
54: <?php
55: header("Content-Type: text/plain; charset=UTF-8");
56:
57: $param1=htmlspecialchars($_POST["param1"]);
58: $param2=htmlspecialchars($_POST["param2"]);
59:
60: print "Es wurden $param1 und $param2 gesendet.";
61: ?>
62:
63: -->
64:
65: </UserControl>
[zum Anfang]