BLOB поля

← →
LVG (2002-04-30 07:36) [0]

Пожалуйста подскажите как в BLOB поле сохранить wave и\или mp3
файл. Заранее благодарен.

← →
AFROLOV © (2002-04-30 10:20) [1]

function AddPatern(var ADOQuery:TADOQuery; FName:string):Int64;
var
tmp,tmp1:Int64;
SQLStr:String;
BlobStream : TStream;
FileStream : TFileStream;
begin
.......
ADOQuery.SQL.Clear();
ADOQuery.SQL.Add("Select Id,File from Paterns where Id="+IntToStr(tmp1)+";");
ADOQuery.Open();
FileStream:=TFileStream.Create(FName,fmOpenRead);
ADOQuery.Edit;
BlobStream:=ADOQuery.CreateBlobStream(ADOQuery.FieldByName("File"),bmWrite);
BlobStream.CopyFrom(FileStream,0);
BlobStream.Free;
ADOQuery.Post();
FileStream.Free;
ADOQuery.Close();
......

← →
Desdechado © (2002-04-30 10:22) [2]

можно и проще
Query1.Sql.Text := "INSERT INTO testblob " + " ( " + " fBlob" + " )" + " VALUES" + " (" + " :ParamBlobField" + ")"; Query1.ParamByName("ParamBlobField").DataType := ftBlob; Query1.ParamByName("ParamBlobField").ParamType := ptInput; Query1.ParamByName("ParamBlobField").LoadFromFile("MyFile",ftBlob); Query1.ExecSql;

← →
Dj_Action (2002-05-05 04:03) [3]

Молодец, я бы лучше не написал, только я думаю что если у него файло будет большой(>1 мега) то Exception выпрегнет, проверено.
Это связано со стеком в который помещается это поток. Решение есть первое самое нормальное.

Пожалуй, самое "правильное" всё же так:
TBLOBField(ADOQuery1.FieldByName("MyField")).LoadFromFile("c:\my.mp3");

BLOB поля Найти похожие ветки