Сохранение и восстановление документов в БД

← →
AFROLOV © (2002-08-12 12:35) [0]

Записать и считать файл удается, но восстановить его получается только под тем именем под которым он был записан. Например в базу помещаем файл c:\1.doc. Если его восстановить как d:\1.doc то все работает (фаил можно открывать с помощью Word)
а если его восстановить под именем c:\2.Doc то при попытке открыть его с помощью Word возникает ошибка. Как можно избежать подобных проблем?

Заранее спасибо.

//Запись файла в базу
.. ADOQuery.SQL.Clear(); ADOQuery.SQL.Add("Select PaternId,File from TPaterns where PaternId="+IntToStr(tmp1)+";"); ADOQuery.Open(); tmp:=ADOQuery.FieldValues["PaternId"]; 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(); end;//Восстановление файла из базы
function ReadPaternFile(var ADOQuery:TADOQuery;PaternId:Int64;Path:String):string; var BlobStream : TStream; FileStream : TFileStream; tmp1:Cardinal; resStr,tmpStr:String; begin ADOQuery.SQL.Clear(); ADOQuery.SQL.Add("Select * from TPaterns where PaternId="+IntToStr(PaternId)+";"); ADOQuery.Open(); BlobStream:=ADOQuery.CreateBlobStream(ADOQuery.FieldByName ("File"),bmRead); tmpStr:=ADOQuery.FieldValues["FileName"]; resStr:=ExcludeTrailingPathDelimiter(Path)+"\"+ADOQuery.FieldValues["FileName"]; FileStream:=TFileStream.Create(resStr,fmCreate); FileStream.CopyFrom(BlobStream,0); FileStream.Free; BlobStream.Free; end;

← →
AFROLOV © (2002-08-12 14:36) [1]

Неужели никто не знает?

Сохранение и восстановление документов в БД Найти похожие ветки