Het in de database plaatsen van de foto lukt nu goed. Alleen het eruit lezen en weer in een bestand zetten lukt me nu niet.
Ziet iemand de fout zitten. Ik zit er al de hele avond op te kijken en ik zie het niet.
----------------------------------------------------
CODE
----------------------------------------------------
Public Function GetBlob(ipField As ADODB.Field, ipTargetFileName As String) As Boolean
Dim lvlOffset As Long
Dim lvlFileSize As Long
Dim lvByteChunk As Variant
On Error GoTo ERRORHANDLER
Open ipTargetFileName For Binary As #1
lvlFileSize = ipField.ActualSize
lvlOffset = 0
Do While lvlOffset < lvlFileSize
lvByteChunk = ipField.GetChunk(PakketGrootte)
Put #1, , lvByteChunk
lvlOffset = lvlOffset + PakketGrootte
Loop
Close #1
GetBlob = True
Exit Function
ERRORHANDLER:
GetBlob = False
End Function
---------------------------------------------------------
Het gaat fout bij het wegschrijven naar het bestand:
Bij de regel:
Put #1, ,LvByteChunk
Moet ik hier wel Put gebruiken??
Misschien het bestand anders openen ??
Wie kent het probleem.
Ik heb het ook al geprobeerd met een tekstfile. De tekst staat dan wel in het copy maar met een hoop troep er tussendoor.
Bedankt (Mag dat wel ipv groeten??)
Ziet iemand de fout zitten. Ik zit er al de hele avond op te kijken en ik zie het niet.
----------------------------------------------------
CODE
----------------------------------------------------
Public Function GetBlob(ipField As ADODB.Field, ipTargetFileName As String) As Boolean
Dim lvlOffset As Long
Dim lvlFileSize As Long
Dim lvByteChunk As Variant
On Error GoTo ERRORHANDLER
Open ipTargetFileName For Binary As #1
lvlFileSize = ipField.ActualSize
lvlOffset = 0
Do While lvlOffset < lvlFileSize
lvByteChunk = ipField.GetChunk(PakketGrootte)
Put #1, , lvByteChunk
lvlOffset = lvlOffset + PakketGrootte
Loop
Close #1
GetBlob = True
Exit Function
ERRORHANDLER:
GetBlob = False
End Function
---------------------------------------------------------
Het gaat fout bij het wegschrijven naar het bestand:
Bij de regel:
Put #1, ,LvByteChunk
Moet ik hier wel Put gebruiken??
Misschien het bestand anders openen ??
Wie kent het probleem.
Ik heb het ook al geprobeerd met een tekstfile. De tekst staat dan wel in het copy maar met een hoop troep er tussendoor.
Bedankt (Mag dat wel ipv groeten??)