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

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

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