linkedin facebook linkedin facebook nod32

Spravka ma`lumotlarini chiqarish

Muallif: Mengliyev SH.

Qo`shilgan sana: 2014-09-18

         Spravka ma’lumotlarini chiqarish

SNM faylida joylashgan spravka ma’lumotlarini chiqarish uchun Windows tarkibiga kiruvchi ActiveX komponentasidan foydalaniladi. Buning uchun quyidagilarni bajarish lozim:
Birinchidan – Komponentalar politrasidan Hhopen komponenti o‘rnatiladi. Buning uchun Component menyusidan Import ActiveX Controlbuyrug‘ini berish kerak. Ekranda Import ActiveX oynasi paydo bo‘ladi. Bu oynadan hhopen OLE Control module  qatorini tanlash Install tugmasini bosish kerak. Natijada ekranda Install muloqot oynasi chiqadi,  undan dciusr paketiga dasturchi uchun kerakli komponent OK tugmasini bosish bilan o‘rnatiladi. Natijada ekranda  Package oynasi chiqadi va paketni qayta kompilyasiya qilish jarayoni so‘rovi tasdiqlanadi. Ekranda kompilyasiya jarayoni haqida ma’lumot, ya’ni paketga komponent qo‘shilgani va registratsiya qilinganligi haqida ma’lumot chiqadi.    
Modulni taqdim etishda uni\Delphi 7\Lib katologidan kodlarni tahrirlashda  ishga tushirib  ko‘rish mumkin. Kodlarni tahrirlash oynasidan HHOPENLib_TLIB.pas modulini varaqlab THhoren  sinfi tavsifini ko‘rish mumkin. Bu boshqaruv elementiga kirish uchun interfeysni ta’minlaydi.

   THhoren sinfi tavsifi
THhopen = class(Telecontrol)
private
FIntf: _DHhopen;
function GetControlInterface: _DHhopen;
protected
procedure CreateControl;
procedure InitControlData;
override;
public
function OpenHelp(const HelpFile: WideString;
const HelpSection: WideString): Integer;
procedure CloseHelp;
property ControlInterface:_DHhopen
read GetControlInterface;
property DefaultInterface:_DHhopen
read GetControlInterface;
published
property isHelpOpened: WordBool index 1
read GetWordBoolProp
write SetWordBoolProp
stored False;
end;

THhoren sinfi ikkita usulni taqdim etadi: OpenHelp va  CloseHelp.
OpenHelp usuli spravka ma’lumotlarining chiqishini taminlaydi, closeHelp usuliesa  spravka tizimi oynasini yopadi.
OpenHelp usulida ikkita parametr – spravka ma’lumotlarining fayl nomi va bo‘lim nomi, ya’ni uni tarkibi ko‘rsatiladi. Bo‘lim nomi sifatida HTML-fayl nomini ishlatish kerak, qaysiki SNM-faylni yaratish jarayonida HTML Help Workshop dasturi sifatida qo‘llanilgan. SHunga etiborni qaratish kerakki, ikkala parametr ham widechar satrlaridan bo‘lishi kerak.

Keyingi dastur, ya’ni quyida uning dialog oynasi rasmi va matni  keltirilgan, u spravka ma’lumotlarini chiqarish uchun Hhopen komponentasi ActiveX ning ishlatilishini namoyish qiladi. THhoren komponentasi formaga juda oddiy holda qo‘shiladi. Dasturning ishlashi paytida u ekranda tasvirlanmaydi, uni formaning istalgan joyiga joylash mumkin.

ActiveXni ishlatishdagi dastur oynasi

  Hhopen unit ushh komponentasini ishlatish dasturi matni.
                  

interface
uses
Windows, Messages, SysUtils,
Classes, Graphics, Controls,
Forms, Dialogs, OleCtrls, HHOPENLibJTLB, StdCtrls;

type
TForm1 = class(TForm) Label1: TLabel;
Editl: TEdit; // fayl spravki
Edit2: TEdit; //razdel spravki (imya HTML-fayla)
Button1: TButton; // knopka Spravka
Hhopen1: THhopen; // ActiveX-komponent Hhopen
Label2: TLabel;
Label3: TLabel;

procedure ButtonlClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;

implementation
{$R *.DFM}
// щelchok na knopke Spravka

procedure TForm1.ButtonlClick(Sender: TObject);
var
HelpFile : string; // fayl spravki
HelpTopic : string; // razdel spravki
pwHelpFile : PWideChar;
// fayl spravki (ukazatelь na stroku WideChar)
pwHelpTopic : PWideChar;
// razdel (ukazatelь na stroku WideChar)
begin
HelpFile := Edit1.Text;
HelpTopic := Edit2.Text;
// vыdelitь pamyatь dlya strok WideChar
GetMemfpwHelpFile, Length(HelpFile) * 2) ;
GetMemfpwHelpTopic, Length(HelpTopic)*2);
// preobrazovatь Ansi-stroku v WideString-stroku
pwHelpFile := StringToWideChar
(HelpFile,pwHelpFile,MAX_PATH*2)
pwHelpTopic := StringToWideChar(HelpTopic,pwHelpTopic,32);
// vыvesti spravochnuyu informatsiyu
Form1.Hhopen1.OpenHelp(pwHelpFile,pwHelpTopic);
end;
end.
Spravka ma’lumotlarini chiqarishni Spravka tugmasini bosish bilan (OnClick) hodisalarni qayta ishlash protsedurasi bajaradi.  

1471 marta o`qildi.

Parol:
Eslab qolish.


Ro`yhatdan o`tish

testing

+998915878681

Siz o`z maxsulotingizni 3D reklama ko`rinishda bo`lishini xohlaysizmi? Unda xamkorlik qilamiz.

3D Reklama


Рейтинг@Mail.ru
Рейтинг@Mail.ru

Besucherzahler
счетчик посещений