Текущий архив: 2002.09.02;
Скачать: 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 вся ветка
Текущий архив: 2002.09.02;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.021 c
