Grosse Dateien in BLOB-Felder speichern

Computer: Software & Programmierung Datenbanken allgemein
#1

Ich muss große Dateien in BLOB-Feldern.
Ich benutze C# und ORACLE.
Im Normalfall arbeite mein Code völlig korrekt. Nur bei sehr großen Dateien bekomme ich eine OutOfMemoryExeption beim ExecuteNonQuery ( 600 MB)

Ich benutze folgenden Code:

lFS = new FileStream (lZipFile,FileMode.Open );
lByteArray = new Byte[lFS.Length];
lFS.Read(lByteArray,0,(int)lFS.Length );
lFS.Close();
lCom.CommandText = „INSERT INTO XDATEI (“;
lCom.CommandText = lCom.CommandText + „VA_ID,“;
lCom.CommandText = lCom.CommandText + „DATEI)“;
lCom.CommandText = lCom.CommandText + " VALUES ( ";
lCom.CommandText = lCom.CommandText + mImp.mVA.mVA_ID + „,“;
lCom.CommandText = lCom.CommandText + „:stuck_out_tongue:Datei“ + „)“;
lCom.Parameters.Add („pDatei“,OracleType.Blob);
lCom.Parameters[„pDatei“].Value = lByteArray;
lCom.ExecuteNonQuery ();

Hat jemand eine Idee wie ich es anders programmiere könnte!

Gibt es eine Möglichkeit mit SQL direkt eine Datei einzuladen?

Danke Horst

#2

Hallo Horst,

Oracle kann BLOBS auch (fast) direkt lesen. Dazu muss man zuerst einen leeren Blob im Datensatz mit emptyBlob() erzeugen.

Danach kann man die Datei mit DBMS_BLOB.loadfromfile… in die DB bringen.

Gruß

Peter

#3

Hallo,

hier ein detailierter Artikel, wie man alle möglichen Dinge in ein Binaryfeld wandeln kann.
Tip am Rande: Abstrakte Klasse (IDB…) wo man alle Aufgaben soweit möglich erledigt und nur konkrete Klassen, wenn die betreffende DB WIRKLICH „anders“ ist.

Chris

http://www.software-developers-home.de/modules.php?o…

außerdem hier noch ein paar Zeilen, um z.B. Bilder zu sichern:

‚‘’
‚‘’ Schreibt ein Image in das Medium
‚‘’
Public Overrides Function WriteImage(ByRef pic As Image, ByRef path As String) As Boolean
Dim con As IDbConnection = BuildConnection()
Dim cmd As IDbCommand = BuildCommand()

Try
con.ConnectionString = _connectionString
con.Open()
cmd.CommandText = String.Format(„INSERT INTO blubtest (idpk, pic, path) values (’{0}’, :stuck_out_tongue:ic, :stuck_out_tongue:ath)“, Guid.NewGuid().ToString())
cmd.Parameters.Add(BuildParameter(TransImageToStream(pic), „pic“))
cmd.Parameters.Add(BuildParameter(path, „path“))
cmd.Connection = con
cmd.ExecuteNonQuery()
Return True
Catch ex As Exception
_lastFm = String.Format(„Message: {0}“ & vbNewLine & „Source: {1}“ & vbNewLine & „Stacktrace: {2}“, ex.Message, ex.Source, ex.StackTrace)
Return False
Finally
con.Close()
End Try
End Function

‚‘’
‚‘’ Liest ein Image aus dem Medium
‚‘’
Public Overrides Function ReadImage(ByRef index As Guid) As Image
Dim con As IDbConnection = BuildConnection()
Dim cmd As IDbCommand = BuildCommand()
Dim bytes() As Byte
Dim reader As IDataReader
Dim sql As String = String.Format(„SELECT pic FROM blubtest WHERE idpk = ‚{0}‘“, index)

Try
con.ConnectionString = _connectionString
cmd.Connection = con
cmd.CommandText = sql
cmd.Connection.Open()
reader = cmd.ExecuteReader()

While reader.Read()
bytes = reader.GetValue(0)
End While
Return TransStreamToImage(bytes)

Catch ex As Exception
_lastFm = String.Format(„Message: {0}“ & vbNewLine & „Source: {1}“ & vbNewLine & „Stacktrace: {2}“, ex.Message, ex.Source, ex.StackTrace)
Finally
con.Close()
End Try

End Function

‚‘’
‚‘’ Gibt eine Liste der Images zurück (Index / Path)
‚‘’
Public Overrides Function ListImages() As IDictionary
Dim con As IDbConnection = BuildConnection()
Dim cmd As IDbCommand = BuildCommand()
Dim reader As IDataReader
Dim picList As IDictionary = New Hashtable
Dim sql As String = „SELECT idpk, path from BlubTest order by idpk“

Try
con.ConnectionString = _connectionString
cmd.Connection = con
cmd.CommandText = sql
cmd.Connection.Open()
reader = cmd.ExecuteReader()

While reader.Read()
picList.Add(reader.GetString(1), reader.GetString(0))
End While

Return picList
Catch ex As Exception
_lastFm = String.Format(„Message: {0}“ & vbNewLine & „Source: {1}“ & vbNewLine & „Stacktrace: {2}“, ex.Message, ex.Source, ex.StackTrace)
Finally
con.Close()
End Try
End Function

‚‘’
‚‘’ Testet die Connection, TRUE = Erfolgreiche Verbindung
‚‘’
Public Overrides Function TestConnection() As Boolean
Dim con As IDbConnection = BuildConnection()

Try
con.ConnectionString = _connectionString
con.Open()
Return True
Catch ex As Exception
_lastFm = String.Format(„Message: {0}“ & vbNewLine & „Source: {1}“ & vbNewLine & „Stacktrace: {2}“, ex.Message, ex.Source, ex.StackTrace)
Return False
Finally
con.Close()
End Try
End Function

‚‘’
‚‘’ Gibt alle Bilder zurück
‚‘’
Public Overrides Function GetAllImages() As IDictionary
Dim con As IDbConnection = BuildConnection()
Dim cmd As IDbCommand = BuildCommand()
Dim reader As IDataReader
Dim picList As IDictionary = New Hashtable
Dim sql As String = „SELECT idpk, pic from BlubTest order by idpk“

Try
con.ConnectionString = _connectionString
cmd.Connection = con
cmd.CommandText = sql
cmd.Connection.Open()
reader = cmd.ExecuteReader()

While reader.Read()
Dim id As String = reader.GetString(0)
Dim bytes() As Byte = reader.GetValue(1)
picList.Add(id, TransStreamToImage(bytes))
End While

Return picList
Catch ex As Exception
_lastFm = String.Format(„Message: {0}“ & vbNewLine & „Source: {1}“ & vbNewLine & „Stacktrace: {2}“, ex.Message, ex.Source, ex.StackTrace)
Finally
con.Close()
End Try
End Function