Mega Code Archive

 

Categories / Delphi / ADO Database

 

[] Herhangi bir dosyayı blobstream ile database e kaydetmek ve geri çağırmak

{ Alkışlar için varolun, sağolun... :-) Diğer sorularınız için esquire01@hotmail.com Bir blob alana bir dosyayı aynen kaydetmek ve sonra da herhangi bir zamanda geri çağırmak için kullanabilirsiniz bu kodları. Askerden geleli 4 ay oldu. O gibi yerlerde tüm evraklar word excel de hazırlanır ve tutulur. Olur da sizin de yolunuz öyle bir yere düşerse ve bu tip dosyaları saklamak ve sonra istenen kriterlere uygun olarak çağırma ihtiyacınız olursa bu kodları kullanabilirsiniz. } // BLOB a Dosya Kaydetmek: procedure TForm1.Button1Click(Sender: TObject); var blob: TBlobStream; begin blob := SeninDataset.CreateBlobStream(SeninDataset.FieldByName('SENIN_BLOB'), bmWrite); try blob.Seek(0, soFromBeginning); fs := TFileStream.Create('c:\SeninDosya.doc', fmOpenRead or fmShareDenyWrite); try blob.CopyFrom(fs, fs.Size) finally fs.Free end; finally blob.Free end; end; // BLOB dan kayıtlı dosyayı Okumak: procedure TForm1.Button1Click(Sender: TObject); var blob: TBlobStream; begin blob := SeninDataset.CreateBlobStream(SeninDataset.FieldByName('SENIN_BLOB'), bmRead); try blob.Seek(0, soFromBeginning); with TFileStream.Create('c:\SeninDosya.doc', fmCreate) do try CopyFrom(blob, blob.Size) finally Free end; finally blob.Free end; end; { Kullanırken (BDE/ADO/DAO/ODBC/vs) database engine larından birini kullanabilirsiniz Gömmek için de Word, Excel Dosyası, Wav,Jpg dosyaları vs. olabilir }