كيف يبرمجة هذا المكون TMSWebGMaps

[didrosoft]

بعد عناء طويل في البحث عن نسخة كاملة للدلفي xe2 لم اجد فاكتفيت بنسخة تجريبية حتى نجد المكون الكامل ان شاء الله ..لكن المشكل الذي واجهني هو غياب اي درس عن استغلال هذا المكون لهذا اخواني الافاضل ياريت تساعدونا في شرح طريقة برمجته وانا شاكر لكم مسبقا

[onexite]

PHP كود :

WebGMaps1.MapOptions.DefaultLatitude :=JvSpinEdit1.Value;
WebGMaps1.MapOptions.DefaultLongitude :=JvSpinEdit2.Value;
  WebGMaps1.Launch; 


[didrosoft]

بارك الله فيك اخي الفاضل onexite على التوضيح وياريت اخي لو تعطيني مثال عن طريقة جلب مثلا خط الطول والعرض لمنطقة معية ولو عندك اكثلة اخرى اكون شاكرا لك

[onexite]

بارك الله فيك اخي الفاضل onexite على التوضيح وياريت اخي لو تعطيني مثال عن طريقة جلب مثلا خط الطول والعرض لمنطقة معية ولو عندك اكثلة اخرى اكون شاكرا لك

PHP كود :

procedure TForm9.BitBtn1Click(Sender: TObject);
var
  List: TStrings;
begin
  List := TStringList.Create;
  try
    ExtractStrings([','], [], PChar(WebGMapsLookupEdit1.Text), List);

WebGMapsGeocoding1.Address := WebGMapsLookupEdit1.Text;
//ShowMessage(WebGMapsLookupEdit1.Lookup.Values[0]);
if WebGMapsGeocoding1.LaunchGeocoding = erOk then
  begin
    WebGMaps1.MapOptions.DefaultLatitude :=WebGMapsGeocoding1.ResultLatitude;
    WebGMaps1.MapOptions.DefaultLongitude :=WebGMapsGeocoding1.ResultLongitude;

  WebGMaps1.Launch;

   JvSpinEdit1.Value:=WebGMapsGeocoding1.ResultLongitude;

// JvSpinEdit3.Value:=WebGMapsGeocoding1.ResultElevation;
 JvSpinEdit2.Value:=WebGMapsGeocoding1.ResultLatitude;
// Application.ProcessMessages;
  JvSpinEdit3.Value:=(WebGMapsGeocoding1.ResultTimeZone /3600) ;
  btn1.Enabled:=true;
  end;

 edt2.Text:=List
[List.Count-2];
 edt3.Text:=List
[List.Count-1];

  finally
    List.Free;
  end;
end;