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

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

← →
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 вся ветка

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



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