save dialog kayıt yeri sorunu

[erdogan]

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

[narkotik]

(09-03-2018, Saat: 15:51)erdogan Adlı Kullanıcıdan Alıntı:

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

[erdogan]

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;

[narkotik]

FileStream := TFileStream.Create(`C:\temp\dosya.uzanti', fmCreate);