مرحبا بكم اعضاء املنتدى في هذا الدرس سأشرح لكم طريقة القيم بتحويل العملات من الانترنت بالاعتماد على موقع البنك المركزي الاوروبي
الفكرة تعتمد على التواصل مع ملف xml فكما نعلم فهذا النوع من الملفات يسهل الكثير من العمل و الوصول الى المعلومات فيه مثل الوصول للمعلومات في اي قاعدة بينات لكنه يتيميز عندما لكونه معرف لدى اغلب الانضمة يمكنننا استخدماه في مشاريع الويب او سطح المكتب او الاجهزة الذكية هذا الملف يحدث يوميا من الموقع
ققم باضافة الواحدات التالية لقسم المستعملات msxmldom, XMLIntf, XMLDoc
ثم صمم نومذجك الاخص مثلا هذا الشكل
الان قم باضافة هذه المتغيرات
ثم في الكود اكتب
ال FormatSettings هل للتحكم في صيغة النتيجة و الوصول لها
MYXMLDocument يتم انشاء الكائن ثم تحميله بالبيانات من الرابط
'http://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml'
اما الشياء الاخرى فكلها عبارة عن اوامر للتحكم و الوصول للبيانات بلغة xml و ان شاء الله سيكون لنا معها دروس
للاشارة الكود منقول من اسطوانة del123
الكود سورس كامل في المرفقات
الفكرة تعتمد على التواصل مع ملف 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;
MYXMLDocument يتم انشاء الكائن ثم تحميله بالبيانات من الرابط
'http://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml'
اما الشياء الاخرى فكلها عبارة عن اوامر للتحكم و الوصول للبيانات بلغة xml و ان شاء الله سيكون لنا معها دروس
للاشارة الكود منقول من اسطوانة del123
الكود سورس كامل في المرفقات