Rozdział 18

[ Powrót do kursów ]

Ten rozdział będzie całkowicie poświęcony dystrybucji sieciowej twoich programów. 

Załóżmy, że masz program i chciałbyś, aby można  go było umieścić na stronie tj. używać bezpośrednio na stronie WWW. Tak to jest możliwe. Przejdź do sekcji programy na tej stronie i wybierz program "Kółko i Krzyżyk". Zauważ, że oprócz przycisku  "Pobierz" znajduje się również napis: "Uruchom ze strony". Naciśnij go - program "Kółko i Krzyżyk" uruchomi się bezpośrednio ze strony WWW. W tym rozdziale opiszę co zrobić, aby można było umieścić program na stronie WWW.

  1. Wybierzcie z menu File polecenie New.

  2. Kliknijcie na zakładkę 'Active X'.

  3. Kliknijcie dwukrotnie na przycisk 'Active Form'.

  4. Otworzy się okno które musicie wypełnić. W polu New ActiveX Name wpisz np. 'Main1stFormX'. Pozostałe pola zmieniły się - możesz zostawić tak jak jest. Nim klikniesz na przycisku 'OK' zaznacz pole Include Version Information.

Delphi zbuduje formularz na którym możesz umieszczać komponenty jak na zwyczajnym formularzu. zrobimy przykładowy program np. jakiś mały przykładowy programik. Niech będzie to na przykład forma z przyciskiem. Po naciśnięciu program automatycznie tworzy losowo rozmieszczane komponenty Edit. 

  1. Stwórz przycisk i treść jego procedury OnClick uzupełnij następuąco:

    var
      Edit : TEdit; //Deklaracja zmiennych
      Y,i : Integer;
      X : Integer;
    begin

    for i:=0 to 5 do begin    //zastosowanie petli For

    Edit := TEdit.Create(Self); //Tworzenie komponentu Edit
    Edit.Parent := Self; //Przypisanie rodzica kompoenntu

    x:=Random(400); //Losowanie liczb...
    Y:=Random(400);

    Edit.Left := X; {Przypisanie wartości X i Y dla położenia kontrolek Edit
    Edit.Top := Y;
    Edit.Text := 'Kontrolka nr '+IntToStr(I); //Nadanie właściwości Text kontrolek


    end;

OBJAŚNIENIE: Zastosowana zostaje tutaj pętla for dlatego, że stworzonych zostaje  5 kontrolek. Wyjaśnienia wymagają dwie kolejne linie. To dzięki nim następuje stworzenie kontrolek. Możliwe jest również tworzenie kontrolek we wnętrzu innych komponentów. Deklaracja taka wyglądałaby wówczas tak:

        Edit := TEdit.Create(Self);
        Edit.Parent := Memo;

W powyższym wypadku kontrolka Edit stworzona zostanie we wnętrzu komponentu Memo. W przypadku gdy zdeklarowany jest wskaźnik 'Self' rodzicem zostaje formularz.
Następnie następuje losowanie liczb z zakresu od 0 do 399. Zmienne X i Y zostają przypisane położeniu kontrolek. Chciałbym także podkreślić znaczenie przedostatniej linii. Powoduje ona iż każdej kontrolce zostaje przypisany inny numer. Można by to było zrobić również tak:

Edit.Text:=Format('Kontrolka nr nr %d',[I]);

Znak " %d " informuje kompilator, że "w tym miejscu umieszczona zostanie zmienna typu Integer. Możliwe jest zastosowanie także znaku " %s " który informował by kompilator, że "w tym miejscu umieszczona zostanie zmienna  typu String".

Gdy już masz gotowy formularz zapisz go. Z menu Run wybierz Register ActiveX Server. Następnie zbuduj projekt (Project -> Bulid). Z menu Component wybierz Import ActiveX Control. Z listy, która się ukaże wybierz swoją kontrolkę. W polu Palette page wybierz ActiveX (Jeżeli nie posiadasz takiego pola - to je wpisz). Następnie kliknij na przycisku Install - pojawi się okno instalacji. W polu FileName powinna znajdować się nazwa DCLUSR50.BPl. Jeżeli tak nie jest wybierz ją z listy. Kliknij na przycisku Ok i potwierdź budowę (Yes). Ok, teraz mamy już gotową kontrolkę ActiveX.

Wybierz polecenie Project -> Web Deployment Options - jest to okno konfiguracji. W polu traget dir wpisz nazwę katalogu gdzie ma być skopiowana kontrolka po jej zbudowaniu. Traget URL służy do określenia gdzie na serwerze ma być zamieszczona kontrolka. W polu HTML Dir wpisujesz gdzie Delphi ma zapisać gotową stronę WWW z programem.

Zaznacz polę Use CAB file compression. Pole to określa czy program ma być skompresowany, czy też nie. 
Pole Include file version information decyduje o tym, czy Delphi powinno włączać numer wersji. Niektóre przeglądarki nie załadują kontrolki jeżeli włączony jest numer wersji (NN).
Auto increment relase number - zaznaczenie tego pola powoduje, że za każdym razem przy rozpowszechnianiu zwiększany jest numer wersji.

Czas abyś wreszcie zbudował kontrolkę. Kliknij na przycisku OK zamykając to okno. Z menu Project wybierz Web Deploy - kontrolka zostanie zbudowana. Przejdź do katalogu w którym postanowiłeś umieścić kontrolkę. Znajduje się tam strona WWW i plik *.cab z programem. Teraz pozostaje już uruchomienie strony w edytorze HTMLa i odpowiednie jej "upiększenie". Później możesz już opublikować stronę na serwerze.

 [ Powrót do kursów ]