Реальна ли возможность скачать Delphi для Android

@proggamer12 · Регистрация: 06.07.2012

Студворк — интернет-сервис помощи студентам

Здравствуйте.
Нашел на сайте http://softwarepeople.ru/delph... ampaignId= ссылку на загрузку пробной версии Delphi с надписью "Попробуй первым RAD Studio для Android". При переходе на эту ссылку появляется ссылка на загрузку пробной версии Delphi XE4 Architect, но на информационной странице продукта нет упоминаний об Android.

Так действительно ли в этом пробном релизе Delphi есть возможность работать с Android?

Заранее благодарен за ответы.

raxper · 07.09.2013, 17:35

Нет, не видел. Но вики на которой дата то 7-е, то 17-е:

Реальна ли возможность скачать Delphi для Android

с несуществующей ссылкой, уж точно бы не доверял.

Терпение.

raxper · 11.09.2013, 22:24

свершилось | забираем

Новичок · 11.09.2013, 22:36

Да здравствует Delphi For Android!!!

@Nonstopich · 12.09.2013, 19:40

Ну какие впечатления?
У меня на пустом Android приложении вот что:

Delphi
1
[PAClient Error] Error: E2312 ERROR: resource directory 'C:\Users\Nonstopich\Documents\RAD Studio\Projects\Android\Release\Project1\res' does not exist

Новичок · 13.09.2013, 08:41

Nonstopich, ну куда вы торопитесь?Подождите,пока все баги уберут,сделают нормальную версию,тогда и пишите.

raxper · 13.09.2013, 10:09

...у меня все оки, в режиме USB отладки в планшете сборка производится в нем и запуск в нем же. Модифицировал сэмпл для работы с GPS датчиком в андроид-планшете для отсылки этих данных броадкастом по UDP, в приложении верхнего уровня на нетбуке, на Delphi же, эти данные перехватываю и отображаю на Google-карте местоположение планшета в Wi-Fi сети

...для контроля есть и эхо.

В планшете:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
uses IdUDPClient, IdBaseComponent, IdComponent, IdUDPBase, IdUDPServer,
  Idglobal;
 
 
{ ИСХОДНЫЙ }
 
procedure TLocationForm.Button1Click(Sender: TObject);
begin
  nbTriggerDistance.Value := nbTriggerDistance.Value - 1;
end;
 
procedure TLocationForm.Button2Click(Sender: TObject);
begin
  nbTriggerDistance.Value := nbTriggerDistance.Value + 1;
end;
 
procedure TLocationForm.Button3Click(Sender: TObject);
begin
  nbAccuracy.Value := nbAccuracy.Value - 1;
end;
 
procedure TLocationForm.Button4Click(Sender: TObject);
begin
  nbAccuracy.Value := nbAccuracy.Value + 1;
end;
 
 
procedure TLocationForm.LocationSensor1LocationChanged(Sender: TObject;
  const OldLocation, NewLocation: TLocationCoord2D);
const
  LGoogleMapsURL: String = 'https://maps.google.com/maps?q=%s,%s&output=embed';
 
begin
  { convert the location to latitude and longitude }
  lbLatitude.Text := 'Latitude: ' + NewLocation.Latitude.ToString;
  lbLongitude.Text:= 'Longitude: ' + NewLocation.Longitude.ToString;
 
  { and track the location via Google Maps }
  WebBrowser1.Navigate(Format(LGoogleMapsURL, [NewLocation.Latitude.ToString, NewLocation.Longitude.ToString]));
end;
 
procedure TLocationForm.sbAccuracyChange(Sender: TObject);
begin
  { set the precision }
  LocationSensor1.Accuracy := nbAccuracy.Value;
end;
 
procedure TLocationForm.sbTriggerDistanceChange(Sender: TObject);
begin
  { set the triggering distance }
  LocationSensor1.Distance := nbTriggerDistance.Value;
end;
 
procedure TLocationForm.swLocationSensorActiveSwitch(Sender: TObject);
begin
  { activate or deactivate the location sensor }
  LocationSensor1.Active := swLocationSensorActive.IsChecked;
end;
 
 
{ Изменения }
 
procedure send(text: string);
begin
 IdUDPServer1.BroadcastEnabled:= True;
 IdUDPServer1.ThreadedEvent   := True;
 // Send Broadcast
 try
   IdUDPServer1.Active := true;
   IdUDPServer1.Broadcast(Text, 5007);
 except on Exception do
 end;
end;
 
 
procedure TLocationForm.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
  const AData: TIdBytes; ABinding: TIdSocketHandle);
var msg: string;
begin
 msg:= BytesToString(AData, Indy8BitEncoding);
 label3.Text:= 'Read port 5006: ' + msg;
 
 // реализуем эхо
 send('Echo: ' + msg);
end;
 
procedure TLocationForm.Timer1Timer(Sender: TObject);
begin
 send(lbLatitude.Text);
 send(lbLongitude.Text);
end;

На ПК/нетбуке:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
uses crtsock, ConvertToGPS, mshtml, activex;
 
type
 tdata = record
  zoom: integer;
  caption,
  date,
  url,
  deg,
  full_date,
  epicentr: string;
end;
 
var p  : integer;
    txt: tdata;
    tmr: TTimer;
    gl : integer = 0;
    gl_lat, gl_lon: string;
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
 if p > 0 then
  SendBroadCast(p, 5006, edit1.Text)
end;
 
procedure TForm1.Edit1Click(Sender: TObject);
begin
 edit1.Text:= ''
end;
 
 
 
///////////////////////////////////////////////////////////////////////////////
// РАБОТА С GOOGLE-MAPS 
// данные предоставлять в абсолютных GPS-координатах
const key = 'ABQIAAAAzr2EBOXUKnm_jVnk0OJI7xSosDVG8KKPE1-m51RBrvYughuyMxQ-i1QfUnH94QxWIa6N4U6MouMmBA';
      MapType = 'HYBRID'; //NORMAL SATELLITE HYBRID PHYSICAL
 
function HTML: string;
begin
 result:= '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"' +
          '"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">'#13 +
          '<html xmlns="http://www.w3.org/1999/xhtml" xmlns:v="urn:schemas-microsoft-com:vml">'#13 +
          '<head>'#13 +
          '<meta http-equiv="content-type" content="text/html; charset=utf-8"/>'#13 +
          '<title>Google Maps JavaScript API Example: Simple Map</title>'#13 +
          '<script src="http://maps.google.com/maps?file=api&amp;v=2&amp;key=' + key + '"'#13 +
          'type="text/javascript"></script>'#13 +
 
          '<script type="text/javascript">'#13 +
          'var map;'#13 +
          'var geocoder = new GClientGeocoder();'#13 +
 
          'function initialize() {'#13 +
          'if (GBrowserIsCompatible()) {'#13 +
          'map = new GMap2(document.getElementById("map_canvas"));'#13 +
          'map.setCenter(new GLatLng('+ txt.deg{Latitude +','+ Longitude)} +'),' +
          inttostr(txt.zoom) + ','+'G_' +
          MapType +'_MAP'+');'#13 +
 
          // панель навигатора и масштаба
          'map.addControl(new GLargeMapControl());'#13 + // добавляем шкалу зума
          'map.addControl(new GMapTypeControl());'#13 +  // переключатель типа карт (Карта, Спутник, Гибрид)
 
          // маркер на эпицентре с координатами в подсказке
          'var marker_point = new GLatLng('+ txt.deg +');'#13 +
          'var marker = new GMarker(marker_point, {title:"GPS: '+ txt.deg +'"});'#13 +
          'map.addOverlay(marker);'#13 +
          'marker.openInfoWindowHtml(''' + txt.caption + '<br />''+'#13 +
          ''''+ txt.full_date + '<br />''+'#13 +
          '''GPS: '+ txt.deg + '<br />''+'#13 +
          ''''+ txt.epicentr + '<br />'''#13 +
          ');'#13 +
 
          // формирование своего маркера с возможностью записи
          'GEvent.addListener(map, "click", function(overlay, latlng) {'#13 +
          'if (latlng) {'#13 +
          'marker = new GMarker(latlng, {draggable:true});'#13 +
          'GEvent.addListener(marker, "click", function() {'#13 +
          'var html = "<table>" +'#13 +
          '"<tr><td>Наименование:</td> <td><input type=''text'' id=''name''/> </td> </tr>" +'#13 +
          '"<tr><td>Адрес:</td> <td><input type=''text'' id=''address''/></td> </tr>" +'#13 +
          '"<tr><td>Тип:</td></tr>" +'#13 +
          '"<tr><td></td><td><input type=''button'' value=''Сохранить'' onclick=''SaveData()''/></td></tr></form>";'#13 +
          'marker.openInfoWindow(html);'#13 +
          '});'#13 +
          'map.addOverlay(marker);'#13 +
          '}'#13 +
          '});'#13 +
          '}}'#13 +
 
          'function addAdr(response) {'#13 +
                // создаем объект типа GLatLng и надпись
                'place = response.Placemark[0];'#13 +
                'point = new GLatLng(place.Point.coordinates[1],place.Point.coordinates[0]);'#13 +
                'marker = new GMarker(point);'#13 +
                //размещаем надпись на карте
                'map.addOverlay(marker);'#13 +
                //добавляем текст на надпись
                'marker.openInfoWindowHtml(place.address + ''<br />'' +'#13 +
                  '''Широта: '' + place.Point.coordinates[1] + ''<br />'' +'#13 +
                  '''Долгота: '' + place.Point.coordinates[0]);'#13 +
            '}'#13 +
 
          '</script>'#13 +
 
          '</head>'#13 +
          '<body onload="initialize()" onunload="GUnload()" scroll=no>'#13 +
          '<div id="map_canvas" style="width: '+
          inttostr(form1.wb.Width-20) + 'px; height: '+
          inttostr(form1.wb.Height-30) + 'px"></div>'#13 +
          '</body>'#13 +
          '</html>'#13
end;
 
 
procedure displayDataToBrowser(text_data: string; browser_storage: TWebBrowser);
var
   sl : TStringList;
   ms : TMemoryStream;
begin
   browser_storage.Navigate('about:blank');
 
   while browser_storage.ReadyState < READYSTATE_INTERACTIVE do
      Application.ProcessMessages;
 
   if Assigned(browser_storage.Document) then
   begin
     sl := TStringList.Create;
     try
       ms := TMemoryStream.Create;
       try
         sl.Text := text_data;
         sl.SaveToStream(ms);
         ms.Seek(0, 0);
         IHTMLDocument2(browser_storage.Document).Charset := 'Windows-1251';
         (browser_storage.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));
       finally
         ms.Free;
       end;
     finally
       sl.Free;
     end;
   end;
   browser_storage.OleObject.Document.ParentWindow.Scrollto(0, 0);
end;
 
 
 
procedure Tform1.on_tmr(Sender: TObject);
var temp: string;
begin
 if SockAvail(p) > 0 then temp:= trim(ReadBroadcast(p, 5007));
 // контроль эха
 if pos('Echo: ', temp) > 0 then
  edit2.Text:= copy(temp, 7, length(temp) - 6);
 
 if temp <> '' then begin
  temp:= StringReplace(temp, ',', '.', [rfReplaceAll]);
 
  // парсим Latitude Longitude
  if pos('Latitude: ', temp) > 0  then begin
   sb.Panels[0].Text:= 'GPS.' + temp;
   if pos('.', temp)>0 then gl_lat:= copy(temp, 11, length(temp) - 10)
    else gl_lat:= '';
  end;
 
  if pos('Longitude: ', temp) > 0 then begin
   sb.Panels[1].Text:= 'GPS.' + temp;
   if pos('.', temp)>0 then gl_lon:= copy(temp, 11, length(temp) - 10)
    else gl_lon:= '';
 
   // децимация
   inc(gl);
   sb.Panels[2].Text:= format('Next update, sec: %.1f', [(5*2 - gl)/2]);
   if gl > 5 {секунд} * 1000 div tmr.Interval then begin
    gl:= 0;
    sb.Panels[2].Text:= '';
    // визуализируем карту
    txt.caption  := 'Getting GPS coordinates from the tablet';
    txt.full_date:= 'Here could be your ad :)';
    txt.deg      := gl_lat + ',' + gl_lon; //'43.639833,-79.381027';
    txt.epicentr := 'http://raxp.radioliga.com';
    txt.zoom     := zoom.ItemIndex;
 
    if (gl_lon <> '')and(gl_lat <> '') then
     displayDataToBrowser(HTML, wb)
   end
  end
 
 end
end;
 
 
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 if p > 0 then CloseSocket(p)
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 // работаем в формате с точкой
 decimalseparator:= '.';
 // двойная буфферизация
 doublebuffered:= true;
 
 // старт броадкаст-приема по 5007 порту
 p:= StartBroadcast(5007);
 
 // таймер опроса
 gl:= 10; // чтобы первый раз сразу отработало
 tmr:= TTimer.Create(nil);
 tmr.OnTimer := on_tmr;
 tmr.Interval:= 500;
 tmr.Enabled := true;
end;

Фото и видео чуть попозжа.

raxper · 13.09.2013, 10:27

скриншот с верхнего уровня:

@Nonstopich · 13.09.2013, 13:20

Сообщение от Новичок

Nonstopich, ну куда вы торопитесь?Подождите,пока все баги уберут,сделают нормальную версию,тогда и пишите.

Пффф... А чего ждать-то? Продукт был в Bet'e-тестировании.
Выпустили, значит считают, что всё готово. А до Update1 ещё месяц, если не больше.

P.S
Проблему решил добавив иконку в приложение.
Project -> Options -> Application -> Icon 72x72.

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@proggamer12 17 / 17 / 4 Регистрация: 06.07.2012 Сообщений: 510

	Реальна ли возможность скачать Delphi для Android 22.08.2013, 23:32. Показов 18314. Ответов 27 Метки нет (Все метки) Здравствуйте. Нашел на сайте http://softwarepeople.ru/delph... ampaignId= ссылку на загрузку пробной версии Delphi с надписью "Попробуй первым RAD Studio для Android". При переходе на эту ссылку появляется ссылка на загрузку пробной версии Delphi XE4 Architect, но на информационной странице продукта нет упоминаний об Android. Так действительно ли в этом пробном релизе Delphi есть возможность работать с Android? Заранее благодарен за ответы. 0

raxper 10236 / 6614 / 498 Регистрация: 28.12.2010 Сообщений: 21,154 Записей в блоге: 1
	07.09.2013, 17:35
	Нет, не видел. Но вики на которой дата то 7-е, то 17-е: с несуществующей ссылкой, уж точно бы не доверял. Терпение. 0

raxper 10236 / 6614 / 498 Регистрация: 28.12.2010 Сообщений: 21,154 Записей в блоге: 1
	11.09.2013, 22:24
	свершилось \| забираем 1

Новичок 1682 / 1098 / 489 Регистрация: 17.07.2012 Сообщений: 5,360
	11.09.2013, 22:36
	Да здравствует Delphi For Android!!! 0

Новичок 1682 / 1098 / 489 Регистрация: 17.07.2012 Сообщений: 5,360
	13.09.2013, 08:41
	Nonstopich, ну куда вы торопитесь?Подождите,пока все баги уберут,сделают нормальную версию,тогда и пишите. 0

raxper 10236 / 6614 / 498 Регистрация: 28.12.2010 Сообщений: 21,154 Записей в блоге: 1
	13.09.2013, 10:27
	скриншот с верхнего уровня: 0