+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : بعث معلومات من VLC Form الى موقع (/showthread.php?tid=2802)
بعث معلومات من VLC Form الى موقع - yassine_hell - 17-02-2011
السلام عليكم
كيف يمكنني بعث معلومات من VLC Form الى صفحت ويب و ادخال تلك البيانات في حقل ما ثم فحص النتائج
جربت بـTWebBrowser لكن لم استطع بعث معلومات الى الصفحة ..
شكرا
بعث معلومات من VLC Form الى موقع - محمد عبد العزيز - 17-02-2011
السلام عليكم و رحمة الله
راجع هذا الموضوع
http://www.delphi4arab.net/forum/showthread.php?tid=2141
بعث معلومات من VLC Form الى موقع - yassine_hell - 17-02-2011
السلام عليكم
بعد المحاولة تم تنصيب المكون وهذا كود php
كود :
http.GetStr :='submit=submit';
http.ExecuteURL('http://site.com/index.php?user_id='+edit1.text);
showmessage(http.result_sl.Text);بعث معلومات من VLC Form الى موقع - kachwahed - 17-02-2011
yassine_hell كتب :في هذا الـ xhtml يستحسن إدراج Id وname معا وتساويهما لتحقيق معايير المتصفحات وW3C معا.كود :<input type="text" name="id" value="" ><br /> <input type="submit" name="submit" value="Login ">
بعث معلومات من VLC Form الى موقع - yassine_hell - 17-02-2011
تم ايجاد الحل
لكن واجهتني مشكلة بسيطة عند ادخال ID اخر وعمل submit تبقى نفس النتيجة (نتيجت الـID الاول)
جربت http.FreeOnRelease و http.free و http.FreeInstance لكن بدون جدوى
هذا الكود:
كود :
begin
for i := 1 to 2 do
begin
http.RequestMethod:='POST';
tmp:=i;
URL:='http://site.com.com/skystar/index.php?user_id=';
http.GetStr :='submit=submit';
http.ExecuteURL(URL+inttostr(tmp));
rslt:=http.result_sl.Text;
showmessage(http.result_sl.Text);
p:=pos('Successfully',rslt);
if p <> 0 then
begin
memo1.Lines.Add(inttostr(i));
end;
end;شكرا