dosya ekleme

[lavi34]

veritabanına kayıt girerken ilgili kayıt için örneğin bir word belgesi yada resim eklemek istiyorum.ve gridde bu kaydın yanında ek olduğuna dair bir işaret göstermek istiyorum.delphide hiç böyle bir çalışma yapmadım.yardımcı olurmusunuz?

[sabanakman]

Blob alanlar bu işler içindir ve zaten bu alan dolu ise gridde (BLOB) şeklinde büyük harfle yazılır, eğer boşsa (Blob) şeklinde küçük harfle yazılır. Ayrıca

Kod: Tümünü seç

TBlobField(Table1.Fields[0]).LoadFromFile('dosya adı');
TBlobField(Table1.Fields[0]).SaveToFile('bir başka dosya adı');

gibi kodlarla dosyadan okunur ve yine bir başka dosya olarak kayıt edilebilirler. Tabi kayıt ederken dosya ismini ve tipini bulmak sana kalmış. Belki bunu dosyayı kayıt ederken başka bir alana daha yazmak çözüm olabilir.

[lavi34]

İlke defa deneyeceğim için biraz daha açıklayıcı öernek verebilirmisiniz?

[sabanakman]

Birisi bir yol tarifi sorduğunda ona yol tarifi mi verilir yoksa elinden tutulup gideceği yere kadar refakat mı edilir? Küçük araştırmalarla bu basit meselenin üstesinden gelebileceğini tahmin ediyorum. O yüzden refakat edemeyeceğim kusura bakma .

[lavi34]

Teşekkür ederim.veritabanına dosyayı ekledim.mesela id no'su 5 oan kayda C:\Documents and Settings\sevo\Belgelerim\isimler.doc dosya uzantısını ekledim.fakat butona tıklayınca bu belgeyi nasıl açıcam.word olduğu için direk word de nasıl açılacak?lütfen yardım edebilirmisiniz?

[sabanakman]

Kod: Tümünü seç

uses ShellApi;

function Calistir(const DosyaAdi: String): DWord;
begin
  ShellExecute(Application.Handle, 'open', PChar(DosyaAdi), nil, nil, SW_NORMAL);
end;

fonksiyonunu kullanabilirsin. Mesela Calistir('c:\deneme.txt'); şeklinde txt dosyayı açan programla deneme.txt dosyası açılacaktır.

[lavi34]

Hocam çok teşekkür ederim.Çok güzel çalışyor kodlar.Son bir isteğim var.peki bu kaydettiğimiz alanı veritanından nasıl sileceğiz.Veritabanında sadece bu eklediğimiz belge alnını nasıl sileceğiz?

[sabanakman]

Table1.Fields[0].Clear;