Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Servers komponente u Delphi-ju (word, excel...)

[es] :: Pascal / Delphi / Kylix :: Servers komponente u Delphi-ju (word, excel...)

[ Pregleda: 3321 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Nesha_Burton
Nenad Radulovic
Bor

Član broj: 20829
Poruke: 4
*.dial.InfoSky.Net



Profil

icon Servers komponente u Delphi-ju (word, excel...)16.02.2004. u 01:52 - pre 215 meseci
Pozdrav svima.

Jel zna mozda neko gde ima dobra dokumentacija za koriscenje Servers komponenti iz Delphi-ja, posto je help koji dolazi uz Delphi jadan (odn. nema nista)? Bio bi pozeljan help fajl kao oni iz Delphija za ostale komponente. Pa sad, ako je neko imao srece da nadje isti... dajte link.
Toliko za sada.
-----------------------------
a) Doktore, mnogo sam kasljao.
b) Jel suvo?
a) Ma jok bre, s usta...
 
Odgovor na temu

dejanet
Beograd

Član broj: 19240
Poruke: 1082



+779 Profil

icon Re: Servers komponente u Delphi-ju (word, excel...)16.02.2004. u 10:42 - pre 215 meseci
Radio sam pre 2-3 godine sa aut. server komponentama, ali sam zaboravio linkove, nema ih puno, vise sam koristio help, neki za VB (verovao ili ne).
Da bi malo pomogao evo ti kako da radis sa excel i word-om (pazi Office 2000):
EXCEL
......
try

excelapplication1.Connect;
except
MessageDlg('Excel may not be installed', mtError, [mbOk], 0);
Abort;
end;
excelApplication1.Caption := 'Tvoj_caption';
Template :='Tvoj_template.xlt'; {EmptyParam;} {prethodno formiraj template}
NewTemplate := False;

excelapplication1.Workbooks.Add(Template, NewTemplate);

count:=0;
excelapplication1.Sheets.count;
ExcelSheet:=excelapplication1.ActiveSheet;
ExcelSheet.name:='Tvoj_sheet';

excelapplication1.Range['a'+inttostr(1),'e'+inttostr(1)].Borders.Color:=clblack; {tvoj border od a1 do e1}
ExcelSheet.Cells(1,1):='Tvoj text u celiji a1';

excelapplication1.Visible[1] := True;
excelapplication1.Disconnect; {zavrsio si sa vezom sa excelom}
.................

WORD

wordApplication1.Connect;
wordApplication1.Caption := 'Tvoj caption';

template:='Tvoj_template.dot'; {pre toga napravi template}
Newtemplate:=false;
Doc.ConnectTo(WordApplication1.Documents.Addold(Template,Newtemplate));
{ Find text and format it. This time we define our own range, so that
it can be redefined when the Find is executed. }
TextRange := Doc.Content;
SearchText := 'sta trazis';
TextRange.Find.Executeold(SearchText, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, Wrap,
EmptyParam, EmptyParam, EmptyParam);
TextRange.Font.bold := integer(True);{primeni font style na trazeno}

SearchText := 'sta trazis';
ReplaceText := 'sa cim menjas'; {find and replace}
Wrap := wdFindContinue;
All := wdReplaceAll;
Doc.Content.Find.Executeold(SearchText, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, Wrap,
EmptyParam, ReplaceText, All);
Wordapplication1.visible:=true;
Wordapplication1.disconnect;
.....

Pozdrav:
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Servers komponente u Delphi-ju (word, excel...)

[ Pregleda: 3321 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.