Lista VB Ro
Carti
Surse
Articole
Programe
Legaturi
Pareri

DCOM & Remote Automation

       Distributed COM este un cadru de dezvoltare, instalare si utilizare a unor componente, distribuite pe mai multe calculatoare. Adica, sã presupunem cã avem o componentã (clasã) care calculeazã ceva dar care vrem sã o executãm pe un calculator din retea folosit doar pentru acest lucru. Sã presupunem ca avem un calculator puternic pe care instalãm o componentã care calculeazã dacã un numãr dat este prim sau nu. Nu ne propunem sã calculãm asta pe fiecare calculator din retea pe care am instalat programul pentru cã nu sunt suficient de puternice, asa cã pe un calculator client oarecare din retea doar apelãm acea metodã a obiectului care ne spune (true sau false) dacã numãrul dat ca parametru este prim sau nu (acesta poate fi si generat aleator, de exemplu). Deci, pe un calculator oarecare se genereazã un numãr, care este pasat unei componente ce ruleazã pe un calculator (server) mai puternic din retea care calculeazã dacã numãrul este prim sau nu. (presupunem cã numãrul este foarte mare si procedura de calcul ar dura mult pe un calculator client care apeleazã serverul, mai slab din punct de vedere al performantelor).

       Sã vedem cum se poate rezolva asta. Putem de exemplu sã utilizãm un control Winsock pentru a deschide un canal de comunicatii cu un server pe un port stabilit de noi. La acel port trimitem o secventã se date (stabilitã de noi), iar programul server asculta acel port. În functie de comanda primitã, calculeazã ceva si transmite rezultatul pe aceeasi cale.

       Însã în VB existã o solutie (de fapt douã) mult mai elegantã: folosind Remote Automation sau Distributed COM. Cu acestea lucrãm în acelasi fel în care se lucreazã pentru un singur calculator farã sã tinem cont de faptul ca programul se executa distribuit pe mai multe calculatoare. Se lucreazã cu clase având metode si proprietãti, fãrã sã se tinã cont cã de fapt clasele sunt pe alt calculator. Pentru asta e nevoie de niste programe suplimentare dar care sunt usor de instalat.

       Mai întâi sã vedem ce înseamnã Remote Automation. VB 5.0 si 6.0 vine cu suport pentru remote Automation care înseamnã simplu utilizarea unor clase aflate la distanta (remote) prin OLE Automation. Se utilizeazã douã programe instalate lângã shortcut-ul de lansarea VB-ului: Automation Manager (fãrã interfatã graficã, trebuie doar lansat pentru a accepta comenzi de la distantã) si RemAuto Connection Manager (câteva setãri pentru clasa respectivã - o sa le explic mai târziu).

       DCOM este la fel de simplu. Dacã lucrati pe Windows NT acesta este instalat automat. Pentru Windows 9x trebuie instalat manual si este în douã variante: DCOM98 (atât pentru Windows 98 cât si pentru Windows 95) si DCOM95 (doar pentru Windows 95, acesta fiind mai nou !!). Vezi aici diferentele(Q198600 Differences Between DCOM95 and DCOM98). Mai întâi trebuie instalat suportul pentru DCOM instalând, la fel, douã programe: dcom98.exe respectiv dcom98cfg.exe care se pot gãsi pe CD-ul cu Windows 98 sau în kitul de la Visual Studio 6.0. Acestea se pot lua, cred, si de la Microsoft.com dar nu stiu exact adresa. Mai multe amãnunte gãsiti la Q196208 DCOM98 Release Notes.

       Dupã ce am instalat suportul pentru Remote Automation sau pentru DCOM putem trece la dezvoltarea programului. Aici vom testa o clasã mai simplã cu care încerc sã explic utilizarea DCOM-ului. Sã definim o clasã care are doar o functie Mesaj ce returneazã un mesaj simplu si o procedura PuneText care adaugã un string dat ca parametru într-un fisier text de pe server. Deci pe server (sub Windows NT) deschidem în VB un nou proiect 'ActiveX EXE' (neapãrat de acest tip, nu altele). Dacã doriti ca programul server sã fie un calculator cu Windows 9x cititi Q165101 : HOWTO: Use Windows 95 or Windows 98 as a DCOM Server despre utilizarea acestora ca servere de DCOM. Am numit proiectul DemoDCOM_Ro iar singura clasã din proiect se numeste Test (MultiUse = True). O sã vedeti cã numele claselor sunt destul de importante pentru cã asa vor fi declarate variabilele obiect din programul client (care utilizeazã propriu-zis acestã clasã). Codul clasei este urmãtorul:

Public Function Mesaj() As String
Mesaj = "Viziteaza http://vb4ro.cjb.net"
End Function

Public Sub PuneText(s As String)
Open "c:\testDCOM.txt" For Append As #1
Print #1, s
Close #1
End Sub

1. La Project Properties, în pagina 'Component', se marcheazã 'Remote Server' (asta va creea 2 fisiere suplimentare cu extensiile VBR si TLB care se folosesc pentru înregistrarea programului server pe calculatorul client).
2. La Project Properties, în pagina 'General', se poate pune o descriere a programului server care va apare în lista 'References' în programul client (la Project Description) (optional).
3. Tot acolo, la 'Version Compatibility' se marcheazã 'No compatibility' sau 'Project compatibility'. Dupã ce am compilat prima datã proiectul putem marca 'Binary compatibility' pentru a nu i se creea clasei rezultate dupã compilare alt identificator (CLSID) cu care se înregistreazã în Registry. (optional)

       Dupã asta se creeazã pe calculatorul client un nou program (poate fi Standard EXE) la care la 'References' se adaugã manual (de la Browse) fisierul cu extensia TLB. Dupã asta se utilizeazã clasa de pe server absolut ca si cum ar fi pe acelasi calculator. Vezi mai jos un mic exemplu de program client care utilizeazã clasa server.

Dim oDCOM As New DemoDCOM_Ro.Test

Private Sub Command1_Click()
MsgBox oDCOM.Mesaj
End Sub

Private Sub Command2_Click()
oDCOM.PuneText Text1.Text
End Sub

       Tot ce am scris mai sus se foloseste cu DCOM. A doua metodã de utilizare a unei clase la distantã se face prin 'Remote Automatition'. Modul în care creem programul server sau cel client (clasa care utilizeazã serverul) este la fel. Ceea ce diferã dacã se foloseste Remore Automation sunt câteva lucruri:

• La înregistrare se alege Remote Automation în loc de DCOM (când se apeleazã Clireg32).
• Pe calculatorul server trebuie sa ruleze Automation Manager (sã fie lansat). Dacã pe calculatorul server nu exista VB-ul de exemplu, si nu existã acest program atunci se face un kit de instalare cu componenta respectivã, iar în kit este inclus pe lângã run-time-ul VB-ului si câteva dll-uri ce tin de Remote Automation (Autprxx.dll unde xx e 16 ori 32). Se instaleazã si RemAuto Connection Manager.

• DCOM merge doar pe Win32, deci dacã se utilizeazã componente pe 16 biti trebuie sã folositi Remote Automation
• Îi mai complicat sã folositi un calculator cu Windows 9x pe post de server asa cã dacã programul server este pe un astfel de calculator folositi Remote Automation.
• Pe viitor se are în vedere utilizarea doar a DCOM-ului.
• Pentru o securitate sporitã se foloseste DCOM.

       Pânã acum nu am vorbit deloc de un subiect care trebuie neapãrat sã-l aveti în vedere si anume securitatea. Nu oricine poate face orice cu componetele ce se pot executa la distantã (pe server). Pentru Remote Automation se porneste RemAuto Connection Manager unde apare în stânga o lista cu toate clasele iar în dreapta setãrile referitoare la o anume clasã. În pagina 'Client' se poate seta daca respectiva clasã se poate sau nu sã fie creatã de la distantã. Optiunile sunt:

• Disallow All Remote Creates - cea mai restrictivã, nu se permite crearea nici unui obiect de la distantã
• Allow Remote Creates by Key - pentru o anume clasã se poate specifica dacã se poate sau nu crea de la distantã în functie dacã este sau nu marcatã Allow Remote Activation
• Allow Remote Creates by ACL - se poate utiliza doar sun NT pentru a defini utilizatorii care pot crea clase de la distantã
• Allow All Remote Creates - oricine poate crea clase pe server (nu ar trebui activatã decât pe servere absolut sigure)

       Despre DCOM cititi si fisierele care se instaleazã automat odatã cu instalarea lui (C:\WINDOWS\SYSTEM\dcom98) sau puteti încerca exemplul de la M$ referitor la acest subiect sau sa cititi Q161837 Create a DCOM Client/Server Application sau Q175510 VB5DCOM.EXE: Using Callbacks and WithEvents with DCOM Evident acest subiect este mult mai vast si sunt cãrti întregi despre asta. De fapt acest articol îsi propune sã fie doar o scurtã introducere în aceastã temã.