Txt uzantılı dosyayı kayıt

yetnot · Mesaj gönderen **yetnot** » 29 Oca 2007 07:00

Arkadaşlar basit bir detayda takıldım...Bilgiseyarımda bulunan txt uzantılı dosyayı veritabanına nasıl kaydedebilirim:D Forumda aradım ama bulamadım.Yardımlarınız için şimdiden teşekkür ederim.
Veritabanı firebird.

Mesaj gönderen **mkysoft** » 29 Oca 2007 07:55

blob ve stream kelimelerini aramanı tavsiye ederim.

yetnot · Mesaj gönderen **yetnot** » 29 Oca 2007 08:49

mkysoft Söylediğiniz şekilde aramalarımı yaptım ama istediğim sonuca ulaşamadım...Eminim çok kolaydır ama takıldık bir kere:D Yardımlarınızı bekliyorum

yetnot · Mesaj gönderen **yetnot** » 29 Oca 2007 09:44

BU şekilde yaptım...Daha mantıklı bir yolu var mı?

Kod: Tümünü seç

var
  MyList:TstringList;
begin
  MyList :=TStringList.Create;
  try
     // yükleme
     MyList.loadfromfile('c:\denemetext.txt');
    // kaydetme
     IBTable1.Insert;
     IBTable1BLOB.Value :=  MyList.Text;
     IBTable1.Post;
     IBTable1.Refresh;
  finally
     MyList.Free;
  end;

end;

Mesaj gönderen **mkysoft** » 29 Oca 2007 11:56

Gayet mantıklı

Diğer yöntemde zaten stream yaparak dosyası binary olarak açıp field'a yazmak.

Hakan Can · Mesaj gönderen **Hakan Can** » 30 Oca 2007 02:24

Anlaşılan field TBlobField.

Bu durumda direk TBlobField.LoadFromFile özelliğini kullanabilirsiniz:

Kod: Tümünü seç

     IBTable1.Insert; 
     IBTable1BLOB.LoadFromFile('c:\denemetext.txt'); 
     IBTable1.Post;

İyi çalışmalar.