vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB & Datenbanken
Bild daten auslesen. HILFE! 
Autor: Wicht
Datum: 09.06.05 13:55

Hallo,

ich habe ein Bild in einer Access-Datenbank gespeichert (OLE-Object).
Ich möchte nun dieses Bild in VB auslesen und in einer Picture-Box darstellen, aber ohne das Bild vorher in eine extra Datei zu speichern!

Danke schon mal für eure Hilfe!
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Bild daten auslesen. HILFE! 
Autor: Prian0815
Datum: 09.06.05 14:56

Probier mal das Coding, Ich habs hier aus nem Workshop, muß aber dazusagen dass es bei mir nicht recht gefunzt hat.
Option Explicit

' Bild in Variable (String) lesen
Public Function ReadPicture(sFilename As String) _
As String

Dim F As Integer
Dim sInhalt As String

F = FreeFile
Open sFilename For Binary As #F
sInhalt = Space$(LOF(F))
Get #F, , sInhalt
Close #F

ReadPicture = sInhalt
End Function

' Bild aus Datenbank laden und anzeigen
Public Sub ShowPicture(Picture As Control, _
ByVal sInhalt As String)

Dim F As Integer

' Bilddatei temporär erstellen
F = FreeFile
Open App.Path & "\Bild.tmp" For Output As #F
Print #F, sInhalt;
Close #F

' Bild anzeigen
Picture.Picture = LoadPicture(App.Path & "\Bild.tmp")

' temporäre Datei löschen
Kill App.Path & "\Bild.tmp"
End Sub

Gruß Armin

P.S.: always look on the bright side of Life!
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Bild daten auslesen. HILFE! 
Autor: Wicht
Datum: 09.06.05 15:09

Danke erstmal für deine Bemühungen.

Nur wird bei diesem Code eine Datei zum Zwischenspeichern verwendet, was ich aber nicht möchte.
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Bild daten auslesen. HILFE! 
Autor: Prian0815
Datum: 09.06.05 15:43

Tja nur wirst du die Information schon irgendwie zwischenspeichern müssen, um Sie anschliessend woanders wieder einzufügen, zumindest kann ich mir nicht vorstellen wie das funzen sollte.

Gruß Armin

P.S.: always look on the bright side of Life!
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

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

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

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