اسعار العملات بشكل دائم

بدأه بدر عبدو في 21 أبريل 2010 · 12 رد · 2,354 مشاهدة · في لغة Delphi

مشاركة: واتساب X فيسبوك تيليجرام

#121 أبريل 2010 في 19:55 صاحب الموضوع

هل استطيع ان اتصل موقع مثلاً

مثل http://finance.yahoo.com/currency-converter

واأحصل على العملات بشعر فوري عن طريق تحميل ملف Xml لقد وجدت برنامج يتصل بهذا الموقع و يحمل التحديثلت الأخيرة للعملات

الرجاء مساعدتي

والبرنامج في المرفقات

currency.rar

تم تعديل هذه المشاركة بواسطة زكيري عبد العالي في 27 أبريل 2010 في 17:11

#222 أبريل 2010 في 10:48

اهلا اخي

على الاقل القي السلام .

السلام عليكم و رحمه الله و بركاته .

نعم هناك مواقع تقدم هذه الخدمت مجانا و من افضلها و الذي استعمله في احد برامجي التي تقوم بتحديث القاعدة في كل ليله هو

http://www.webservicex.net/CurrencyConvertor.asmx?wsdl

اما عن الطريقة فهي في الدرس التالي

خدمت الويب و الدلفي

برمجة الزبون

اي كيفية الاستفادة من خدمت ويب بالدلفي على العموم ساشرح لك قليلا

بعد اضافة زبون دلفي يصنع لك هذا الكود wsdl

// ************************************************************************ //
// The types declared in this file were generated from data read from the
// WSDL File described below:
// WSDL     : http://www.webservicex.net/CurrencyConvertor.asmx?wsdl
//  >Import : http://www.webservicex.net/CurrencyConvertor.asmx?wsdl:0
// Encoding : utf-8
// Version  : 1.0
// (26/11/2009 12:04:23 - * $Rev: 3108 $)
// ************************************************************************ //

unit net.webservicex.www;

interface

uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;

const
  AS_UNBOUNDED = false;

type

  // ************************************************************************ //
  // The following types, referred to in the WSDL document are not being represented
  // in this file. They are either aliases[@] of other types represented or were referred
  // to but never[!] declared in the document. The types from the latter category
  // typically map to predefined/known XML or Borland types; however, they could also 
  // indicate incorrect WSDL documents that failed to declare or import a schema type.
  // ************************************************************************ //
  // !:double          - "http://www.w3.org/2001/XMLSchema"


  { "http://www.webserviceX.NET/"[GblSmpl] }
  Currency = (
      AFA, 
..
..
..
      TRY_
);


  // ************************************************************************ //
  // Namespace : http://www.webserviceX.NET/
  // soapAction: http://www.webserviceX.NET/ConversionRate
  // transport : http://schemas.xmlsoap.org/soap/http
  // style     : document
  // binding   : CurrencyConvertorSoap
  // service   : CurrencyConvertor
  // port      : CurrencyConvertorSoap
  // URL       : http://www.webservicex.net/CurrencyConvertor.asmx
  // ************************************************************************ //
  CurrencyConvertorSoap = interface(IInvokable)
  ['{A1817D10-F9A2-B6F6-30E2-8FFB22ABBD60}']
    function  ConversionRate(const FromCurrency: Currency; const ToCurrency: Currency): Double; stdcall;
  end;

function GetCurrencyConvertorSoap(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): CurrencyConvertorSoap;


implementation
  uses SysUtils;

function GetCurrencyConvertorSoap(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): CurrencyConvertorSoap;
const
  defWSDL = 'http://www.webservicex.net/CurrencyConvertor.asmx?wsdl';
  defURL  = 'http://www.webservicex.net/CurrencyConvertor.asmx';
  defSvc  = 'CurrencyConvertor';
  defPrt  = 'CurrencyConvertorSoap';
var
  RIO: THTTPRIO;
begin
  Result := nil;
  if (Addr = '') then
  begin
    if UseWSDL then
      Addr := defWSDL
    else
      Addr := defURL;
  end;
  if HTTPRIO = nil then
    RIO := THTTPRIO.Create(nil)
  else
    RIO := HTTPRIO;
  try
    Result := (RIO as CurrencyConvertorSoap);
    if UseWSDL then
    begin
      RIO.WSDLLocation := Addr;
      RIO.Service := defSvc;
      RIO.Port := defPrt;
    end else
      RIO.URL := Addr;
  finally
    if (Result = nil) and (HTTPRIO = nil) then
      RIO.Free;
  end;
end;


initialization
  InvRegistry.RegisterInterface(TypeInfo(CurrencyConvertorSoap), 'http://www.webserviceX.NET/', 'utf-8');
  InvRegistry.RegisterDefaultSOAPAction(TypeInfo(CurrencyConvertorSoap), 'http://www.webserviceX.NET/ConversionRate');
  InvRegistry.RegisterInvokeOptions(TypeInfo(CurrencyConvertorSoap), ioDocument);
  RemClassRegistry.RegisterXSInfo(TypeInfo(Currency), 'http://www.webserviceX.NET/', 'Currency');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(Currency), 'TRY_', 'TRY');

end.

تنشأ نافدة مثل الصورة

procedure TF_CurrencyUpdate.Button1Click(Sender: TObject);
var
   vresult :Double;
begin
     FEuroConverter:=GetCurrencyConvertorSoap();
     vresult:=  FEuroConverter.ConversionRate(StringToCurrency(trim(Cbx_to.Text)),StringToCurrency(trim(Cbx_from.Text)));
     Txt_Result.Text:=(FormatFloat('##0.###0',vresult));
end;

تم تعديل هذه المشاركة بواسطة زكيري عبد العالي في 22 أبريل 2010 في 19:04

#322 أبريل 2010 في 12:28

السلام عليكم ورحمة الله وبركاته

شكراً لك يا أخي زكيري جزاك الله خيراً

نسيتها القاء التحية وشكراً لتنبيهي

#422 أبريل 2010 في 13:33

السلام عليكم

هلا بيك اي زكيري نورت المكان :)

اخي العزيز بدر عبدو لقد قمت بعمل برنامج قبل عامين للحصول علي اسعار العملات من البورصة بشكل فوري اي عند كل تغير علي العملة بشكل لحظي كما في برامج الفوريكس ولكن بطريقة الالتفاف وهي اني قمت بتنزيل برنامج المضاربة الشهير Mt4 Meta Trader ومن خيارات النظام يوجد خاصية التبادل DDE Server قم بتفعيلها وانشي حساب مجاني علي النظام ليتم تحديث اسعار العملات بشكل تلقائي وسريع (جزء من الثانية )

المرحلة الثانية هي برنامج الدلفي :

في قسم الادوات system يوجد ادوات الربط التبادلي

وهما DdeClientConv

و DdeClientItem

والاداة DdeClientConv مهمتها الربط مع نظام Mt من الخاصية DdeService تقوم بوضع اسم النظام (الفوريكس) وهو MT4

وفي الخاصية DdeTopic تضع القيمة Quote

الاداة الاخري وهي DdeClientItem وهي خاصة بجلب معلومات عملة معينة فمن الخاصية DdeConv تختار الأداة الاولي من القائمة المنسدلة ومن الخاصية DdeItem تضع اسم الزوج مثلا EURUSD سيقوم بجلب بيانات العملات(اليورو/الدولار)

وهي التاريخ وسعر العرض وسعر الطلب ومن الحدث OnChange يمكن توزيع البيانات لاي جزء من نظامك .

وبمجرد تغير العملة من برنامج المضاربة ستجدها تتغير ايضا في نظامك بنفس اللحظة .

وها هي صورة توضيحية من النظام قبل اكثر من عامين

ملاحظة / للحصول علي بيانات زوج اخر ستقوم بادراج اداة اخري منDdeClientItem و تقوم فقط بتغيير الخاصية DdeItem لاسم الزوج الجديد وليكن مثلا GOLD للذهب .

------------------------

طبعا كل هذا كان عندي موجود علي السيرفر وقمت بعمل برنامج اخر يقوم بالاتصال بالبرنامج الاول عن طريق الSocket لحصول علي اسعاء العملات من اي مكان وبدون وجود برنامج المضاربة عند كل زبون :)

طريقة طويلة وشاقة ولكن هذا اعفانا من دفع الاف الدولارات لوكالة Reuters لتزويدنا باسعار العملات بشكل مباشر :) عقل العربي ما يعرف الاستسلام ههههههههههه

تحياتي لك ولاخي زكيري

تم تعديل هذه المشاركة بواسطة prof_1982 في 22 أبريل 2010 في 13:51

الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.

إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.

#522 أبريل 2010 في 14:01

اهلا بك اخي prof_1982 و جازاك الله شكرا على هذه طريقة نسميها نحن automation لكن

اقتباس
طريقة طويلة وشاقة ولكن هذا اعفانا من دفع الاف الدولارات لوكالة Reuters لتزويدنا باسعار العملات بشكل مباشر :) عقل العربي ما يعرف الاستسلام ههههههههههه

دفع الاف الدولارات برنامجي يشتغل من اشهر 6 اضن و لم القي اي مشكل و لا لم ادفع سنتيما واحد لان الخدمت مجانية و هناك العديد من الخدمات الاخرى مشايبها كما انك يمكنك استعمال طريقة اخرى من خلال API اي ارسالة برتامترات على موقع مثل google و تضهر النتيجة في صفحة الويب ثم يتم قراءتها بالمكون TWebBrowser وعضها كما تريد لكن احسن استعمال الخدمت .

يمكنك استراد عدت خدمات في مشروع واحد و تربط المشروع مع خدمت معينتة و عندما تريد التحويل و كان السرفر متوقف مثلا تتحول الى خدمت اخرى لكن انا اكد ان الموقع الذي اعطيته لحد الان لم يتوقف .

نسيت ان اعطيك وضيفة التحوبل

function StringToCurrency(StrCurrency : string) :Currency;
begin
      if StrCurrency = 'AFA' then begin  Result:=AFA ; Exit; end;
      if StrCurrency = 'ALL' then begin  Result:=ALL ; Exit; end;
      if StrCurrency = 'DZD' then begin  Result:=DZD ; Exit; end;
      if StrCurrency = 'ARS' then begin  Result:=ARS ; Exit; end;
      if StrCurrency = 'AWG' then begin  Result:=AWG ; Exit; end;
      if StrCurrency = 'AUD' then begin  Result:=AUD ; Exit; end;
      if StrCurrency = 'BSD' then begin  Result:=BSD ; Exit; end;
      if StrCurrency = 'BHD' then begin  Result:=BHD ; Exit; end;
      if StrCurrency = 'BDT' then begin  Result:=BDT ; Exit; end;
      if StrCurrency = 'BBD' then begin  Result:=BBD ; Exit; end;
      if StrCurrency = 'BZD' then begin  Result:=BZD ; Exit; end;
      if StrCurrency = 'BMD' then begin  Result:=BMD ; Exit; end;
      if StrCurrency = 'BTN' then begin  Result:=BTN ; Exit; end;
      if StrCurrency = 'BOB' then begin  Result:=BOB ; Exit; end;
      if StrCurrency = 'BWP' then begin  Result:=BWP ; Exit; end;
      if StrCurrency = 'BRL' then begin  Result:=BRL ; Exit; end;
      if StrCurrency = 'GBP' then begin  Result:=GBP ; Exit; end;
      if StrCurrency = 'BND' then begin  Result:=BND ; Exit; end;
      if StrCurrency = 'BIF' then begin  Result:=BIF ; Exit; end;
      if StrCurrency = 'XOF' then begin  Result:=XOF ; Exit; end;
      if StrCurrency = 'XAF' then begin  Result:=XAF ; Exit; end;
      if StrCurrency = 'KHR' then begin  Result:=KHR ; Exit; end;
      if StrCurrency = 'CAD' then begin  Result:=CAD ; Exit; end;
      if StrCurrency = 'CVE' then begin  Result:=CVE ; Exit; end;
      if StrCurrency = 'KYD' then begin  Result:=KYD ; Exit; end;
      if StrCurrency = 'CLP' then begin  Result:=CLP ; Exit; end;
      if StrCurrency = 'CNY' then begin  Result:=CNY ; Exit; end;
      if StrCurrency = 'COP' then begin  Result:=COP ; Exit; end;
      if StrCurrency = 'KMF' then begin  Result:=KMF ; Exit; end;
      if StrCurrency = 'CRC' then begin  Result:=CRC ; Exit; end;
      if StrCurrency = 'HRK' then begin  Result:=HRK ; Exit; end;
      if StrCurrency = 'CUP' then begin  Result:=CUP ; Exit; end;
      if StrCurrency = 'CYP' then begin  Result:=CYP ; Exit; end;
      if StrCurrency = 'CZK' then begin  Result:=CZK ; Exit; end;
      if StrCurrency = 'DKK' then begin  Result:=DKK ; Exit; end;
      if StrCurrency = 'DJF' then begin  Result:=DJF ; Exit; end;
      if StrCurrency = 'DOP' then begin  Result:=DOP ; Exit; end;
      if StrCurrency = 'XCD' then begin  Result:=XCD ; Exit; end;
      if StrCurrency = 'EGP' then begin  Result:=EGP ; Exit; end;
      if StrCurrency = 'SVC' then begin  Result:=SVC ; Exit; end;
      if StrCurrency = 'EEK' then begin  Result:=EEK ; Exit; end;
      if StrCurrency = 'ETB' then begin  Result:=ETB ; Exit; end;
      if StrCurrency = 'EUR' then begin  Result:=EUR ; Exit; end;
      if StrCurrency = 'FKP' then begin  Result:=FKP ; Exit; end;
      if StrCurrency = 'GMD' then begin  Result:=GMD ; Exit; end;
      if StrCurrency = 'GHC' then begin  Result:=GHC ; Exit; end;
      if StrCurrency = 'GIP' then begin  Result:=GIP ; Exit; end;
      if StrCurrency = 'XAU' then begin  Result:=XAU ; Exit; end;
      if StrCurrency = 'GTQ' then begin  Result:=GTQ ; Exit; end;
      if StrCurrency = 'GNF' then begin  Result:=GNF ; Exit; end;
      if StrCurrency = 'GYD' then begin  Result:=GYD ; Exit; end;
      if StrCurrency = 'HTG' then begin  Result:=HTG ; Exit; end;
      if StrCurrency = 'HNL' then begin  Result:=HNL ; Exit; end;
      if StrCurrency = 'HKD' then begin  Result:=HKD ; Exit; end;
      if StrCurrency = 'HUF' then begin  Result:=HUF ; Exit; end;
      if StrCurrency = 'ISK' then begin  Result:=ISK ; Exit; end;
      if StrCurrency = 'INR' then begin  Result:=INR ; Exit; end;
      if StrCurrency = 'IDR' then begin  Result:=IDR ; Exit; end;
      if StrCurrency = 'IQD' then begin  Result:=IQD ; Exit; end;
      if StrCurrency = 'ILS' then begin  Result:=ILS ; Exit; end;
      if StrCurrency = 'JMD' then begin  Result:=JMD ; Exit; end;
      if StrCurrency = 'JPY' then begin  Result:=JPY ; Exit; end;
      if StrCurrency = 'JOD' then begin  Result:=JOD ; Exit; end;
      if StrCurrency = 'KZT' then begin  Result:=KZT ; Exit; end;
      if StrCurrency = 'KES' then begin  Result:=KES ; Exit; end;
      if StrCurrency = 'KRW' then begin  Result:=KRW ; Exit; end;
      if StrCurrency = 'KWD' then begin  Result:=KWD ; Exit; end;
      if StrCurrency = 'LAK' then begin  Result:=LAK ; Exit; end;
      if StrCurrency = 'LVL' then begin  Result:=LVL ; Exit; end;
      if StrCurrency = 'LBP' then begin  Result:=LBP ; Exit; end;
      if StrCurrency = 'LSL' then begin  Result:=LSL ; Exit; end;
      if StrCurrency = 'LRD' then begin  Result:=LRD ; Exit; end;
      if StrCurrency = 'LYD' then begin  Result:=LYD ; Exit; end;
      if StrCurrency = 'LTL' then begin  Result:=LTL ; Exit; end;
      if StrCurrency = 'MOP' then begin  Result:=MOP ; Exit; end;
      if StrCurrency = 'MKD' then begin  Result:=MKD ; Exit; end;
      if StrCurrency = 'MGF' then begin  Result:=MGF ; Exit; end;
      if StrCurrency = 'MWK' then begin  Result:=MWK ; Exit; end;
      if StrCurrency = 'MYR' then begin  Result:=MYR ; Exit; end;
      if StrCurrency = 'MVR' then begin  Result:=MVR ; Exit; end;
      if StrCurrency = 'MTL' then begin  Result:=MTL ; Exit; end;
      if StrCurrency = 'MRO' then begin  Result:=MRO ; Exit; end;
      if StrCurrency = 'MUR' then begin  Result:=MUR ; Exit; end;
      if StrCurrency = 'MXN' then begin  Result:=MXN ; Exit; end;
      if StrCurrency = 'MDL' then begin  Result:=MDL ; Exit; end;
      if StrCurrency = 'MNT' then begin  Result:=MNT ; Exit; end;
      if StrCurrency = 'MAD' then begin  Result:=MAD ; Exit; end;
      if StrCurrency = 'MZM' then begin  Result:=MZM ; Exit; end;
      if StrCurrency = 'MMK' then begin  Result:=MMK ; Exit; end;
      if StrCurrency = 'NAD' then begin  Result:=NAD ; Exit; end;
      if StrCurrency = 'NPR' then begin  Result:=NPR ; Exit; end;
      if StrCurrency = 'ANG' then begin  Result:=ANG ; Exit; end;
      if StrCurrency = 'NZD' then begin  Result:=NZD ; Exit; end;
      if StrCurrency = 'NIO' then begin  Result:=NIO ; Exit; end;
      if StrCurrency = 'NGN' then begin  Result:=NGN ; Exit; end;
      if StrCurrency = 'KPW' then begin  Result:=KPW ; Exit; end;
      if StrCurrency = 'NOK' then begin  Result:=NOK ; Exit; end;
      if StrCurrency = 'OMR' then begin  Result:=OMR ; Exit; end;
      if StrCurrency = 'XPF' then begin  Result:=XPF ; Exit; end;
      if StrCurrency = 'PKR' then begin  Result:=PKR ; Exit; end;
      if StrCurrency = 'XPD' then begin  Result:=XPD ; Exit; end;
      if StrCurrency = 'PAB' then begin  Result:=PAB ; Exit; end;
      if StrCurrency = 'PGK' then begin  Result:=PGK ; Exit; end;
      if StrCurrency = 'PYG' then begin  Result:=PYG ; Exit; end;
      if StrCurrency = 'PEN' then begin  Result:=PEN ; Exit; end;
      if StrCurrency = 'PHP' then begin  Result:=PHP ; Exit; end;
      if StrCurrency = 'XPT' then begin  Result:=XPT ; Exit; end;
      if StrCurrency = 'PLN' then begin  Result:=PLN ; Exit; end;
      if StrCurrency = 'QAR' then begin  Result:=QAR ; Exit; end;
      if StrCurrency = 'ROL' then begin  Result:=ROL ; Exit; end;
      if StrCurrency = 'RUB' then begin  Result:=RUB ; Exit; end;
      if StrCurrency = 'WST' then begin  Result:=WST ; Exit; end;
      if StrCurrency = 'STD' then begin  Result:=STD ; Exit; end;
      if StrCurrency = 'SAR' then begin  Result:=SAR ; Exit; end;
      if StrCurrency = 'SCR' then begin  Result:=SCR ; Exit; end;
      if StrCurrency = 'SLL' then begin  Result:=SLL ; Exit; end;
      if StrCurrency = 'XAG' then begin  Result:=XAG ; Exit; end;
      if StrCurrency = 'SGD' then begin  Result:=SGD ; Exit; end;
      if StrCurrency = 'SKK' then begin  Result:=SKK ; Exit; end;
      if StrCurrency = 'SIT' then begin  Result:=SIT ; Exit; end;
      if StrCurrency = 'SBD' then begin  Result:=SBD ; Exit; end;
      if StrCurrency = 'SOS' then begin  Result:=SOS ; Exit; end;
      if StrCurrency = 'ZAR' then begin  Result:=ZAR ; Exit; end;
      if StrCurrency = 'LKR' then begin  Result:=LKR ; Exit; end;
      if StrCurrency = 'SHP' then begin  Result:=SHP ; Exit; end;
      if StrCurrency = 'SDD' then begin  Result:=SDD ; Exit; end;
      if StrCurrency = 'SRG' then begin  Result:=SRG ; Exit; end;
      if StrCurrency = 'SZL' then begin  Result:=SZL ; Exit; end;
      if StrCurrency = 'SEK' then begin  Result:=SEK ; Exit; end;
      if StrCurrency = 'CHF' then begin  Result:=CHF ; Exit; end;
      if StrCurrency = 'SYP' then begin  Result:=SYP ; Exit; end;
      if StrCurrency = 'TWD' then begin  Result:=TWD ; Exit; end;
      if StrCurrency = 'TZS' then begin  Result:=TZS ; Exit; end;
      if StrCurrency = 'THB' then begin  Result:=THB ; Exit; end;
      if StrCurrency = 'TOP' then begin  Result:=TOP ; Exit; end;
      if StrCurrency = 'TTD' then begin  Result:=TTD ; Exit; end;
      if StrCurrency = 'TND' then begin  Result:=TND ; Exit; end;
      if StrCurrency = 'TRL' then begin  Result:=TRL ; Exit; end;
      if StrCurrency = 'USD' then begin  Result:=USD ; Exit; end;
      if StrCurrency = 'AED' then begin  Result:=AED ; Exit; end;
      if StrCurrency = 'UGX' then begin  Result:=UGX ; Exit; end;
      if StrCurrency = 'UAH' then begin  Result:=UAH ; Exit; end;
      if StrCurrency = 'UYU' then begin  Result:=UYU ; Exit; end;
      if StrCurrency = 'VUV' then begin  Result:=VUV ; Exit; end;
      if StrCurrency = 'VEB' then begin  Result:=VEB ; Exit; end;
      if StrCurrency = 'VND' then begin  Result:=VND ; Exit; end;
      if StrCurrency = 'YER' then begin  Result:=YER ; Exit; end;
      if StrCurrency = 'YUM' then begin  Result:=YUM ; Exit; end;
      if StrCurrency = 'ZMK' then begin  Result:=ZMK ; Exit; end;
      if StrCurrency = 'ZWD' then begin  Result:=ZWD ; Exit; end;
      if StrCurrency = 'TRY' then begin  Result:=TRY_ ; Exit; end;

      Result:=TRY_;
end;

ربما تحسنها انت لانه ليس عندي الوقت .

هده الصورة توضح الربوت الذي يقوم بتعديل كل ليلة

تم تعديل هذه المشاركة بواسطة زكيري عبد العالي في 22 أبريل 2010 في 14:08

#622 أبريل 2010 في 18:22

السلام عليكم ورحمة الله وبركاته

الله يعطيكم العافية باي الطريقتين تنصحوني

الله يجزيكم الخير لكن لم افهم الشرح بشكل كافي في الاثنتين

#722 أبريل 2010 في 19:03

اهلا اخي

مادا الذي لم تفهمه

مرحلة واحد

http://www.webservicex.net/CurrencyConvertor.asmx?wsdl

هي خدمت واب يجب عليك ان تقوم باستغلالها كبف انظر الدرس

برمجة الزبون

امت تعتبر زبون لهذه الخدمت طبعا .

مرحل 2 و 3 بعد ما تنتهي من 1

#824 أبريل 2010 في 13:19

اقتباس
دفع الاف الدولارات برنامجي يشتغل من اشهر 6 اضن و لم القي اي مشكل و لا لم ادفع سنتيما واحد لان الخدمت مجانية و هناك العديد من الخدمات الاخرى مشايبها كما انك يمكنك استعمال طريقة اخرى من خلال API اي ارسالة برتامترات على موقع مثل google و تضهر النتيجة في صفحة الويب ثم يتم قراءتها بالمكون TWebBrowser وعضها كما تريد لكن احسن استعمال الخدمت .

اخي زكيري كلامك صحيح ولكن المشكلة ان هذه المواقع تقدم اسعار العملات غير محدثة او علي الاقل يتم تحديثها كل 5 دقائق وهذا النوع من Delay لا يتماشي مع متطلبات مشروعي حيث المطلوب ان يتتم قرائة الاسعار لحظة بلحظة حال تحركها فمثلا احيانا

يتحرك الزوج EURUSD ثلاث (3) تحركات صعودا وهبوطا في الثانية الواحدة هذا ما دعاني لسلك الطريقة السابقة .

فانا هنا اتكلم عن عملات البورصة وليست تحويل العملات التي لن يكون هناك مشكلة في التأخر حتي لو 12 ساعة .

تحياتي لك

الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.

إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.

#924 أبريل 2010 في 18:56

لقد قمت بالعمل على الموضوع و لكن عند اتحويل من عملة الى عملة تعطي النتيجة صفر

و هذا المرفق

currency.zip

#1025 أبريل 2010 في 20:20

أللسلام عليكم

تطبيقك بشتغل ربما هناك قيم 0 لكن سارا في تطبيقي هل يعطي نفس النتيجة ام لا لكن انا اليوم في البت

currency.rar

تم تعديل هذه المشاركة بواسطة زكيري عبد العالي في 25 أبريل 2010 في 20:22

#1125 أبريل 2010 في 20:47

السلام عليكم ورحمة الله وبركاته

جزاك الله خيراً يا أخي زكيري ربي يجزيك كل خير و يعطيك العافية

#1226 أبريل 2010 في 10:31

شكرا اخي الكريم اجمعين يارب .

بعد ان تعبت و طبقت الدرس تستاهل الكود سورس بتاعي

CurrencyUpdate.rar

تم تعديل هذه المشاركة بواسطة زكيري عبد العالي في 26 أبريل 2010 في 10:32

#1327 أبريل 2010 في 13:11

شكرا اخي prof_1982 على طريقتك التي اشرت عليها هل اعطيتنا تفاصيل اكثر لاني لم استطع تجربها بارك الله فيك

مواضيع مشابهة

اريد موقع يقدم خدمة اسعار العملات3 رد · 24 مايو 2003
[مخالف - طلب حل : ]كود جافا لتغير شكل الماوس للويندوز بشكل دائم2 رد · 24 أغسطس 2013
الرسالة تظهر بشكل دائم!4 رد · 3 أكتوبر 2004
كيف أضع لنك للبنر أو الصور بشكل دائم؟؟؟1 رد · 2 مارس 2006
أسعار العملات يومياً3 رد · 7 يونيو 2005
نقل اسعار العملات او المعادن3 رد · 9 أبريل 2007