Specifications

COM+ reference
16
Glink: API reference manual Gallagher & Robertson
Field : IGlinkField;
begin
if Fields = nil then Exit;
Count := Fields.getCount;
Listbox1.Items.Add('Number of fields:
'+IntToStr(Count));
if Count = 0 then Exit;
for I := 1 to Count do
begin
Listbox1.Items.Add('Field index: '+IntToStr(I));
Field := Fields.item(I);
DumpField(Field);
end;
end;
procedure TForm1.Button6Click(Sender: TObject);
var
I, Count : integer;
Fields : IGlinkFields;
Field : IGlinkField;
cursor : IGlinkPoint;
S : string;
begin
Fields := GlinkApi1.getFields;
cursor := GlinkApi1.GlinkPoint(5, 15);
Listbox1.Items.Add('ByPosition');
Field := Fields.findByPosition(cursor);
DumpField(Field);
cursor.X := 1;
cursor.Y := 1;
Listbox1.Items.Add('ByString');
Field := Fields.findByString('password', cursor, 24*80,
GlinkApi_SEARCH_FORWARD, false);
DumpField(Field);
end;
procedure TForm1.Button7Click(Sender: TObject);
var
I, Count : integer;
Fields : IGlinkFields;
Field : IGlinkField;
cursor : IGlinkPoint;
S : string;
begin
Fields := GlinkApi1.getFields;
if Fields = nil then Exit;
cursor := GlinkApi1.GlinkPoint(1, 1);
Field := Fields.findByString('Enter user', cursor,
24*80, GlinkApi_SEARCH_FORWARD, false);
if Field = nil then Exit;
I := Fields.getFieldIndex (Field);