Bild und Text in eine einzige Datei speichern

    • VB6

    Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von bigbasti.

      Bild und Text in eine einzige Datei speichern

      Hallo zusammen !
      Hier möchte ich ein Beispiel zeigen wie man Bild und Text in eine einzige Datei speichert:

      Visual Basic-Quellcode

      1. ' Bild und Text in einer einzigen Datei speichern
      4. Option Explicit
      6. Private Binaerdatei As String
      7. Private TempDatei As String
      9. Private Sub Command1_Click()
      10. ' Speichern
      11. Dim BildGroesse As Long
      12. Dim FF As Long
      13. FF = FreeFile
      15. ' Bild speichern
      16. If Picture1.Picture <> 0 Then
      17. SavePicture Picture1.Picture, Binaerdatei
      18. Else
      19. MsgBox "Kein Bild geladen, Datei wird nicht gespeichert"
      20. Exit Sub
      21. End If
      23. ' Datei erneut öffnen
      24. Open Binaerdatei For Binary As #FF
      25. ' Grösse auslesen und Text anhängen
      26. BildGroesse = LOF(FF)
      27. Seek #FF, BildGroesse + 1 'Zeiger setzen !
      28. Put #FF, , Text1.Text ' Text anhängen
      29. ' Länge der BildDatei schreiben
      30. Seek #FF, LOF(FF)
      31. Put #FF, LOF(FF) + 1, BildGroesse
      32. Close #FF
      34. End Sub
      36. Private Sub Command2_Click()
      37. ' Löschen (Form)
      38. Set Picture1.Picture = Nothing
      39. Text1.Text = ""
      40. End Sub
      43. Private Sub Command3_Click()
      44. ' Öffnen
      45. Dim FF As Long
      46. Dim tempFF As Long
      47. Dim BildGroesse As Long
      48. Dim BildDaten() As Byte
      50. FF = FreeFile
      51. Open Binaerdatei For Binary As #FF
      52. ' Dateigrösse des Bildes auslesen
      53. Seek #FF, LOF(FF) - 3
      54. Get #FF, , BildGroesse
      55. ' Array reservieren
      56. ReDim BildDaten(0 To BildGroesse - 1) As Byte
      57. ' Bilddaten binär einlesen
      58. Seek #FF, 1
      59. Get #FF, , BildDaten()
      60. ' Bilddaten temporär speichern
      61. tempFF = FreeFile
      62. Open TempDatei For Binary As #tempFF
      63. Put #tempFF, , BildDaten()
      64. Close #tempFF
      65. ' Position von Text
      66. Seek #FF, BildGroesse + 1
      67. Text1.Text = Input(LOF(FF) - BildGroesse - 4, FF)
      68. Close #FF
      70. ' Bild laden und temporäre Datei löschen
      71. Picture1 = LoadPicture(TempDatei)
      72. Kill TempDatei
      74. End Sub
      76. Private Sub Command4_Click()
      77. ' Bild zuweisen
      78. Picture1.Picture = LoadPicture(App.Path & "\basic.bmp")
      79. End Sub
      81. Private Sub Form_Load()
      82. Binaerdatei = App.Path & "\test.dat"
      83. TempDatei = App.Path & "\temp.bmp"
      84. End Sub


      Ihr könnt auch zum Beispiel ein Verschlüsselten Password speichern, also gibs jede Menge Möglichkeiten um den Beispiel anzuwenden.

      Mfg Alex

      Edit by Lupus: Sourcecode -> verschoben
      Edit2 by Agent: Titel geändert

      Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Agent“ ()

      Hi,

      @Alex2000
      Es ist schön, dass Du Dich am Forum aktiv beteiligst. Sicher ist der Quellcode auch sehr nützlich.
      Du solltest jedoch die Quellen, wo Du den Quellcode her hast, mit angeben, und ihn nicht als "Deinen Code" verkaufen.


      Hier die Quelle: ST-software.at
      Download: komplettes Projekt


      bye ...

      LaMa5.
      Die Wissenschaft wird nie ein besseres Kommunikationssystem in den Büros erfinden können als die Kaffeepause.
      (Autor: Earl Wilson, amerik. Schriftsteller)
      https://www.serviceteam-md.de

      Lama ich verkaufe hier keine Code, sondern ich gebe für euch frei, die suche hättest du dir eingespart.
      Wenn ich was rein schreibe, dann ist das keine Verarschung.(egal von wem die Code)
      Ich hatte angefangen so ein änliche Code zu schreiben, hab etwas vorstellungen gehabt wie das aussehen soll, da bin im Internet rein aus Zufall auf eine Beispiel Code gestosen.
      Ja ich weis es gibs jede Menge von Quells Coden, Steuerelementen zum runter laden, aber ich versuche ab und zu was selber zu schreiben. :) 8-)

      Mfg Alex ;) 8-) 8-)

      Hallo zusammen,

      also in Zeiten von Objektorientierten Sprachen, wie VB.NET es eine ist würde ich für Solche Aktionen die Serialisierung von Objekten empfehlen.
      Es ist VIEL einfacher zu implementieren, zu warten, zu erweitern und wird ebenfalls in einer Datei gesichert.

      Wie erwähnt ist der Code viel weniger und die Fehlerzahl dementsprechend geringer!

      Weiteres: Wie immer im MSDN

      MfG, Basti

      ja, aber hier geht es ja um VB 6...
      und außerdem sind einem die XML serialisierten Dateien manchmal zu groß, natürlich sind dann die durch den Binary Serializer erzeugten Dateien kleiner, doch bei der Auf und -Abwärtskompatibilität gibt es dort probleme, diese kann man über ein selbst programmiertes System sehr einfach ausmerzen(bei einem Serializer würde ich in einer Assembly Serialisieren lassen und für jede neue Datei Version eine neue Assembly mitliefern...)
      Ich wollte auch mal ne total überflüssige Signatur:
      ---Leer---