save dialog

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
erdogan_ozkaya
Üye
Mesajlar: 839
Kayıt: 03 Eki 2007 02:00

save dialog

Mesaj gönderen erdogan_ozkaya »

Arkadaşlar Aşağı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

Kod: Tümünü seç


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;
    
    
    
erdogan_ozkaya
Üye
Mesajlar: 839
Kayıt: 03 Eki 2007 02:00

Re: save dialog

Mesaj gönderen erdogan_ozkaya »

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;
dkadir
Üye
Mesajlar: 40
Kayıt: 04 Oca 2014 06:44

Re: save dialog

Mesaj gönderen dkadir »

o kadar koda gerek yok ki
SaveDialog'un Property kısmında InitialDir diye bir kısım var
oraya C:\Temp yazarsan açılışı oradan başlıyor zaten
erdogan_ozkaya
Üye
Mesajlar: 839
Kayıt: 03 Eki 2007 02:00

Re: save dialog

Mesaj gönderen erdogan_ozkaya »

merhaba evet kaldırdım çok teşekkür ederim :)
Cevapla