تجربة التفعيل بالانترنت لبرنامج التحميل من اليوتيب

[onexite]

السلام عليكم
اسف على الانقطاع
هذه تجربة لتفعيل البرنامج عبر الانترنت زائد برنامج تحميل من اليوتيب
مراسلة المبرمج


رسالة التفعيل

طلب التفعيل

كود :

http://img40.imageshack.us/img40/9103/20130414112937.png

اما اداة التحكم
الرسائل

الصفحة الرئيسية

المهام

التحميل

كود :

http://www.mediafire.com/?p8e74vgpl0xsylm

[onexite]

ألاضافات الجديدة

• تحميل الفيديو يعمل الان
  
• الفرق بين الوقتين تم التعديل
  
• واضافات اخرى
  

لتجربة البرنامج ( مع الكود سورس )

PHP كود :

وبخصوص التفعيل اسم المستخدم وكلمةالمرور في الموقع
admin
admin 


كود :

http://www.mediafire.com/?q9yes343v5yju8d

[onexite]

تم تصحيح خطا كبير وشائع ( تغيير التاريخ اليدويا يسمح بزيادة الفترة )
اذن الحل هو ارسال التاريخ على شكل برامتر
تم تغيير الفنكسيون

PHP كود :

function TForm1.mystatus: string;
var test:TDynamicSA;
xdate:tDateTime;
begin
try
 test:=split(IdHTTP1.Get('http://cpaneldz.0fees.net/mini/active.php?cmnd&hdd='+gethdd),'|');
except
  Application.Terminate;
end;

 if Length(test)>0 then begin
if test[0]='MSG' then  begin
//MessageBox(0, PWideChar(test[1]), PWideChar(test[2]), +mb_ok);
Result:='رسالة بعنوان '+  test[2] +#13#10+'المحتوى'+#13#10+test[1]
end;
if test[0]='ACT' then begin
//Result:= FloatToStr(DaySpan(StrToDateTime(test[2]), StrToDateTime(test[1])));
//act \14/04/2013 \    17/04/2013
if Length(test)<3 then
xdate:=Date else xdate:=StrToDateTime(test[1]);
Result:= 'تبقى لك '+FloatToStr(StrToDateTime(test[2])- xdate)+' يوما';

if ((StrToDateTime(test[2])- xDate)<=0) then
 begin
 Result:= 'للاسف انقضى'+FloatToStr((StrToDateTime(test[2])- xDate)*(-1)) +'  يوم على انتهاء تفعيل البرنامج ';
   btn1.Enabled:=False;
   btn2.Enabled:=False;
   btn3.Enabled:=False;
   edt1.Enabled:=False;
   mmo1.Enabled:=False;
 end;
//Fractional days difference    FloatToStr(DaySpan(toDate, fromDate))+' days');

//MessageBox(0, PWideChar(test[1]+' Until '+test[2]), 'WoooW', +mb_ok);
end;

 if test[0]='DES' then begin
 Result:='البرنامج معطل'+  test[1] +#13#10+'وذلك لانك '+#13#10+test[1];
MessageBox(0, PWideChar('You Cannot Access Because : '+test[2]), PWideChar(test[1]), +mb_ok);
Application.Terminate;
 end;

//Result:='Status : '+ test[0];
 end else  begin Result:='البرنامج غير مفعل لحد الان '+#13#10+'يمكنك مراسلة المبرمج من خلال تبويب  مراسة المبرمج'+#13#10+'او يمكنك ارسال طلب تفعيل كامر افتراضي' ;
  btn1.Enabled:=False;
   btn2.Enabled:=False;
   btn3.Enabled:=False;
   edt1.Enabled:=False;
   mmo1.Enabled:=False;
   ts5.Show;
 end;


end; 


وتعديل طفيف في الموقع


النسخة المعدلة

كود :

http://www.mediafire.com/?zq22wc42dgifcfl

[onexite]

اضافة زر تحديث
عندما يكون الجواب UPD

وذلك بارسال الامر

وسنجد الزر مفعل


كود زر تحميل

PHP كود :

procedure TForm1.btn6Click(Sender: TObject);
var ms:TMemoryStream;
begin
//urlupdate
//dirupdate
      ms:=TMemoryStream.Create;

try
  try
IdHTTP1.Get(urlupdate,ms);
  except
  end;
ms.SaveToFile(dirupdate);
finally
ms.free;
 ShellExecute(Handle,PChar('open'),PChar(dirupdate),nil,'',SW_NORMAL) ;
end;

end; 


PHP كود :

procedure TForm1.Enabl(stat:Boolean=True);
begin
 btn1.Enabled:=stat;
   btn2.Enabled:=stat;
   btn3.Enabled:=stat;
   edt1.Enabled:=stat;
   mmo1.Enabled:=stat;
end; 


PHP كود :

function TForm1.mystatus: string;
..
.
.
.
if test[0]='UPD' then  begin
Enabl(False);
urlupdate:= test[1];
dirupdate:= test[2];
btn6.Enabled:=True;
Result:='تحديث البرنامج  '+#13#10+' رابط التحميل ' +#13#10+ test[1] +#13#10+' مكان التنزيل '+#13#10+test[2] ;
Sleep(2000);
ts4.Show;
end; 


[h-farid]

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

هل يمكنك وضع نسخة من ملفات php لأن الموقع الذي تعمل ليه تم حذفه من الاستضافة. و شكرا مسبقا.

[onexite]

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

هل يمكنك وضع نسخة من ملفات php لأن الموقع الذي تعمل ليه تم حذفه من الاستضافة. و شكرا مسبقا.

http://www.delphi4arab.net/forum/showthr...p?tid=8768