برای طرح سوال و دسترسی به آموزش ها  کانال ما در تلگرام بپویندید  

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

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

DelphiFeedsDesign

کدنویسی برای اندروید تفاوتی با کدنویسی برای 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

DelphiFeedsIos

 

 

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

DelphiFeedsAndroid

انتشار

در

توسط

نظرات

10 پاسخ به “برنامه نویسی اندروید در دلفی”
  1. zohreh

    سلام ممنون میشم لینک دانلود این APK را برام بفرستید
    با تشکر

  2. سید جعفر

    سلام. یه راهنمایی کوچولو می خواستم! وقتی در دلفی برای اندروید برنامه می نویسم کلمات فارسی رو برعکس نشون میده. شما می دونید چه جوری باید رفع بشه؟

  3. محمد

    سلام
    منم یه راهنمایی کوچولو می خواستم
    اینکه چطور SDK اندروید رو واسه دلفی دانلود و نصب و … کنم؟

    1. AHA

      SDK همراه خود دلفی نصب میشه، در لینک زیر میتونین نحوه کاربا Emulator رو ببینید.

      [+][+]

  4. فرهاد

    سلام
    من علاقه مندم برنامه نویسی برای ios کار کنم ، لطفا راهنمایی بفرمائید
    با تشکر

  5. Farhad

    با سلام و احترام
    من قبلا با دلفی برنامه نویسی کردم ،اگر بخواهم از طریق دلفی برای ios برنامه بنویسم آیا نیاز به کدهای خاصی دارد؟یا با همان زبان پاسکال قابل اجراست؟
    با تشکر فراوان

    1. طبق گفته های مطلب، خیر فرقی ندارد

  6. CYRUS

    با سلام و احترام
    با تشکر از شما بابت مطالب مفیدی که در سایت قرار دادید.
    در دلفی یک برنامه آندروید طراحی و بعد از run کردن آن پیغامی مبنی بر غیر قابل نصب بودن ظاهر میشود.
    unable to install project1.apk failure INSTALL_FAILD_DXPOT
    خواهشمند است در صورت امکان راهنمایی کنید.

    1. ‌A1Gard

      سلام و عرض حوش آمد
      این موضوع به دلفی مربوط نیست به ماشین مجازی کار داره.
      به پاسخ های سوال زیر مراجعه کنید:
      https://stackoverflow.com/questions/5153515/how-to-solve-install-failed-dexopt-this-error

  7. CYRUS

    سپاسگزارم.

دیدگاهتان را بنویسید

نشانی ایمیل شما منتشر نخواهد شد. بخش‌های موردنیاز علامت‌گذاری شده‌اند *