Freakfabrik Softwareschmiede - Das Blog

Fehler: 800a0e78

Floyd — Mon, 15 Jan 2007 15:18:54 GMT

Fehlercode:
    800a0e78

Fehlermeldung:

    The operation requested by the application is not allowed if the object is closed.
    ADODB.Recordset Fehler "800a0e78' - Der Vorgang ist für ein geschlossenes Objekt nicht zugelassen.

Ursache:

[code]sql = "Insert into #Tabelle [..]" & vbcrlf & _
       "Select * from #Tabelle"
db.execute(sql)[/code]

Das Problem ist das hier zwei Statements nacheinandere abgearbeitet werden womit ADODB leider nicht so klar kommt wie man es erwarten würde. Genauer betrachtet macht ADODB genau das was es soll. Es liefert 2 Recordsets zurück. Das erste behandelt den das erste Statement was nach seiner Ausfühung ohne Rückgabe gleich wieder geschlossen wurde.

Lösung:

    Ansatz 1: Man führt einfach beide Anweisungen sperat aus.
    Ansatz 2: Ein "SET NOCOUNT ON" als erste Anweisung behebt ebenfalls das Problem.

MD5sum kompatible Hash-Werte erzeugen

Floyd — Fri, 12 Jan 2007 10:16:05 GMT

Ein Freund von mir bat mich für ihn eine Klasse zu schrieben mit der man MD5-Hash von Files erzeugen kann. Da er noch nicht viel Erfahrung mit .Net hat willigte ich ein. Dabei stellte ich jedoch fest das es viele verschiedene Ansätze gibt die jeweils unterschiedliche Resultate erzeugten. Also erzeugte ich mit dem Tool MD5sum.exe ein paar Referenzwerte um meine Ergebnisse zu vergleichen.

[code]

    1 Imports System.Security.Cryptography

    2 Imports System.Text

    3 Imports System.IO

    4 

    5 Public Class MD5FileHash

    6     Public Function getMD5HashForFile(ByVal strFileName As String) As String

    7    
    If (New FileInfo(strFileName).Exists) Then

    8    
        Dim objSB As New StringBuilder

    9    
        Dim objMD5 As New MD5CryptoServiceProvider

   10    
        Dim objFS As New FileStream(strFileName,
FileMode.Open)

   11    
        Dim bHash() As Byte =
objMD5.ComputeHash(objFS)

   12    
        objFS.Close()

   13    
        For Each bHex As Byte In bHash

   14    
            objSB.Append(bHex.ToString("x2"))

   15    
        Next

   16    
        Return objSB.ToString

   17    
    Else

   18    
        Throw New FileNotFoundException("File
" & strFileName & " not Found.")

   19    
        Return Nothing

   20    
    End If

   21     End Function

   22 End Class

[/code]

Wichtig ist das die Referenz auf System.Security bestehen muss. Diese Funktion erzeugt MD5-Hash-Werte von Dateien die unter anderem zu den Hash-Werten von MD5sum.exe, digestIT und der MD Hash Tool extension for Firefox kompatibel sind.

Acrobat-Version mittels JavaScript im Internetexplorer auslesen

Floyd — Thu, 11 Jan 2007 15:56:19 GMT

Und zugleich erfolgt der zweite Blogeintrag für Heute. Diesmal befasse ich mich mit dem Problem die Version des Acrobat's respektive Acrobat Reader's im Internetexplorer auszulesen.

Das kniflige dabei ist das ich nicht VBScript zurückgreifen möchte. Das hat eine einfachen Grund. Die viele Benutzer haben VBScript deaktiviert oder auf "Eingabeaufforderung" gestellt was zu einem nervigen PopUp führen würde.

[code]

    1 function getAcrobatVersionsNr(style){ //Parameters
Accept: short (Return X.X) | long (Return X.X.X) || Returns is none Acrobat detectet
NULL

    2    
document.write('<object id="pdfObj" classid="clsid:CA8A9780-280D-11CF-A24D-444553540000"
width="0" height="0" style="display:none"></object>');

    3     try{

    4    
    AcrobatVersion = pdfObj.GetVersions();

    5    
    if(AcrobatVersion == '')

    6    
        return null;

    7    
    else{

    8    
        var indice
= AcrobatVersion.indexOf("AcroForm");

    9    
        if (indice>-1)
{

   10    
            indice = indice + 9;

   11    
            var AcrobatVersionNrLang
= AcrobatVersion.substring(indice, indice + 5)

   12    
            indice=AcrobatVersionNrLang.lastIndexOf(".")

   13    
            AcrobatVersionNrKurz = AcrobatVersionNrLang.substring(0,indice);

   14    
            if (style=='short')

   15    
                return AcrobatVersionNrKurz;

   16    
            else if (style=='long')

   17    
                return AcrobatVersionNrLang;

   18    
        }

   19    
        else 

   20    
            return null

   21 

   22    
    }

   23    
}

   24     catch(ex){return null}

   25 }

[/code]

Die Funktion getAcrobatVersionsNr erstellt ein neues Objekt der angegebenen classid welches das AcrobatBowserHelper-Objekt representatiert. Anschließend wird geprüft ob sich dieses Objekt instanzieren ließe und wenn ja wird die Funktion GetVersions aufgerufen welche einen String mit allen installierten AcrobatPlugins und deren Versionen auflistet. Das wichtigste Plugin in diesem Zusammenhang ist AcroForm. Nun wird die Versionsinformation dieses Plugins rausgeparst.

Die Funktion verfügt über einen Parameter der angibt in welchem Format die Rückgabe erfolgen soll. Zur Auswahl stehen hier "short" und "long". Weitere Informationen entnehmen Sie bitte dem Kommentar.

Sollte keine Acrobatversion installiert sein wird NULL zurückgegeben.

UrlEncode und UrlDecode

Floyd — Thu, 11 Jan 2007 12:34:37 GMT

Nach einer kurzen Ruhepause möchte ich nun wieder mit meiner Arbeit beginnen. Und gleich bin ich auf das erste Problem gestoßen.

Im Namespace System.Web gibt es eine Klasse die sich HttpUtility nennt und die unter anderem die Funktion Urlencode und Urldecode implementiert. Leider hatte ich feststellen müssen das diese Klasse nicht das macht was ich wollte. Mittels des WebClients aus dem System.Net Namespace wollte ich einen Request absätzen der jedoch als Parameter auch umlaute enthielt. Diese wurde jedoch nicht encodiert und auch der WebClient encodiert sie nicht automatisch.

Aus diesem Grund habe ich mich drangemacht selber eine entsprechende Implementierung zu schreiben und das Resultat möchte ich euch hier zur Verfügung stellen.

[code]

    1     Public Function UrlEncode(ByVal strValue As String) As String

    2    
    Dim strTempreturn As String = ""

    3    
    For Each strChar As Char In strValue

    4    
        If InStr(1, "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz",
strChar) = 0 Then

    5    
            strTempreturn += "%" &
Hex(Asc(strChar))

    6    
        Else : strTempreturn
+= strChar

    7    
        End If

    8    
    Next

    9    
    Return strTempreturn

   10     End Function

   11 

   12     Public Function UrlDecode(ByVal strValue As String) As String

   13    
    Dim strTempreturn As String = ""

   14    
    Dim arrTempString() As String =
strValue.Split("%")

   15    
    For Each strEntry As String In arrTempString

   16    
        If strEntry.Length
>= 2 Then

   17    
            If IsHex(strEntry.Substring(0,
2)) Then

   18    
                strTempreturn
+= Chr("&H" & strEntry.Substring(0, 2))

   19    
                strTempreturn
+= strEntry.Substring(2)

   20    
            Else :
strTempreturn += "%" & strEntry

   21    
            End If

   22    
        Else : strTempreturn
+= strEntry

   23    
        End If

   24    
    Next

   25    
    Return strTempreturn

   26     End Function

   27 

   28     Public Function IsHex(ByVal strValue As String) As Boolean

   29    
    Dim bolTempreturn As Boolean = True

   30    
    If strValue.Length = 1 Or strValue.Length
= 2 Then

   31    
        For Each strChar As Char In strValue

   32    
            If InStr(1, "0123456789ABCDEF",
strChar) = 0 Then

   33    
                bolTempreturn
= False

   34    
            End If

   35    
        Next

   36    
    Else : bolTempreturn = False

   37    
    End If

   38    
    Return bolTempreturn

   39     End Function

[/code]

Beide Funktionen erwartet einen String als Parameter und liefern ebenfalls einen String zurück.

Kurz zu den Funktionsweisen:

UrlEncode:

Diese Funktion prüft ob die im ubergebenen String enthaltenen Zeichen in der Zeichsatz (0-9a-zA-Z) passen (wobei ä,ü,ö,.. ignoriert werden). Sollte dem nicht so sein, wird der Hex-Wert des ASCII-Code dieses Zeichens ermittelt.

UrlDecode:

Diese Funktion teilt den übergebenen String anhand des %-Zeichens und prüft ob anschließend die nächsten zwei Zeichen einen Hex-Wert darstellen. Wenn ja wird dieser wieder in ein Char convertiert.

IsHex:

Diese Funktion überprüft lediglich ob die übergebene Zeichenfolge aus einem bzw. zwei Zeichen besteht und im Zeichsatz für Hex-Werte enthalten ist.

Response Buffer Limit Exceeded (80004005)

Floyd — Tue, 14 Nov 2006 08:52:05 GMT

Die Fehlermeldung "Response Buffer Limit Exceeded" wird vom IIS geworfen sobald der Puffer einer Webseite eine Größe von 4 MB - 4194304 Byte - überschreitet. Dies trifft auch auf alle eingebetteten Objecte wie Bilder, PDFs und äühnliches zu die direkt ins ASP eingebunden sind.

Für dieses Problem gibt es verschiedene Lösungen.

Lösung 1 - Verwendung von Response.Flush:

Bei einer reinen HTML-Generrierung ist es möglich die Eigenschaft Response.Buffer zu setzten. Diese bewirkt das erstmal garnix besonderes. Erst im Zusammenhang mit mit Response.Flush() wird es interessant.

Sobald Response.Buffer auf True gesetzt wurde wird der generierte Seiteninhalt bis zum nächsten Auftreten von Response.Flush() oder dem Ende der Seite gechacht.

Hier ein kleines Beispiel

[code] Response.Buffer = True
For i=0 to Ubound(arr)
   set RS = db.execute("Select from table where y=" & arr(i))
   Do While not rs.eof and rs.recordcount>1
     .....
   Loop
   Response.Flush()
Next
[/code]

Lösung 2 - Anhebung des ASPBufferLimits:

Die zweite Lösung ist dann zu bevorzugen wenn es sich nicht um eine HTML-Generierung handelt. Als Beispiel kann ich hier zum Beispiel aufführen das eine PDF geladen werden soll die größer als 4MB ist - diesen Fall hatte ich heut selber gehabt.

Im AdminScripts-Verzeichnis des IIS (Inetpubs) findet sich das Script adsutil.vbs welches man wie folgt aufrufen muss.

[code]cscript.exe adsutil.vbs SET w3svc/aspbufferinglimit LimitSize[/code]

LimitSize stellt die Puffer-Limit-Größe in Byte dar. Beispielsweise wird mit der Nummer 67108864 die Puffer-Limit-Größe zu 64 MB festgelegt.

Nach einem Neustart der IIS-Webinstanz wird die Einstellung übernommen und das Problem sollte nicht mehr auftreten.

Floyd

NULL in ASP binden

Floyd — Wed, 08 Nov 2006 17:33:48 GMT

Häufig stößt man in diversen Foren auf die Frage wie man in ASP NULL-Werte in eine Datenbank binden kann. Leider liefert ASP und ADODB keine Möglichkeit von Haus aus mit dies zu machen. Hierzu muss man sich einem kleinen Trick behelfen.

[code]

    1 dbNull = db.execute("select
null").fields(0)

[/code]

Natürlich kann man auch den weg gehen das man "NULL" direkt ins Statment schreib, doch dieser Weg ist weder besonders schön noch besonders empfehlenswert da dies zumeist doppelte Code-Pflege mit sich bringt.

Floyd

Function: ReturnDBNull - neu aufgelegt

Floyd — Wed, 08 Nov 2006 17:26:41 GMT

Im Artikel SQL-Injektion oder Wie binde ich richtig für Anfänger hatte ich vor einiger Zeit mal eine Funktionsblock gepostet um NULL in eine Datenbank zu binden. Da ich die Funktion jetzt mal wieder brauchte wollt ich sie natürlich gleich verbessern. Die neue Version ist um einiges schlanker und hat auch keinen begrenzten Typenumfang mehr.

[code]

   1     Function ReturnDBNull(ByVal value As Object) As Object

   2         If IsNothing(value) Or value
= vbEmpty Or value = vbNull Then

   3        
    Return DBNull.Value

   4         Else

   5        
    Return value

   6         End If

   7     End Function

[/code]

Floyd

About me

Floyd — Tue, 07 Nov 2006 15:12:44 GMT

Über dieses Blog

Diese Blog habe ich im April 2006 aus ein wenig Langeweile und auf der Suche nach etwas neuem auf die Beine gestellt mit dem Ziel es als eine Art privates Quellcodearchiv zu verwenden. Der Schwerpunkt dieses Blogs liegt dabei auf .NET-Technologie von Microsoft wobei ich mich nicht auf diese beschränke. Vorallem die Sprachen und Technologien die ich beruflich und privat einsetze - wie zum Beispiel Active Server Pages ASP, MSSQL (T-SQL) - möchte in in diesem Blog ebenfalls behandeln.
Hin und wieder kommt auch mal ein privater Post hinzu.

Über mich

Zu mir gibt es eigendlich nicht viel zu sagen. Ich wurde im August 1984 in Leipzig geboren und lebe seither in einem kleinen Dorf etwa 25km von Leipzig entfernt. Im Dezember 1996 bekamm ich meinen ersten eigenen Computer den ich mir durch viel Hausarbeit schwer erarbeiten musste. ^^ Internet war damals noch nicht und so musste ich mich mit einigen wenigen Zeitschriften und den WSH- und VBS-Scripten begügen. So begann ich meine ersten Begegnungen mit der Programmierei eher mit einigen spielereien an HTML, VBS und QBasic.Irgendwann viel mir dann in der Bücherrei ein Buch über Visual Basic in die Hand. Nachdem ich dieses Buch innerhalb von 2 Wochen begierig verschlugen hatte war wieder einmal Hausarbeit fällig :D denn das Visual Studio 6 musste her. Als Schüler-Version war diese auch relativ erschwinglich. Somit begann ich meine ersten Progrämmchen zu schreiben. Wärend die anderen in meiner Klasse noch überlegten was Sie werden wollten stand es für mich schon relativ zeitig Fest: Programmierer. Also beworb ich mich als Fachinformatiker für Anwendungsentwicklung und fand eine Ausbildung bei der Stadt Leipzig. Nachdem ich diese erfolgreich abschließen konnte musste ich eine weile Warten bis ich dann endlich eine Firma fand die mich einstellen wollte. Doch diese Zeit hab ich intensiv genutzt. .Net war grade frisch rausgekommen und wollte erobert werden. Zwischenzeitlich verdiente ich mich hin und wieder durch kleiner Projekte ein paar Euro dazu. Das größte war ein Verschlüsselungssystem für PDF-Dokumente für eine Schweitzer Bank. Damals gab es noch eine sehr aktive Community im programmierer-borad.de und Zusammen mit ein paar anderen Mitgliedern gründete ich damals das Projekt "Programmers-United" und leitetet dieses Projekt über ein paar Jahre lang bis es Aufgrund von Teilnahmemangel (begündet durch Abitur, Bund, etc. der aktivste Mitglieder) versiegte. Eine neue Aufgabe in der Community musste her. Ich stieß auf it-acamdey und bewarb mich als Mitglied der Artikeladministration. Mitlerweile bin ich Nun dort zum Bereichsleiter aufgestiegen.

Erfahungungen

VB.Net, ASP.Net (seit Version 1.0), Visual Basic 6, ASP, VBS, JavaScript, CSS, HTML, XML, SQL (T-SQL) und Grundlagen in: Java, C, C++, PHP, C#
MSSQL-Server (2000 und 2005), Firebird, Access, SQLite, MySQL
Windows 95 bis Vista, Windows 2000 Server bis 2003 und Grundlagen in: Linux (seit Suse Linux 7.0), Apple Mac OS X
Visual Studio .Net 2003 bis 2005, #Develop, CVS, Subversion
Microsoft Office, OpenOffice, Lotus Notes
...

Ich denke das sollte es erstmal übermich gewesen sein. Wer noch Fragen hat kann sich gerne bei mir per eMail melden.

Persistentes kopieren in die Zwischenablage

Floyd — Tue, 07 Nov 2006 11:08:54 GMT

Heute bin ich wiedermal in einem Forum auf die Frage gestoßen wie den Inhalt einer Variable in die Zwischenablage kopieren, jedoch soll der Inhalt der Zwischenablage auch nach Beendigung des Programms erhalten bleiben und somit anderen Programmen zur Verfügung stehen.

Die Lösung ist dabei Recht einfach. Die Funktion SetDataObject des Clipboard kopiert bekanntlicherweise den Inhalt einer Variable in die Zwischenablage. Einen zweite Parameter kann man jedoch optional noch angeben. Setzt man diesen auf "true" so sorgt er dafür, dass der Inhalt nicht nach Beendigung des Programms wieder gelöscht wird. Dies wird dann als "persistenz des Clipboard-Inhaltes" bezeichnet.

[code]

Dim strDaten As String = "TestString"

Clipboard.SetDataObject(strDaten, True)

[/code]

Floyd

DasBlog Update (1.9.6264.0)

Floyd — Fri, 06 Oct 2006 18:47:44 GMT

Hab soeben auf DasBlog 1.9.6264.0 upgedatet. Hab die Grundkonfiguration erstmal wieder hergestellt. Morgen schau ich mir dann mal die Details an.

Gruß Floyd

Unterstützte Datenbanksysteme - Die Zukunft

k00ni — Fri, 06 Oct 2006 16:25:47 GMT

Für die Zukunft möchte ich persönlich folgende Datenbanksysteme integriert haben:

dienstgesteuerte DBSe:

- MySQL
- MS SQL Server
- PostgreSQL
- Firebird
- Interbase
- Ingres

Datei-basierende DBSe:

- SQLite
- MSAccess
- Firebird

k00ni

ps.: Welche Version und welche nicht, ist erstmal uninteressant. Aber ich lege das Augenmerk nicht nur auf "New-Stuff", sondern auch auf "ältere" Systeme.

Unterstützte Datenbanksysteme

k00ni — Fri, 06 Oct 2006 16:20:12 GMT

Ich habe mir lange Gedanken darüber gemacht. Und ich denke, wir sollten am Anfang 2-gleisig fahren. Einseits sollten wir die Open-Source-Datenbanksysteme unterstützten. Andererseits auch die komerziellen, speziell aber die, die auch von den "kleinen Leuten" genutzt werden.

Deshalb würde ich MySQL und MS Access angehen. MySQL deshalb, weil ich damit schon seit fast 3 - 4 Jahren mehr oder weniger gearbeitet habe, meist in Verbindung mit PHP. Ich kenne mich dort so aus, das ich schnell und effektiv administrative Aufgaben lösen kann. MS Access wegen der starken Verwendung in privaten Haushalten und in sehr kleinen Firmen.

Später würde ich dann auf MS SQL Server und SQLite gehen, je nachdem, was der Floyd dazu sagt.

Dieser Post ist nur ein Vorschlag und noch nicht endgültig, es darf also diskutiert werden.

Noch eine Anmerkung: Wir sollten versuchen jetzt am Anfang viele "verschiedene" Datenbanksysteme zu integrieren. Liegt daran, dass wir dann später Muster haben, wo wir bei gleichartigen System ansätzen können.
Mit dieser Formulierung meine ich Datenbanksysteme, die einerseits per Dienst betrieben werden (MySQL, PostgreSQL, MSSQL Server). Oder als reines "Ein-Datei"-System, wie beispielsweise SQLite.

k00ni