برنامه نویسی اندروید در دلفی

با لاخره قابلیت کامپایل و ایجاد فایلهای APK سیستم عامل اندروید به دلفی اضافه شد.این کامایلر بر خلاف اکثر کامپایلرهای موجود Java Dalvik bytecode تولید نمیکند بله کدهای باینری مختص به خود ARM پلتفورم اندروید را تولید میکند.تا کنون برای ایجاد کدهای باینری اندروید مجبور به استفاده از ++c بودید ولی اکنون با استفاده از این کامپایلر شما به راحتی میتوانید از تمامی قابلیتهای دلفی و کامپوننتهای آن برای ایجاد برنامه های اندروید استفاده کنید مانند user interface , data access, data binding, sensors, internet and cloud support

کدنویسی برای اندروید تفاوتی با کدنویسی برای IOS ندارد و به راحتی میتوانید از آن کدها و کامپوننتهای استاندارارد برای هر ۲ زمینه استفاده کنید

procedure THeaderFooterForm.RefreshFeeds (fSource: TRSSFeedSource);
var
strUrl: string;
strXml: string;
title, author, pubDate, url: string;
I: Integer;
ChannelNode, ItemNode: IXMLNode;
ListBoxItem: TListBoxItem;
TargetList: TListBox;
LabelStatus: Tlabel;
begin
case fSource of
fsDelphiFeeds:
begin
strUrl := 'http://feeds.delphifeeds.com/delphifeeds';
TargetList := ListBoxDelphi;
LabelStatus := LabelStatusD;
end;
fsEmbarcaderoBlogs:
begin
strUrl := 'http://blogs.embarcadero.com/feeds/wpmu-feed/';
TargetList := ListBoxEmbt;
LabelStatus := LabelStatuse;
end;
end;
try
strXml := IdHTTP1.Get (strUrl);
except
on E: Exception do
begin
ShowMessage ('Error: ' + E.Message);
Exit;
end;
end;
XMLDocument1.LoadFromXML(strXml);
XMLDocument1.Active := True;
LabelStatus.Text := 'Processing RSS';
LabelStatus.Repaint;
TargetList.BeginUpdate;
try
TargetList.Clear;
ChannelNode := XMLDocument1.DocumentElement.ChildNodes.FindNode ('channel');
for I := 0 to ChannelNode.ChildNodes.Count - 1 do
begin
ItemNode := ChannelNode.ChildNodes[I];
if ItemNode.NodeName = 'item' then
begin
LabelStatus.Text := 'Processing Node ' + I.ToString;
title := ItemNode.ChildValues ['title'];
pubDate := ItemNode.ChildValues ['pubDate'];
case fSource of
fsDelphiFeeds: author := ItemNode.ChildValues ['author'];
fsEmbarcaderoBlogs: author := ItemNode.ChildValues ['creator'];
end;
url := ItemNode.ChildValues ['link'];
 ListBoxItem := TListBoxItem.Create(TargetList);
ListBoxItem.Text := title;
ListBoxItem.ItemData.Detail := author + ' - ' + Copy(pubDate, 1, 11);
ListBoxItem.TagString := url;
TargetList.AddObject(ListBoxItem);
end;
end;
finally
TargetList.EndUpdate;
end;
LabelStatus.Text := 'RSS Processed';
end;

این کد را میتوانید در Delphi xe4 هم برای ویندوز هم برای IOS و هم برای Android کامپایل کنید نمونه کامایل شده برای IOS

 

 

نمونه کامپایل شده برای اندروید