July 2011 Blog Posts

Encoding bei Fitsms

Mit Fitsms kann man SMS versenden und zwar durch Aufruf einer URL und entspechenden Requestparametern. Eigentlich kein Problem, nur reicht ein Standard httpUtility.UrlEncode nicht um Sonderzeichen zu übergeben. Die benötigte Codierung ist Windows-1252, was ich durch Try'nError herausgefunden habe. Aber auch das reicht noch nicht da das Zeichen "ü" zu %fc wird und fitSMS codierte Zeichen aber in uppercase verlangt. Heraus kommt als Lösung folgendes: Public Class smsGateWay     Private _username As String     Public Property userName() As String         Get             Return _username         End Get         Set(ByVal value As String)             _username = value         End Set     End Property     Private _password As String      Public Property password() As String         Get             Return _password         End Get         Set(ByVal value As String)             _password = value         End Set     End Property     Private _SMSKennung As String      Public Property SMSKennung() As String         Get             Return _SMSKennung         End Get         Set(ByVal value As String)             _SMSKennung = value         End Set     End Property     Public Result As XElement     Public ErrorMessage As String = ""     Function getFromURL(ByVal url As String) As String         Dim request As System.Net.WebRequest = System.Net.WebRequest.Create(url)                Dim response As System.Net.WebResponse         response = request.GetResponse()         Dim responseStream As System.IO.Stream = response.GetResponseStream()         Dim reader As System.IO.StreamReader = New System.IO.StreamReader(responseStream)         Return reader.ReadToEnd()     End Function     Public Shared Function UrlEncodeUpperCase(value As String, e As Text.Encoding) As String         value = HttpUtility.UrlEncode(value, e)         Return Regex.Replace(value, "(%[0-9a-f][0-9a-f])", Function(c) c.Value.ToUpper())     End Function     Public Function sendTextSMS(text As String, MobileNumber As String) As Boolean         Dim url As String = "https://gateway.fitsms.de/sms/http2sms.jsp?" & _                                 "username=" & userName & _                                 "&password=" & password & _                                 "&type=text&" & _                                 "from=" & SMSKennung & _                                 "&to=" & MobileNumber & _                                 "&content=" & UrlEncodeUpperCase(text, Encoding.GetEncoding("Windows-1252"))         Dim s = getFromURL(url)         Try             Dim x As New XElement(XElement.Parse(s))             Result = x             If x..Count > 0 Then                 If x..First.Value = "SUCCESS" Then                     ErrorMessage = "Success"                 Else                     ErrorMessage = x..First.Value                 End If                 Return x..First.Value = "SUCCESS"             Else                 Return False             End If         Catch ex As Exception             ErrorMessage = ex.Message             Return False         End Try     End Function End Class 

posted @ Friday, July 29, 2011 1:29 PM

"Online-Verhalten" oder "Interesse-basierte" Werbung per cookie ausschalten

Seit ein paar Monaten nervt mich mehr und mehr, dass ich Werbung eingeblendet bekomme von Websites die ich zuvor besucht hatte. Auf dieser Website, kann man das auf einen Schlag für 74 Anbieter ausschalten.

posted @ Saturday, July 23, 2011 10:25 AM

Der Volltextabfrageparameter für 'Volltextabfragezeichenfolge' ist nicht gültig.

Bei der Umstellung einer Website auf .NET 4.0 bekam ich bei der mit Linq2SQL und einer Tabellenwertfunktion den folgenden Fehler:    "Der Volltextabfrageparameter für 'Volltextabfragezeichenfolge' ist nicht gültig." Grund ist, dass Linq2SQL die Parametergröße automatisch auf 8000 Zeichen(varchar) bzw. 4000 Zeichen (nvarchar) setzt. Die Parameter der Function musste ich also nur anpassen: ALTER FUNCTION [dbo].[Search_Community] ( @search nvarchar(4000) ) RETURNS TABLE AS RETURN ( SELECT KEY_TBL.[KEY] as d_UserContentID, KEY_TBL.RANK as Relevance FROM CONTAINSTABLE(t_ContentBlog, *, @search) AS KEY_TBL )

posted @ Saturday, July 16, 2011 7:17 PM