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

Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 4/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
save dialog kayıt yeri sorunu
#1
var
  BlobStream: TStream;
  FileStream: TStream; 
begin
  
      dlgSaveDOSYA_KAYIT.FileName:= editDOSYA_ADI.Text;
     dlgSaveDOSYA_KAYIT.InitialDir:= 'C:\';
 // if QRYDOSYALAR.Active and dlgSaveDOSYA_KAYDET.Execute then
     begin
        BlobStream := QRYDOSYALAR.CreateBlobStream(QRYDOSYALAR.FieldByName('DOSYA'), bmRead);
        try
           FileStream := TFileStream.Create(dlgSaveDOSYA_KAYIT.FileName, fmCreate);
           try
              FileStream.CopyFrom(BlobStream, BlobStream.Size);
           finally
              FileStream.Free;
           end;
        finally
           BlobStream.Free;
        end;
     end;
    end;


Arkadaşlar yukarıdaki kod ile kayıt yapıyorum ama program nerden çalışıyorsa o dizene kayıt yapıyor "C:\TEMP\" klasörüne nasıl kayıt yapabilirim ?

teşekkürler
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Cevapla
#2
(09-03-2018, Saat: 15:51)erdogan Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
var
  BlobStream: TStream;
  FileStream: TStream; 
begin
  
      dlgSaveDOSYA_KAYIT.FileName:= editDOSYA_ADI.Text;
     dlgSaveDOSYA_KAYIT.InitialDir:= 'C:\';
 // if QRYDOSYALAR.Active and dlgSaveDOSYA_KAYDET.Execute then
     begin
        BlobStream := QRYDOSYALAR.CreateBlobStream(QRYDOSYALAR.FieldByName('DOSYA'), bmRead);
        try
           FileStream := TFileStream.Create(dlgSaveDOSYA_KAYIT.FileName, fmCreate);
           try
              FileStream.CopyFrom(BlobStream, BlobStream.Size);
           finally
              FileStream.Free;
           end;
        finally
           BlobStream.Free;
        end;
     end;
    end;


Arkadaşlar yukarıdaki kod ile kayıt yapıyorum ama program nerden çalışıyorsa o dizene kayıt yapıyor "C:\TEMP\" klasörüne nasıl kayıt yapabilirim ?

teşekkürler
Kaydedeceğin yer sabitse savedialog kullanmana gerek yok stream filename yazdigin parametreye `C:\Temp\dosya.txt' yazarsan olur
Yalnızım ama bir kente yürüyen ordu gibiyim, edebiyattan kaçınmalıyım..
Cevapla
#3
nasıl yani ? örneklermisin acaba

TEŞEKKÜRLER,

begin
 FileStream := TFileStream.Create('C:\TEMP\'+editDOSYA_ADI.Text,fmCreate);
 BlobStream := QRYDOSYALAR.CreateBlobStream(QRYDOSYALAR.FieldByName('DOSYA'), bmRead);
 FileStream.CopyFrom(BlobStream,BlobStream.Size); 
 BlobStream.Free;
 FileStream.Free;
end;
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Cevapla
#4
FileStream := TFileStream.Create(`C:\temp\dosya.uzanti', fmCreate);
Yalnızım ama bir kente yürüyen ordu gibiyim, edebiyattan kaçınmalıyım..
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Delphi 10.2 Aes sorunu seci20 2 34 3 saat önce
Son Yorum: seci20
  salt okunur fonksiyon sorunu codder71 3 178 09-10-2018, Saat: 16:38
Son Yorum: codder71
  ADOConnection Conneted 'da Sql Stop Sorunu emrahgs 8 171 09-10-2018, Saat: 14:38
Son Yorum: emrahgs
  Radiobutton ve Checkbox Kayıt İşlemleri - Yardım djharry 3 103 03-10-2018, Saat: 10:58
Son Yorum: Abdullah ILGAZ
  Hal Kayıt Sistemi Web Servis eyln 40 2.916 26-09-2018, Saat: 20:33
Son Yorum: ismailkocacan



Konuyu Okuyanlar: 1 Ziyaretçi