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..
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
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..
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
  Lisanslama Sorunu Hk. glagher 11 505 07-07-2018, Saat: 10:40
Son Yorum: engerex
  Lookupcombobox ile yeni kayıt ekleme canbir 2 122 21-06-2018, Saat: 10:01
Son Yorum: adelphiforumz
  Aes şifreleme sorunu seci20 3 183 18-06-2018, Saat: 11:45
Son Yorum: sadettinpolat
  RSA anahtarı hesaplama sorunu seci20 8 338 14-06-2018, Saat: 15:19
Son Yorum: seci20
  DbBrowser-Veritabanı kilitlenme sorunu ? BY-HAYALET 2 128 08-06-2018, Saat: 21:13
Son Yorum: BY-HAYALET



Konuyu Okuyanlar: 1 Ziyaretçi