| |
VB.NET - Ein- und UmsteigerKonvertierung ByteArray - String - ByteArray | | | Autor: erich1961 | Datum: 03.09.10 21:31 |
| Hallo,
ich habe Grafikobjekte, die ich in einer DB abspeichern möchte und später wiederherstellen möchte.
Wenn ich das mit einem Filestream mache funktioniert es, ist aber unhandlich, da ich dann die Dateien für Zeichnungen und der dementsprechenden Grafikobjekte verwalten muß.
Mit
Dim memStream As New IO.MemoryStream()
Dim myBinarySerializer As New Formatters.Binary.BinaryFormatter()
myBinarySerializer.Serialize(memStream, Zeichnung.DrawObjects)
Dim sendbytes As Byte() = memStream.ToArray
Dim tempStr As String = vbnullstring
For Each tmpbyte As Byte In sendbytes
tempStr &= " " & tmpbyte.ToString
Next
memStream.Close() erzeuge ich meinen String tempstr, den ich in einem Memofeld in einer Access-Datenbank abspeichere.
In Sendbytes steht dann sowas wie
(0) 0
(1) 1
(2) 0
(3) 0
(4) 0
(5) 255 etc.
Diesen String "0 1 0 0 0 255 ...", den ich in der DB abgespeichert habe, bekomme ich auch wieder hergestellt.
Dann fangen meine Schwierigkeiten an.
Ein System.Text.Encoding.ASCII.GetBytes stellt mir das AusgangsByteArray nicht wieder her. Kann auch nicht gehen, wegen der Leerzeichen.
Das Ersetzen der Leerzeichen mit vbnullstring bringt mich auch nicht weiter.
Ich kann zwar ein Stringarray aufbauen, finde von dort aus auch keinen Weg zum ByteArray.
Das Bytearray brauch ich für den Memorystream, der wiederum meine Zeichenobjekte deserialisieren soll. Also umgekehrt wie oben.
Irgendwie hab ich mich da verrannt - wer hilft mir? | |
Re: Konvertierung ByteArray - String - ByteArray | | | Autor: erich1961 | Datum: 04.09.10 09:36 |
| Hallo Dave,
Problem dank deiner Hilfe schnell und effizient gelöst.
Dim memStream As New IO.MemoryStream()
Dim myBinarySerializer As New Formatters.Binary.BinaryFormatter()
myBinarySerializer.Serialize(memStream, Zeichnung.DrawObjects)
Dim tempStr As String = vbnullstring
tempStr = Convert.ToBase64String(memStream.ToArray())
memStream.Close() zum Erstellen des Strings.
Dim bData() As Byte = Convert.FromBase64String(tempStr)
Dim memStream As New IO.MemoryStream(bData)
Dim myBinarySerializer As New Formatters.Binary.BinaryFormatter()
memStream.Position = 0
my_DrawObjects = myBinarySerializer.Deserialize(memStream) zum Wiederherstellen der Objekte. | |
Re: Konvertierung ByteArray - String - ByteArray | | | Autor: erich1961 | Datum: 04.09.10 17:29 |
| Um Etiketten für Zebradrucker zu verwalten.
Und ja, ich kenne den BarTender. | |
Re: Konvertierung ByteArray - String - ByteArray | | | Autor: erich1961 | Datum: 04.09.10 20:06 |
| Access 2002,
appendchunk, oleobjekt als Felddatentyp, blob sind wohl die Begriffe, um die es geht, aber ehrlicherweise: ich hab es noch nie benutzt - wie Du richtig bemerkst, hantiere ich drumherum.
Hättest Du denn mal ein bisschen Sourcecode, um mir auf die Sprünge zu helfen? | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
Neu! sevCommand 4.0
Professionelle Schaltflächen im modernen Design!
Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Weitere InfosTipp des Monats TOP Entwickler-Paket
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR...
Jetzt nur 599,00 EURWeitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|