| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Можно ли посмотреть на код приложения, позв. сохранять картинку в

Layner ©   (2004-02-10 08:13:00) 

БД Access, делаю без примера, не выходит, смотрел на http://delphibase.endimus.com/?action=viewtopic&topic=baseaccessтоже нет ничего по вопросу.. Заранее спасибо.

---

aibek   (2004-02-12 11:50:00) [1]

понятие и общее характеристика Delphi 7.0

---

Romkin   (2004-02-10 10:31:00) [2]

http://www.delphimaster.ru/cgi-bin/forum.pl?id=1076070855&n=1

---

Семен Сорокин   (2004-02-10 10:19:00) [3]

не мое, не проверял :)
//Запись файла в базу
..
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;

---

Наверх