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

Nesha_Burton
Nenad Radulovic
Bor

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

Profil

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

^{16.02.2004. u 01:52 - pre 245 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: 1181

+837 Profil

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

^{16.02.2004. u 10:42 - pre 245 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