Delphi Can
save dialog kayıt yeri sorunu - Baskı Önizleme

+- Delphi Can (https://www.delphican.com)
+-- Forum: Delphi (https://www.delphican.com/forumdisplay.php?fid=3)
+--- Forum: Genel Programlama (https://www.delphican.com/forumdisplay.php?fid=6)
+--- Konu Başlığı: save dialog kayıt yeri sorunu (/showthread.php?tid=2043)

save dialog kayıt yeri sorunu - erdogan - 09-03-2018 

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

Cvp: save dialog kayıt yeri sorunu - narkotik - 09-03-2018

(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

save dialog kayıt yeri sorunu - erdogan - 09-03-2018

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;


save dialog kayıt yeri sorunu - narkotik - 09-03-2018 

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