使用传感器

Glass没有键盘或触摸屏，但仍然具有移动设备所有的标准的传感器。你可以使用标准的传感器组件来访问这些传感器。

定位和GPS

Glass内置有GPS。TLocationSensor具有一个OnLocationChanged事件，这一事件在GPS组件被激活时产生，在有除Distance性质的以外的位置信息改变时也会产生这一事件。在OnLocationChanged事件的处理方法中，有一个 NewLocation参数，这一参数包含新位置的经纬度。

运动和方向追踪

要追踪Glass和穿戴者的运动和方向，需要使用TMotionSensor和TOrientationSensor组件。它们提供设备的加速度、角度状态、前进方向、速度和运动等信息。由于Glass被用户穿戴在头上，因此设备的这些运动信息实际上被翻译成用户如何张望、头部如何运动等信息。

实际上信息是从很多不同的传感器中获取的，包括陀螺仪、磁力计、加速计。你可以在一段时间内使用一个TTimer来轮询传感器的运动和方向信息，也可以只读取某一个时刻的信息。

Camera处理

TCameraComponent 可以操作相机中的帧. 可以一次抓取多个帧作为预览，也可以一次一帧. Google在抓取图像时需要保持设备的打开状态，但不一定需要展示正在捕获的图像 (尽管展示当前图像更有利于使用者).

调用 TCameraComponent, 设置 Active属性为true, 接着相应OnSampleBufferReadyevent. 记住这一过程不是在 UI 线程里, 所以要想UI 显示更新的图像，需要使用下述代码:

// Event handler for the CameraComponent’s SampleBufferReady event
procedure TMainForm.CameraComponent1SampleBufferReady(Sender: TObject; const ATime: Int64);
Begin// Use Synchronize to move the execution to the main UI thread.TThread.Synchronize(TThread.CurrentThread, GetImage);
end;procedure TMainForm.GetImage;
begin// imgCameraView is a TImage component on the UI for displaying the imageCameraComponent1.SampleBufferToBitmap(imgCameraView.Bitmap, True);
end;

使用触摸板
与touchpad进行交互的最简单的方式是交互式手势。Pan 交互式手势提供了一系列事件当你的手指在触摸板上滑动时。举个例子，你可以使用Pan手势的水平移动来完成不同选项之间的切换。

为响应交互式手势，只需简单的拓展表单的触摸属性，然后指定独特的你想接受事件的交互式手势。 之后，当用户进行交互式手势操作时，OnGesture事件会触发这里有一个手势处理器的例子，允许用户基于交互式手势的水平位置来设置屏幕的超时时间。

procedure TMainForm.FormGesture(Sender: TObject;const EventInfo: TGestureEventInfo; var Handled: Boolean);
varx: Integer;
begin// Handle the Pan Interactive Gestureif EventInfo.GestureID = igiPan thenbegin// Specific processing for the beginning of the gesture – save the start locationif TInteractiveGestureFlag.gfBegin in EventInfo.Flags thenbeginfPanStart := EventInfo.Location;fStartVal := pbTimeOut.Value;endelse// Specific processing at the end of the gesture – set the timeoutif TInteractiveGestureFlag.gfEnd in Eventinfo.Flags thenbeginSetScreenOffTimeout(Trunc(pbTimeOut.Value * 1000));endelse// Update the display based on the current gesture positionbeginif not (TInteractiveGestureFlag.gfInertia in EventInfo.Flags) thenbeginx := Trunc((fPanStart.X - EventInfo.Location.X)/10) * 10;pbTimeOut.Value := fStartVal + x;end;DisplayTimeOut(Trunc(pbTimeOut.Value));end;end;
end;

注意一点，如果用户在触摸板上滑下那么除了Pan手势之外后退按钮事件也会被触发。你可以 自己捕获并处理后退按钮事件。用下面的代码在你的表单中简单的添加OnKeyUp事件处理器：

if Key = vkHardwareBack then
begin  // Do whatever you want to do here  Key := 0;// Set Key = 0 if you want to prevent the default action
end;

如果你总是设置Key为0，那么用户将不能退出应用，因此适当的考虑考虑。

结论

RAD Studio 和Appmethod为开发原生Glassware提供了极大的便利. 加上支持 C++ 和 Object Pascal, 选择的余地大大增加r. RAD Studio还提供了 原生的示例应用演示了上述的种种特性. 文档也详细说明了 操作步骤 . 此外还提供了 使用其它多种感应器，手势动作等等的示例. 想直接进入 GDK 查看相关的细节也很方便. 而且GDK也在一直持续更新. 可以在我后续的Delphi.org的博文中看到 相关GDK的说明.