Tüm Platformlar için Hızlı Uygulama Geliştirme --->    Kitabımız...      Delphi

Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
herhangi bir dosya kayıt edip okutmak
#1
Arkadaşlar,

Herhangi bir dosyayı (pdf,jpg,doc,xls) kayıt edip tekrar nasıl açabilirim ? 

bir componenet olmadan.

Teşekkürler
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Cevapla
#2
vertitabanına mı
Cevapla
#3
dosyanın içerisine başka bir dosya gömüp lazım olduğunda çıkarmakmı amaç.

“Do. Or do not. There is no try.”
Cevapla
#4
Soruya soruyla karşılık verildiğine göre; suçlu soruyu sorandır Smile
Tez zamanda Sn.Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol'ın soruya bir açıklama getireceğini ümit ediyorum  Wink
There's no place like 127.0.0.1
WWW
Cevapla
#5
Smile SQL 2012 veritabanına sözleşme veya personel dosyalarını kaydetmek istiyorum. delphi7 de

Teşekkür ederim.
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Cevapla
#6
Aşağıdaki kod ile kayıt yapabiliyorm ama nasıl açabilirim bilemiyorum ? Sad

procedure TForm1.btn1Click(Sender: TObject);
var
   fs: TFileStream;
   BlobField: TBlobField;
begin
  fs := TFileStream.Create(dlgOpenDOSYA_AC.FileName, fmOpenRead);
   BlobField := QRY_1.FieldByName('DOSYA') AS TBlobField;
try
  QRY_1.Insert;
  BlobField.LoadFromStream(fs);
  QRY_1.Post;
finally
  fs.Free;
end;

end;

işine yarana arkadaş olabilir aşağıdaki gibi dosya kaydedip açabiliyorum tüm dosya türlerini.

procedure TForm1.btn1Click(Sender: TObject);
var
   fs: TFileStream;
   BlobField: TBlobField;
begin
  fs := TFileStream.Create(dlgOpenDOSYA_AC.FileName, fmOpenRead);
   BlobField := QRY_1.FieldByName('DOSYA') AS TBlobField;
try
  QRY_1.Insert;
  BlobField.LoadFromStream(fs);
  QRY_1ACIKLAMA.AsString:=ExtractFileName(dlgOpenDOSYA_AC.FileName);
  QRY_1.Post;
finally
  fs.Free;
end;

end;

procedure TForm1.btn2Click(Sender: TObject);
begin
  dlgOpenDOSYA_AC.Execute;
  if dlgOpenDOSYA_AC.FileName <> '' then begin
     Caption:= dlgOpenDOSYA_AC.FileName;
  end;
end;

procedure TForm1.btn3Click(Sender: TObject);
var
Dosya:TMemoryStream;
begin
Dosya:= Tmemorystream.Create;
TBlobField(QRY_1.FieldByName('DOSYA')).SaveToStream(Dosya);
Dosya.Position:=0;
Dosya.SaveToFile(QRY_1ACIKLAMA.Text);
//ShellExecute(Handle, 'open','dosya.doc',nil,nil,SW_SHOWNORMAL);
  ShellExecute(handle, 'OPEN', pchar(QRY_1ACIKLAMA.AsString), nil, nil, sw_Show);
Dosya.Free;
end;
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Cevapla
#7
Bence
Databaseye dosya gömmek doğru olmaz, Önerim uzantısını silin, adını encrypte edin, bir dizine kopyalayın.
Bu dizini, dosyanın asıl adını, formatını bir tabloda tutun.
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Kuvvete dayanamayan adalet aciz, 
Adalete dayanamayan kuvvet zalimdir.
WWW
Cevapla
#8
atladığım bir konu kaldı ya bunu nasıl farklı kaydet yapabilirim ?



çalışmıyor Sad

procedure TForm1.btn4Click(Sender: TObject);

begin  if dlgSaveDOSYA_KAYDET.Execute then
 begin
  with dlgSaveDOSYA_KAYDET do
  begin
    FileName:=QRY_1DOSYA.Value;
    if Execute then
    QRY_1DOSYA.SaveToFile(FileName);
  end;
end;
end;

Arkadaşlar aşağıdaki kod ile kayıt ediyorum fakat savedialogda dosya adı çıkmadığı için uzantıda kaydedemiyorum ?

savedialog filenamede adı çıkmalı nasıl yapabilirim ?

teşekkürler

Kod:
procedure TForm1.btn5Click(Sender: TObject);
var
 BlobStream: TStream;
 FileStream: TStream;
begin
 if QRY_1.Active and dlgSaveDOSYA_KAYDET.Execute then
    begin
       BlobStream := QRY_1.CreateBlobStream(QRY_1.FieldByName('DOSYA'), bmRead);
       try
          FileStream := TFileStream.Create(dlgSaveDOSYA_KAYDET.FileName, fmCreate);
           dlgSaveDOSYA_KAYDET.FileName:=QRY_1DOSYA_ADI.Text;
          try
             FileStream.CopyFrom(BlobStream, BlobStream.Size);
          finally
             FileStream.Free;
          end;
       finally
          BlobStream.Free;
       end;
    end;

end;
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Dosya Taşıma dkadir 2 77 13-02-2018, Saat: 10:07
Son Yorum: Cyber
  Dosya İndirme yhackup 3 112 06-02-2018, Saat: 10:04
Son Yorum: yhackup
  Hal Kayıt Sistemi Web Servis eyln 37 1.178 29-12-2017, Saat: 13:54
Son Yorum: eyln
  Kayıt silme Dostk 5 283 21-12-2017, Saat: 15:03
Son Yorum: witalihakko
Question program içerisine veritabansız kayıt BY-HAYALET 6 178 09-12-2017, Saat: 12:23
Son Yorum: Abdullah ILGAZ



Konuyu Okuyanlar: 1 Ziyaretçi