Code: Alles auswählen
EnableExplicit
Procedure prepareBLOB(DBNum.i,FName.s,BlobNr.i)
;Liest die Datei FName ein und bereitet den BLOB
;mit der Nummer BlobNr vor
Protected FileHandle.i,size.i,*mem
If ReadFile(FileHandle, FName)
size = Lof(FileHandle)
If size
*mem = AllocateMemory(size)
If *mem
ReadData(FileHandle, *mem, size)
SetDatabaseBlob(DBNum, BLOBNr, *mem, size)
EndIf
EndIf
CloseFile(FileHandle)
EndIf
EndProcedure