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
  Lookupcombobox ile yeni kayıt ekleme canbir 2 116 21-06-2018, Saat: 10:01
Son Yorum: adelphiforumz
  lnk dosya işleme silme haydarxxx 17 536 03-06-2018, Saat: 09:15
Son Yorum: haydarxxx
  Dosya veya klasorlere en son erisim zamanını ogrenme klavye 11 405 14-03-2018, Saat: 15:11
Son Yorum: klavye
  save dialog kayıt yeri sorunu erdogan 3 211 09-03-2018, Saat: 18:05
Son Yorum: narkotik
  Dosya Taşıma dkadir 2 225 13-02-2018, Saat: 10:07
Son Yorum: Cyber



Konuyu Okuyanlar: 1 Ziyaretçi