Форум: "Базы";
Текущий архив: 2004.03.14;
Скачать: [xml.tar.bz2];
Вниз
Можно ли посмотреть на код приложения, позв. сохранять картинку в Найти похожие ветки
← →
Layner (2004-02-10 08:13) [0]БД Access, делаю без примера, не выходит, смотрел на http://delphibase.endimus.com/?action=viewtopic&topic=baseaccess тоже нет ничего по вопросу.. Заранее спасибо.
← →
Семен Сорокин (2004-02-10 10:19) [1]не мое, не проверял :)
//Запись файла в базу
..
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;
← →
Romkin (2004-02-10 10:31) [2]http://delphimaster.net/view/3-1076070855/
← →
aibek (2004-02-12 11:50) [3]понятие и общее характеристика Delphi 7.0
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2004.03.14;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.019 c
