delphi4arab منتديات دلفي للعرب

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

[صورة: 20130414112950.png]

رسالة التفعيل
[صورة: 20130414112908.png]

طلب التفعيل

كود :
http://img40.imageshack.us/img40/9103/20130414112937.png

اما اداة التحكم
الرسائل
[صورة: 20130414113155.png]

الصفحة الرئيسية
[صورة: 20130414113401.png]

المهام

التحميل

كود :
http://www.mediafire.com/?p8e74vgpl0xsylm

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

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

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

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

كود :
http://www.mediafire.com/?q9yes343v5yju8d

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

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; 

وتعديل طفيف في الموقع
[صورة: 20130414173750.png]

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

كود :
http://www.mediafire.com/?zq22wc42dgifcfl

اضافة زر تحديث
عندما يكون الجواب UPD
[صورة: 20130419222531.png]

وذلك بارسال الامر
[صورة: 20130419222358.png]

وسنجد الزر مفعل
[صورة: 20130419222436.png]

كود زر تحميل

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; 

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

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

h-farid كتب :السلام عليكم و رحمة الله

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

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

onexite

onexite

onexite

onexite

h-farid

onexite