ВУЗ:
Составители:
else raise Exception.Create('Ɉɲɢɛɤɚ ɜ BinClick');
end;
procedure TForm1.OctClick(Sender: TObject);
var str: WideString;
begin
if Convert.Hex(StrToInt(Edit1.Text),Str) then ShowMessage(Str)
else raise Exception.Create('Ɉɲɢɛɤɚ ɜ OctClick');
end;
procedure TForm1.HexClick(Sender: TObject);
var str: WideString
begin
if Convert.Hex(StrToInt(Edit1.Text),Str) then ShowMessage(Str)
else raise Exception.Create('Ɉɲɢɛɤɚ ɜ HexClick');
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//ɪɚɡɪɵɜ ɫ ɫɫɵɥɤɨɣ. ɋɱɟɬɱɢɤ ɭɦɟɧɶɲɚɟɬɫɹ ɧɚ ɟɞɢɧɢɰɭ
Convert:=nil;
end;
end.
V. Ⱥɜɬɨɦɚɬɢɡɚɰɢɹ
Ⱥɜɬɨɦɚɬɢɡɚɰɢɹ (Automation) ɩɪɟɞɫɬɚɜɥɹɟɬ ɫɨɛɨɣ ɦɟɯɚɧɢɡɦ ɚɜɬɨɦɚ-
ɬɢɱɟɫɤɨɝɨ ɭɩɪɚɜɥɟɧɢɹ ɨɞɧɢɦ ɩɪɢɥɨɠɟɧɢɟɦ ɢɡ ɞɪɭɝɨɝɨ. ɋɭɳɟɫɬɜɭɸɬ ɤɚɤ
ɜɫɬɪɨɟɧɧɵɟ ɫɟɪɜɟɪɵ ɚɜɬɨɦɚɬɢɡɚɰɢɢ, ɬɚɤ ɢ ɜɧɟɲɧɢɟ.
ȼ ɫɪɟɞɟ Delphi ɥɟɝɤɨ ɫɨɡɞɚɜɚɬɶ ɢ ɢɫɩɨɥɶɡɨɜɚɬɶ ɫɟɪɜɟɪɵ ɚɜɬɨɦɚɬɢɡɚ-
ɰɢɢ, ɢɦɟɹ ɜɟɫɶɦɚ ɫɥɚɛɨɟ ɩɪɟɞɫɬɚɜɥɟɧɢɟ ɨ ɩɪɢɧɰɢɩɚɯ COM-ɬɟɯɧɨɥɨɝɢɢ.
5.1. Ɋɚɧɧɟɟ ɢ ɩɨɡɞɧɟɟ ɫɜɹɡɵɜɚɧɢɟ. Ɍɢɩ Variant
ɑɬɨɛɵ ɩɨɥɭɱɢɬɶ ɞɨɫɬɭɩ ɤ ɢɧɬɟɪɮɟɣɫɭ ɤɨɦɩɨɧɟɧɬɚ ɚɜɬɨɦɚɬɢɡɚɰɢɢ ɧɟ-
ɨɛɹɡɚɬɟɥɶɧɨ ɢɫɩɨɥɶɡɨɜɚɬɶ ɨɩɢɫɚɧɢɟ ɢɧɬɟɪɮɟɣɫɚ. ȼ Delphi ɟɫɬɶ ɜɨɡɦɨɠ-
ɧɨɫɬɶ ɢɫɩɨɥɶɡɨɜɚɬɶ ɢɧɬɟɪɮɟɣɫ ɛɟɡ ɟɝɨ ɨɩɢɫɚɧɢɹ. ȼ ɷɬɨɦ ɫɥɭɱɚɟ ɫɫɵɥɤɚ ɧɚ
ɢɧɬɟɪɮɟɣɫ ɫɨɡɞɚɜɚɟɦɨɝɨ ɤɨɦɩɨɧɟɧɬɚ ɯɪɚɧɢɬɫɹ ɜ ɩɟɪɟɦɟɧɧɨɣ ɬɢɩɚ Variant.
ȼ ɷɬɨɦ ɫɥɭɱɚɟ ɤɨɦɩɢɥɹɬɨɪ ɧɟ ɩɪɨɜɟɪɹɟɬ ɤɨɪɪɟɤɬɧɨɫɬɶ ɨɛɪɚɳɟɧɢɣ ɤ ɢɧ-
ɬɟɪɮɟɣɫɭ. Ʉɨɪɪɟɤɬɧɨɫɬɶ ɩɪɨɜɟɪɹɟɬɫɹ ɬɨɥɶɤɨ ɭɠɟ ɧɚ ɫɬɚɞɢɢ ɜɵɩɨɥɧɟɧɢɹ
ɩɪɨɝɪɚɦɦɵ. Ɍɚɤɨɣ ɦɟɬɨɞ ɧɚɡɵɜɚɸɬ ɦɟɬɨɞɨɦ ɩɨɡɞɧɟɝɨ ɫɜɹɡɵɜɚɧɢɹ.
43
ɇɢɠɟ ɩɪɢɜɟɞɟɧ ɩɪɢɦɟɪ ɩɪɨɝɪɚɦɦɧɨɝɨ ɤɨɞɚ, ɜ ɤɨɬɨɪɨɦ ɨɪɝɚɧɢɡɭɟɬɫɹ
ɩɨɞɤɥɸɱɟɧɢɟ ɤ Microsoft Word ɢ ɟɦɭ ɩɟɪɟɞɚɟɬɫɹ ɤɨɦɚɧɞɚ ɫɮɨɪɦɢɪɨɜɚɬɶ
ɧɨɜɵɣ ɮɚɣɥ:
procedure TForm1.Button1.Click(sender: TObject);
var V: Variant;
begin
V:=CreateOLEObject(‘Word.Basic’);
V.AppShow;
V.FileNew;
V.Insert(‘Ⱥɜɬɨɦɚɬɢɡɚɰɢɹ ɷɬɨ ɩɪɨɫɬɨ!’);
V:=NULL;
end;
ɉɪɢɦɟɱɚɧɢɟ 5.1.
ɉɪɢ ɨɛɧɭɥɟɧɢɢ ɬɢɩɢɡɢɪɨɜɚɧɧɨɣ ɫɫɵɥɤɢ ɧɚ ɢɧɬɟɪ-
ɮɟɣɫ ɢɫɩɨɥɶɡɭɟɬɫɹ nil, ɚ ɩɪɢ ɨɛɧɭɥɟɧɢɢ ɫɫɵɥɤɢ ɬɢɩɚ Variant – NULL.
ɉɪɢ ɩɨɡɞɧɟɦ ɫɜɹɡɵɜɚɧɢɢ ɤɨɦɩɢɥɹɬɨɪ Delphi ɩɪɢɧɢɦɚɟɬ ɜɫɟ ɛɟɡ ɜɨɡ-
ɪɚɠɟɧɢɣ ɢ ɧɟ ɜɵɩɨɥɧɹɟɬ ɤɨɧɬɪɨɥɶ ɤɨɪɪɟɤɬɧɨɫɬɢ ɬɢɩɨɜ, ɧɨ ɩɪɢ ɜɵɡɨɜɟ ɧɟ-
ɫɭɳɟɫɬɜɭɸɳɢɯ ɦɟɬɨɞɨɜ ɜɨ ɜɪɟɦɹ ɜɵɩɨɥɧɟɧɢɹ ɩɪɨɝɪɚɦɦɵ ɩɨɹɜɥɹɟɬɫɹ ɫɨ-
ɨɛɳɟɧɢɟ ɨɛ ɨɲɢɛɤɟ (ɪɢɫ. 5.1).
Ɋɢɫ. 5.1. ɋɨɨɛɳɟɧɢɟ ɨɛ ɨɲɢɛɤɟ ɩɪɢ ɨɛɪɚɳɟɧɢɢ ɤ ɧɟɫɭɳɟɫɬɜɭɸɳɟɦɭ
ɦɟɬɨɞɭ ɫɟɪɜɟɪɚ ɚɜɬɨɦɚɬɢɡɚɰɢɢ
Ɇɟɬɨɞ ɪɚɛɨɬɵ ɫ ɤɨɦɩɨɧɟɧɬɨɦ, ɤɨɝɞɚ ɢɫɩɨɥɶɡɭɟɬɫɹ ɨɩɢɫɚɧɢɟ ɟɝɨ ɢɧ-
ɬɟɪɮɟɣɫɚ, ɧɚɡɵɜɚɸɬ ɦɟɬɨɞɨɦ ɪɚɧɧɟɝɨ ɫɜɹɡɵɜɚɧɢɹ. ȼ ɷɬɨɦ ɫɥɭɱɚɟ ɤɨɪ-
ɪɟɤɬɧɨɫɬɶ ɪɚɛɨɬɵ ɜɵɡɨɜɚ ɩɪɨɰɟɞɭɪ ɩɪɨɜɟɪɹɟɬɫɹ ɧɚ ɫɬɚɞɢɢ ɤɨɦɩɢɥɹɰɢɢ
ɩɪɨɝɪɚɦɦɵ.
ɇɟɞɨɫɬɚɬɨɤ ɩɨɡɞɧɟɝɨ ɫɜɹɡɵɜɚɧɢɹ – ɡɚɦɟɞɥɟɧɧɨɟ ɨɛɪɚɳɟɧɢɟ ɤ ɤɨɦɩɨ-
ɧɟɧɬɭ, ɬɚɤ ɤɚɤ ɫɢɫɬɟɦɚ COM ɩɵɬɚɟɬɫɹ ɧɚɣɬɢ ɜɵɡɵɜɚɟɦɭɸ ɩɪɨɰɟɞɭɪɭ ɢɥɢ
ɮɭɧɤɰɢɸ ɩɨ ɢɦɟɧɢ. ɇɨ ɜ ɩɪɨɬɢɜɨɜɟɫ ɧɟɞɨɫɬɚɬɤɚɦ ɫɭɳɟɫɬɜɭɸɬ ɪɹɞ ɩɪɟ-
ɢɦɭɳɟɫɬɜ ɞɚɧɧɨɝɨ ɦɟɬɨɞɚ:
1) ɢɧɨɝɞɚ ɩɪɨɝɪɚɦɦɵ ɢɥɢ ɦɚɤɪɨɫɵ ɪɚɡɪɚɛɚɬɵɜɚɸɬɫɹ ɜ ɫɪɟɞɟ, ɤɨɬɨɪɚɹ ɧɟ
ɩɨɞɞɟɪɠɢɜɚɟɬ ɢɧɬɟɪɮɟɣɫɨɜ (ɧɚɩɪɢɦɟɪ, Visual Basic) ɢɬ. ɩ;
44
else raise Exception.Create('������ � BinClick'); ���� �������� ������ ������������ ����, � ������� ������������ end; ����������� � Microsoft Word � ��� ���������� ������� ������������ ����� ����: procedure TForm1.OctClick(Sender: TObject); procedure TForm1.Button1.Click(sender: TObject); var str: WideString; var V: Variant; begin if Convert.Hex(StrToInt(Edit1.Text),Str) then ShowMessage(Str) begin else raise Exception.Create('������ � OctClick'); V:=CreateOLEObject(‘Word.Basic’); end; V.AppShow; V.FileNew; procedure TForm1.HexClick(Sender: TObject); V.Insert(‘������������� ��� ������!’); V:=NULL; var str: WideString end; begin ���������� 5.1. ��� ��������� �������������� ������ �� �����- if Convert.Hex(StrToInt(Edit1.Text),Str) then ShowMessage(Str) ���� ������������ nil, � ��� ��������� ������ ���� Variant – NULL. else raise Exception.Create('������ � HexClick'); end; ��� ������� ���������� ���������� Delphi ��������� ��� ��� ���- ������� � �� ��������� �������� ������������ �����, �� ��� ������ ��- procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); ������������ ������� �� ����� ���������� ��������� ���������� ��- begin ������� �� ������ (���. 5.1). //������ � �������. ������� ����������� �� ������� Convert:=nil; end; end. V. ������������� ������������� (Automation) ������������ ����� �������� ������- ��������� ���������� ����� ����������� �� �������. ���������� ��� ���������� ������� �������������, ��� � �������. ���. 5.1. ��������� �� ������ ��� ��������� � ��������������� � ����� Delphi ����� ��������� � ������������ ������� ����������- ������ ������� ������������� ���, ���� ������ ������ ������������� � ��������� COM-����������. ����� ������ � �����������, ����� ������������ �������� ��� ��- 5.1. ������ � ������� ����������. ��� Variant ��������, �������� ������� ������� ����������. � ���� ������ ���- ��������� ������ ������ �������� ����������� �� ������ ���������� ����� �������� ������ � ���������� ���������� ������������� ��- ���������. ����������� ������������ �������� ����������. � Delphi ���� ������- ���������� �������� ���������� – ����������� ��������� � �����- ����� ������������ ��������� ��� ��� ��������. � ���� ������ ������ �� �����, ��� ��� ������� COM �������� ����� ���������� ��������� ��� ��������� ������������ ���������� �������� � ���������� ���� Variant. ������� �� �����. �� � ���������� ����������� ���������� ��� ���- � ���� ������ ���������� �� ��������� ������������ ��������� � ��- �������� ������� ������: ��������. ������������ ����������� ������ ��� �� ������ ���������� 1) ������ ��������� ��� ������� ��������������� � �����, ������� �� ���������. ����� ����� �������� ������� �������� ����������. ������������ ����������� (��������, Visual Basic) � �. �; 43 44
Страницы
- « первая
- ‹ предыдущая
- …
- 20
- 21
- 22
- 23
- 24
- …
- следующая ›
- последняя »