با لاخره قابلیت کامپایل و ایجاد فایلهای 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

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

سلام ممنون میشم لینک دانلود این APK را برام بفرستید
با تشکر
سلام. یه راهنمایی کوچولو می خواستم! وقتی در دلفی برای اندروید برنامه می نویسم کلمات فارسی رو برعکس نشون میده. شما می دونید چه جوری باید رفع بشه؟
سلام
منم یه راهنمایی کوچولو می خواستم
اینکه چطور SDK اندروید رو واسه دلفی دانلود و نصب و … کنم؟
SDK همراه خود دلفی نصب میشه، در لینک زیر میتونین نحوه کاربا Emulator رو ببینید.
[+][+]
سلام
من علاقه مندم برنامه نویسی برای ios کار کنم ، لطفا راهنمایی بفرمائید
با تشکر
با سلام و احترام
من قبلا با دلفی برنامه نویسی کردم ،اگر بخواهم از طریق دلفی برای ios برنامه بنویسم آیا نیاز به کدهای خاصی دارد؟یا با همان زبان پاسکال قابل اجراست؟
با تشکر فراوان
طبق گفته های مطلب، خیر فرقی ندارد
با سلام و احترام
با تشکر از شما بابت مطالب مفیدی که در سایت قرار دادید.
در دلفی یک برنامه آندروید طراحی و بعد از run کردن آن پیغامی مبنی بر غیر قابل نصب بودن ظاهر میشود.
unable to install project1.apk failure INSTALL_FAILD_DXPOT
خواهشمند است در صورت امکان راهنمایی کنید.
سلام و عرض حوش آمد
این موضوع به دلفی مربوط نیست به ماشین مجازی کار داره.
به پاسخ های سوال زیر مراجعه کنید:
https://stackoverflow.com/questions/5153515/how-to-solve-install-failed-dexopt-this-error
سپاسگزارم.