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

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

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

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

  2. سید جعفر نیم‌رخ
    سید جعفر

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

  3. محمد نیم‌رخ
    محمد

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

    1. AHA نیم‌رخ
      AHA

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

      [+][+]

  4. فرهاد نیم‌رخ
    فرهاد

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

  5. Farhad نیم‌رخ
    Farhad

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

    1. ohdsati نیم‌رخ

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

  6. CYRUS نیم‌رخ
    CYRUS

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

    1. ‌A1Gard نیم‌رخ
      ‌A1Gard

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

  7. CYRUS نیم‌رخ
    CYRUS

    سپاسگزارم.

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

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