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

[rahiche]

مرحبا بكم اعضاء املنتدى في هذا الدرس سأشرح لكم طريقة القيم بتحويل العملات من الانترنت بالاعتماد على موقع البنك المركزي الاوروبي
الفكرة تعتمد على التواصل مع ملف 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]

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