Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Delphi i word

2 views
Skip to first unread message

Danijel Deban

unread,
Mar 19, 2001, 1:43:43 PM3/19/01
to
Da li mi netko moľe reći kako bi mogao i da li je u opće moguće, iz dephi
programa kreirati word dokument i popuniti ga određenim podacima iz baze
podataka. U biti imam program koji kao rezultat daje određeni "report" koji
se bi trebao ispisati ili pak snimiti u word dokument.
Naravno govorim o dephi 5 verziji...


Davor Pleskina

unread,
Mar 19, 2001, 2:03:23 PM3/19/01
to
Imash WordAPI (WordBasic). Mozes ga koristiti iz delphia.
Primjer iz jednog mog (malo starijeg) programa:

if FileExists(datoteka) then
with Form_Main.Query1 do begin
MsWord := CreateOleObject('Word.Basic');
MsWord.AppShow;
MsWord.FileOpen(datoteka); // Ima i FileNew

{Ovdje ćemo raditi sve zamjene}
MsWordReplace(MsWord, '<<INI_BANKA>>', wsBanka);
MsWordReplace(MsWord, '<<INI_PODR>>', wsPodr);
MsWordReplace(MsWord, '<<INI_ADRB>>', wsAdrb);
MsWordReplace(MsWord, '<<INI_ZIRO>>', wsZiro);
MsWordReplace(MsWord, '<<INI_DIREK>>', wsDirek);

MsWordReplace(MsWord, '<<KONTO_KRED>>',
FieldByName('RN').AsString);
MsWordReplace(MsWord, '<<PART_KRED>>',
Partija(FieldByName('PART').AsString));
MsWordReplace(MsWord, '<<DKNAZ>>',
CrosciiTo1250(FieldByName('DKNAZ').AsString));
MsWordReplace(MsWord, '<<DKSJED>>',
CrosciiTo1250(FieldByName('NAZPOS').AsString));
MsWordReplace(MsWord, '<<DKADR>>',
CrosciiTo1250(FieldByName('DKADR').AsString));
MsWordReplace(MsWord, '<<DKZIRO>>',

{Po zavrąetku zamjena snimamo datoteku pod odgovarajućim imenom}
MsWord.FileSaveAs(ugovor)

end;

"Danijel Deban" <danije...@vz.tel.hr> wrote in message
news:995k64$flol$1...@as121.tel.hr...

Mladen Kuzminski

unread,
Mar 20, 2001, 3:06:04 AM3/20/01
to

"Danijel Deban" <danije...@vz.tel.hr> wrote in message
news:995k64$flol$1...@as121.tel.hr...

Najprimitivnije koristiti OLE. Bolja verzija je koristiti servere za MS
proizvode koji dolaze s Delphiem 5 Pro i Ent. Imate detaljne upute u
Developer's Guide koji se dobije s Delphiem (imakopija Guide-a na
www.borland.com/delphi pod dokumentacijom).


--
Zelim Vam ugodan i uspjesan dan,
Mladen Kuzminski
BORLAND distribucija
KONTO d.o.o. Pozega, Varazdin

*** kylix - where penguins fly. By Borland. ***

0 new messages