dosya save as yapma

[ertline]

Merhaba arkadaşlar,

şu şekilde bir çalışmam var;
döküman yönetimi programı hazırlıyorum, programda mantık olarak dosya yolunu veritabanına kaydediyorum ve bu yoldan görüntüleme yapıyorum.
PDF ve JPG dosya türlerini bu şekilde kaydediyorum.



var
yol:string;
yazi:string;
sonuc : boolean;
begin

if (form1.ADODataSet1.IsEmpty) then begin

yazi:='Dosya';

sonuc :=InputQuery('Ekli Dosya','Ekli Dosya Açıklamasını Giriniz... :', yazi);


if sonuc then begin

if yazi='' then yazi:='Adsız Dosya';


OpenDialog1.Title :='Dosya Seçiniz';
OpenDialog1.Filter:='Evrak Seçiniz (*.jpg)|*.jpg|(*.pdf)|*.pdf|(*.png)|*.png)';
OpenDialog1.FilterIndex :=1;
if OpenDialog1.Execute then begin
yol:='';
yol:=opendialog1.FileName;
end;

FORM1.adodataset1.Append;
form1.ADODataSet1DOC_LOGREF.asinteger:=form1.ad_satis_ftLOGICALREF.asinteger;
FORM1.adodataset1DOCUMENT_PATH.AsString:=yol;
FORM1.adodataset1DOCUMENT_NAME.AsString:=yazi;
FORM1.ADODataSet1.post;

form1.ad_satis_ft.Close;
form1.ad_satis_ft.open;

end;//inputbox

end else begin
Showmessage('Ekli Evrak Bulunmaktadır...!!!');
end;


yapmak istediğim ise;

herhangibiryerde kayıtlı olan JPG yada PDF dosyayı farklı kaydederek, istenilen yolun seçilerek, o yola kaydetmesi

savedialog ile olur mu

bu şekilde bir çalışması olan varsa yardımlarını bekliyorum

iyi çalışmalar.

[ertank]

Merhaba arkadaşlar,

şu şekilde bir çalışmam var;

Merhaba,

Öncelikle kod örneklerini [ code ] ve [ / code ] bloğu içinde yazmanızı rica ediyorum. Bu şekilde anlaşılması çok daha güç oluyor.

yapmak istediğim ise;

herhangibiryerde kayıtlı olan JPG yada PDF dosyayı farklı kaydederek, istenilen yolun seçilerek, o yola kaydetmesi

savedialog ile olur mu

bu şekilde bir çalışması olan varsa yardımlarını bekliyorum

iyi çalışmalar.

Yapmak istediğinizi farklı bir ifade ile açıklayabilir misiniz? Doğru anladığıma emin olamadım.

- Kişinin seçtiği dosyayı eğer istediğiniz belli bir yerde değil ise oraya kayıt etmek ve o kayıt edildiği belli yerdeki bağlantıyı mı database içine saklamak istiyorsunuz?
- Yoksa kişi farklı bir yerden dosya seçmesin. Sadece belli bir yerden dosya seçimi yapabilsin mi istiyorsunuz?

[ertline]

tam olarak şöyle;
herhangi bir yerde bulunan PDF yada JPG dosyalarını kullanıcının belirlediği bir Klasöre kaydetmesi,
yani kullanıcı örneğin D diskine bir EVRAKLAR diye klasör oluşturacak ve herhangi bir yerde bulunan PDF yada JPG yi bu EVRAKLAR klasörünü seçerek farklı kaydedecek.

[ertank]

tam olarak şöyle;
herhangi bir yerde bulunan PDF yada JPG dosyalarını kullanıcının belirlediği bir Klasöre kaydetmesi,
yani kullanıcı örneğin D diskine bir EVRAKLAR diye klasör oluşturacak ve herhangi bir yerde bulunan PDF yada JPG yi bu EVRAKLAR klasörünü seçerek farklı kaydedecek.

Anladığım kadarıyla sizin uygulamanızda standart evrak dizini belli olacak.
Kullanıcı kayıt altına almak istediği evrağı seçince burada bir kopyası olacak.

Bunu sizin kullanıcıya yaptırmanız çok anlamlı olmaz. Kendiniz bir dosya adı vererek ilgili dizine dosyayı yeni ismi ile kopyalayabilirsiniz.

[ertline]

dediğiniz şekilde de olabilir,
bununla ilgili bir örnek paylaşma durumunuz varmı

[ertank]

Merhaba,

Kullandığınız Delphi sürümünü belirtmemişsiniz. Ekteki örnek Delphi 10.3.2 ile çalışmaktadır.

Belirtilen dizin içine dosyaları eki olmadan sadece rakam şeklinde kayıt ediyor.
Dosya adı uzunluğu standart olarak 10 karakter. Sıralı rakam olarak düşünülür ise 9999999999 adet (~9.9 milyar adet) dosya tek dizin içinde kayıt edilebilir. İhtiyaca göre parametrik olarak dosya uzunluğu arttırılabilir.

Ancak bu kadar çok sayıda dosyayı tek dizine kayıt etmek ileride sorunlara yol açabilir. Dizin içinde işletim sisteminin arama yapması dosya listesi alması uzun zaman almaya başlayacaktır. Bu anlamda dosya sayısını kamuk bir seviyede tutup belli aralıklar ile dizin değiştirmekte fayda olacağına inanıyorum.