تحويل الاسعار"العملات" اونلاين

تحويل الاسعار"العملات" اونلاين - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : دروس دلفي للمبتدئين (https://delphi4arab.net/forum/forumdisplay.php?fid=13)
+--- الموضوع : تحويل الاسعار"العملات" اونلاين (/showthread.php?tid=7126)

تحويل الاسعار"العملات" اونلاين - rahiche - 03-08-2015

مرحبا بكم اعضاء املنتدى في هذا الدرس سأشرح لكم طريقة القيم بتحويل العملات من الانترنت بالاعتماد على موقع البنك المركزي الاوروبي
الفكرة تعتمد على التواصل مع ملف xml فكما نعلم فهذا النوع من الملفات يسهل الكثير من العمل و الوصول الى المعلومات فيه مثل الوصول للمعلومات في اي قاعدة بينات لكنه يتيميز عندما لكونه معرف لدى اغلب الانضمة يمكنننا استخدماه في مشاريع الويب او سطح المكتب او الاجهزة الذكية هذا الملف يحدث يوميا من الموقع
ققم باضافة الواحدات التالية لقسم المستعملات msxmldom, XMLIntf, XMLDoc
ثم صمم نومذجك الاخص مثلا هذا الشكل

كود :
http://store2.up-00.com/2015-08/143861445431.png

الان قم باضافة هذه المتغيرات

كود :
var
  TempNode, MyNode: IXMLNode;
  i: Integer;
  MyEur: Currency;
  MYXMLDocument: TXMLDocument;
  FS: TFormatSettings;
 TheRate: Single;

ثم في الكود اكتب

كود :
[CODE] FillChar(FS, SizeOf(FS), 0);
  FS.DecimalSeparator := '.';
  if not TryStrToCurr(Edit1.Text, MyEur) then
  begin
    MyEur := 0;
    Edit1.Text := '0';
    Edit1.SetFocus;
    Edit1.SelectAll;
  end;
  FormatSettings.DecimalSeparator := '.';
  FormatSettings.ThousandSeparator := ',';
  MYXMLDocument := TXMLDocument.Create(self);
  try
    MYXMLDocument.LoadFromFile
      ('http://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml');
    MyNode := MYXMLDocument.DocumentElement.ChildNodes[2].ChildNodes[0];
    for i := 0 to MyNode.ChildNodes.Count - 1 do
    begin
      TempNode := MyNode.ChildNodes.Get(i);
      TheRate := StrToFloat(TempNode.Attributes['rate'], FS);
      if TempNode.Attributes['currency'] = 'USD' then
        Edit2.Text := FormatFloat('##0.00', MyEur * TheRate);
    end;
  finally
    MYXMLDocument.Free;
  end;

ال FormatSettings هل للتحكم في صيغة النتيجة و الوصول لها
MYXMLDocument يتم انشاء الكائن ثم تحميله بالبيانات من الرابط
'http://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml'
اما الشياء الاخرى فكلها عبارة عن اوامر للتحكم و الوصول للبيانات بلغة xml و ان شاء الله سيكون لنا معها دروس
للاشارة الكود منقول من اسطوانة del123
الكود سورس كامل في المرفقات

تحويل الاسعار"العملات" اونلاين - bassem_43 - 04-08-2015

بارك الله فيك اخي رؤوف على الدرس الجيد
اظن الرابط الاول لا يشتغل حاول تعديله
بالتوفيق في دروس اخرى