Скачать: CL | DM;

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

← →
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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c