AYUDA CON ALGUNAS FUNCIONES

Angela
21 de Octubre del 2003
Hola
Se poco de vb y tengo unas formas con unas lineas que no entiendo muy bien.Me puede decir porfavor que hace esta linea
Open "pictemp" For Binary Access Write As DataFile
y esta otra linea
Chunk() = campoBinary.GetChunk(lngCompensación, conChunkSize)
y esto otro
If Len(Dir$("pictemp")) Then
Kill "pictemp"
End If
Y ESTO ULTIMO
Open "pictemp" For Binary Access Read As DataFile
Fl = LOF(DataFile)
If Fl = 0 Then Close DataFile: Exit Sub
Chunks = Fl conChunkSize
Fragment = Fl Mod conChunkSize
ReDim Chunk(Fragment)

Get DataFile, , Chunk()
campoBinary.AppendChunk Chunk()
ReDim Chunk(conChunkSize)
For i = 1 To Chunks
Get DataFile, , Chunk()
campoBinary.AppendChunk Chunk()
Next i
Close DataFile

' On Local Error Resume Next
If Len(Dir$("pictemp")) Then
Kill "pictemp"
End If
err = 0
GRACIAS

FRANGEL
21 de Octubre del 2003
Bueno en general esta rutina que muestras sirve para
leer un campo binario el cual es una imagen y la esta
recuperando para mostrarla y por ultimo la elimina

abre la BD
lee el campo binario
checa el path
etc...