Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  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!

Bild daten auslesen. HILFE!	1.537	Wicht	09.06.05 13:55
Re: Bild daten auslesen. HILFE!	985	Prian0815	09.06.05 14:56
Re: Bild daten auslesen. HILFE!	916	Wicht	09.06.05 15:09
Re: Bild daten auslesen. HILFE!	1.082	Prian0815	09.06.05 15:43

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übersicht

Suchen