دخول

زكيري عبدالعالي · 27-06-2011, 08:35 AM

برمجة الزبون2-

بعدوضع المكونات التي في الصور نقوم بوضع الكود التالي على الزر
الهدف

قراءة الرقم المحرر من طرف المستخدم
ارساله الى خادم الويب
استقبال النتيجة الممثلة في شكل xml
وضعها في memo
وضعها فيclientdataset]

كود :
procedure TForm3.Button1Click(Sender: TObject);
var
  s : TMemoryStream;
  AStream : TFileStream;
begin
   s:=TMemoryStream.Create;
   TRY
      TRY
         idHTTP1.Get('http://localhost:8081/?id='+edit1.Text,s);
      EXCEPT ON E:Exception DO
      BEGIN
          showmessage('Connexion au serveur impossible!' +#13+E.message);
          exit;
      END;
      END;
 
      s.Seek(0, soFromBeginning);//S.position:=0;
      Memo1.Lines.LoadFromStream(s);
      ClientDataSet1.Close;
      ClientDataSet1.LoadFromStream(s);
      TRY
         ClientDataSet1.Open;
      EXCEPT ON E:Exception DO
        exit;
      END;
   FINALLY
      s.Free;
   end;
end;
 


هكذا انتهينا من webservice قراء ممتعة مع الموسوعة العربية للدلفي

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة