Валентин Озеров - Советы по Delphi. Версия 1.4.3 от 1.1.2001

0202040303030303030303030303030303F8FF03F8FF03030303030303030303

03030303FA0202030303030303030303030303030303F8FFF803030303030303

030303030303030303FA0303030303030303030303030303030303F803030303

0303030303030303030303030303030303030303030303030303030303030303

0303

}

Margin = 2

NumGlyphs = 2

Spacing = -1

IsControl = True

end

objectCancelBtn: TBitBtn

Left = 108

Top = 216

Width = 69

Height = 39

Caption = '&Отмена'

TabOrder = 4

Kind = bkCancel

Margin = 2

Spacing = -1

IsControl = True

end

objectPanel2: TPanel

Left = 16

Top = 88

Width = 153

Height = 49

BevelInner = bvLowered

BevelOuter = bvNone

TabOrder = 1

objectLabel1: TLabel

Left = 24

Top = 8

Width = 5

Height = 13

end

objectLabel2: TLabel

Left = 8

Top = 8

Width = 48

Height = 13

Caption = 'Значение 2:'

end

objectEdit2: TEdit

Left = 8

Top = 24

Width = 121

Height = 20

MaxLength = 10

TabOrder = 0

Text = '0'

end

end

objectPanel1: TPanel

Left = 16

Top = 16

Width = 153

Height = 49

BevelInner = bvLowered

BevelOuter = bvNone

TabOrder = 0

objectLabel4: TLabel

Left = 8

Top = 8

Width = 48

Height = 13

Caption = 'Значение 1:'

end

objectEdit1: TEdit

Left = 8

Top = 24

Width = 121

Height = 20

MaxLength = 10

TabOrder = 0

Text = '0'

end

end

objectPanel3: TPanel

Left = 16

Top = 144

Width = 153

Height = 49

BevelInner = bvLowered

BevelOuter = bvNone

TabOrder = 2

objectLabel6: TLabel

Left = 8

Top = 8

Width = 48

Height = 13

Caption = 'Значение 3:'

end

objectEdit3: TEdit

Left = 8

Top = 24

Width = 121

Height = 20

MaxLength = 10

TabOrder = 0

Text = '0'

end

end

end

{ *** КОНЕЦ КОДА DDEDLG.DFM *** }

{ *** НАЧАЛО КОДА DDEDLG.PAS *** }

{***************************************************}

{ }

{ Delphi 1.0 DDEML Демонстрационная программа }

{ Copyright (c) 1996 by Borland International }

{ }

{***************************************************}

{ Данный модуль определяет интерфейс сервера DataEntry DDE

(DDEMLSRV.PAS). Здесь определены имена Service, Topic,и Item, поддерживаемые сервером, и также определенаструктура данных, которая может использоватьсяклиентом для локального хранения "показательных" данных.

Сервер Data Entry Server делает свои "показательные"данные доступными в текстовом виде (cf_Text)сформированными в виде трех различных топика (Topics).Клиент может их преобразовывать в целое дляиспользования со структурой данных, которая здесь определена.}

unitDdedlg;

interface

usesWinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons, StdCtrls, Mask, ExtCtrls;

typeTDataEntry = class(TForm)

OKBtn: TBitBtn;

CancelBtn: TBitBtn;

Bevel1: TBevel;

Panel2: TPanel;

Label1: TLabel;

Label2: TLabel;

Panel1: TPanel;

Label4: TLabel;

Panel3: TPanel;

Label6: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

procedureOKBtnClick(Sender: TObject);

procedureFormShow(Sender: TObject);

private

{ Private declarations }

public

S1, S2, S3: String;

{ Public declarations }

end;

var DataEntry: TDataEntry;

implementation

{$R *.DFM}

procedureTDataEntry.OKBtnClick(Sender: TObject);

begin

S1 := Edit1.Text;

S2 := Edit2.Text;

S3 := Edit3.Text;

end;

procedureTDataEntry.FormShow(Sender: TObject);

begin

Edit1.Text := '0';

Edit2.Text := '0';

Edit3.Text := '0';

Edit1.SetFocus;

end;

end.

{ *** КОНЕЦ КОДА DDEDLG.PAS *** }

interface

procedureCreateGroup;

implementation

procedureTSetupForm.CreateGroup;

{ Для установки группы в Program Manager используем компонент TProgMan }

var

ItemList: TStringList;

GroupName: String;

ItemName: String;

i: word;

begin

{ Получаем из INI-файла строку GroupName }

GroupName := IniFile.ReadString('General', 'PMGroup', '');

{ Если один есть, устанавливаем группу }

ifGroupName <> '' then begin

ItemList := TStringList.Create;

try

{ читаем элементы для установки }

IniFile.ReadSectionValues('PMGroup', ItemList);

withTProgMan.Create(Self) do try

CreateGroup(GroupName);

fori := 0 toItemList.Count – 1 do begin

{ получаем имя файла }

ItemName := Copy(ItemList.Strings[i], 1, Pos('=', ItemList.Strings[i]) – 1);

{ прибавляем путь к имени файла и добавляем элемент }

AddItem(GetTarget(ItemList.Values[ItemName][1]) + ItemName, ItemName);

end;

finally

Free;

end;

finally

ItemList.Free;

end;

end;

end;

Delphi 16 также может осуществлять автоматизацию OLE, как она может и многое другое. Другое дело, что у нее нет компонентов-инкапсуляторов, и нет традиционных объектов, делающих работу с OLE такой же легкой, как это происходит с другими вещами в Delphi. Delphi32 таки должен иметь какие-то характеристики для работы с OLE (я так надеюсь).

Так, если вы собираетесь делать какие-то действия с любым типом OLE-сервера, то для этого вам необходимо будет использовать все нудные и противные рутинки из набора Windows SDK. Но будет лучше, если всем этим будет заправлять специализированный компонент. Но этот вопрос уже не к Borland.

Следующий код компилируется без проблем. Он не так ясен и понятен, но он может вам помочь:

unitUnit1;

interface

functionOLEfunction(x, y, z: integer): integer; cdecl; export;

implementation

functionOLEfunction(x, y, z: integer): integer;

begin

end;

procedurebuildOLEstructure;

varF: pointer;

begin

F := @OLEfunction; { Компилируется без проблем … }

end;

end.

Используйте метод, приведенный ниже. Вы должны объявить одну вызывающую функцию к каждой комбинации параметров, которые вы собираетесь передавать. Затем вы вызываете вызывающую функцию (сорри) и передаете ей как указатель функцию, которую вы хотите вызвать (еще раз сорри). Непонятно? Поясню на примере: