Word belgesini Firebird VT ye kaydetmek

[NewMember]

Arkadaşlar Merhaba;
Firebird veritabanı kullandığım programımda şöyle bir şeye ihtiyacım var.

Blob/Text bir alanım var.Bir word sayfası bu alana kaydedilecek.Müşteri bu bilgilerde bir değişiklik yapmak isterse bu alandaki veri bir word sayfasına aktarılacak.Kişi yapmak istediği değişiklikleri MS Word programı aracılığıyla yapacak.Sonra kaydetmek istediği zaman bu word belgesi yine aynı alana kaydedilecek.

Bunu hangi yöntemle halledebilirim.DBRichedit ile yapmaya çalıştım ancak bu yöntem pek efektif görünmüyor ve ayrıca belge *.rtf değilde *.doc belgesi olacak.

Bunu yapmanın yolu varmıdır?
Ne gibi bir yöntem kullanabiliriz?
Yardımlarınızı bekliyorum.
Teşekkürler….

[ikutluay]

Valla bende kasıp dbrichedit yazmıştım ama csunguray daha basit bir yol izlemişti.

dosyayı gecici bir yere çıkarıp shellexecute ile çalıştırıp programında da işinziz bitince tamamı tıklayın gbi bir mesaj veriyordu. kullanıcı wordu kapatıp tamam tıklayıncada tekrar vt ye alıyordu:

[White Rose]

peki bu durumda word dosyası içinde bulunan resim ve tablolar da vt na kaydedilebiliyor mu

[ikutluay]

duruma göre;

ancak NŞA da evet ediliyor.

ne zaman olmuyor. bazen word belgesine resmin kendisi değilde linki ekleniyor işte o zaman olmuyor. aksi durumda word dosyasında ne varsa vt yede o gidiyor

[ikutluay]

http://mc-computing.com/Databases/Delph ... Blobs.html

burada memory stream yardımıyla birşeyler yapılmış.

kodu çevirmeniz olası.

[ikutluay]

burada resimler için işlem yapılmış siz bunu binary ve word yapacaksınız yapacaksınız sadece.. fibpuls olması çok önemli değil kolayca ibquery e dönderilebilir

procedure TMainForm.OpenBClick(Sender: TObject);
begin
if not OpenD.Execute then
exit;
pFIBDataSet1.Edit;
TBlobField(pFIBDataSet1.FieldByName('GRAPHIC')).LoadFromFile(OpenD.FileName);
pFIBDataSet1.Post;
end;

Kod: Tümünü seç

We can save the value of the BLOB-field to a file or TStream by using SaveToFile and SaveToStream methods:

procedure TMainForm.SaveBClick(Sender: TObject);
begin
 if not SaveD.Execute then 
  exit;
 if not pFIBDataset1.FieldByName('GRAPHIC').IsNull then 
 begin
  TBlobField(pFIBDataSet1.FieldByName('GRAPHIC')).SaveToFile(SaveD.FileName);
 end;
end;

Kod: Tümünü seç

Clearing the contents of the field is the same as any other field, i.e:

procedure TMainForm.Button1Click(Sender: TObject);
begin
   pFIBDataSet1.Edit;
   pFIBDataSet1.FieldByName('GRAPHIC').Clear;
   pFIBDataSet1.Post;
end;

Kusura bakmayın daha fazla yardımcı olamıyorum. asıl pc evde arşivde onda. adana mersin arası göçebe olunca çok fazla fırsat kalmıyor. umarım işinize yarar

[NewMember]

Teşekkür ederim.Sanırım bunu geliştirebilirim(uyarlayabilirim).