مشروع تجاري مضاد سرقة الجهاز افكار وسورس
#31
تم برمجة مكون مفيد وهو لتصوير الكام وسطح المكتب هي وحدة خاصة ب schwarzesonenrat قمت بالتعديل عليها والان يدعم وينداوز 7 و 8 و اجهزة الاب توب الحديثة 32 و 64 بت

[صورة مرفقة: 20130531120352.jpg]


المكون في اسفل الموضوع
اما الواجهة الرئيسية
[صورة مرفقة: 20130601153424.jpg]


الملفات المرفقة
.rar   Webcam.rar (الحجم : 352.33 KB / التحميلات : 222)
الرد
#32
مارئيكم في لوحة التحكم القديمة ام هذه افضل ؟

[صورة مرفقة: 20130601154424.jpg]
استخدام المكون
سطح المكتب
PHP كود :
var Bitmap:TBitmap;
begin
Bitmap
:=TBitmap.Create;
try
CamHelper1.StartCam(0);
CamHelper1.GetImage(Bitmap) ;
img1.Picture.Assign(Bitmap);
finally
Bitmap.Free;
end
الكام
PHP كود :
var Bitmap:TBitmap;
begin
Bitmap
:=TBitmap.Create;
try
CamHelper1.GetCams;
if 
CamHelper1.CamCount>0 then begin
CamHelper1
.StartCam(1);
CamHelper1.GetImage(Bitmap) ;
img1.Picture.Assign(Bitmap);
end;
finally
Bitmap.Free;
end
الرد
#33
المشروع في الحقيقة أصبح رائعاً
ولكن كيف ستقوم بتسويقه؟
Wink
الرد
#34
السلام عليكم ورحمة الله تعالى وبركاته.

ماشاء الله برنامج رائع.

ما الحل اذا السارق لم يستخدم النت؟:d
الرد
#35
piratewar كتب :المشروع في الحقيقة أصبح رائعاً
ولكن كيف ستقوم بتسويقه؟

هنا يكمن المشكل !!
الرد
#36
بن دهيبة كتب :السلام عليكم ورحمة الله تعالى وبركاته.

ماشاء الله برنامج رائع.

ما الحل اذا السارق لم يستخدم النت؟:d

لاتوجد طريقة اخرى للارسال غير استخدام النت
ولاكن تاكد انه لا يحتاج الا لدقيقة على الاكثر ليكمل مهمته
الرد
#37
هذا شرح للاستخدام البرنامج على اليوتيب
كود :
http://www.youtube.com/watch?v=eoSpps0FT9I
الرد
#38
PHP كود :
if varcommand <>command then
     
if Strings[0]='3' then begin
     
if play then
     PlaySound
(2);
      
Form13.show;
     if 
Length(Strings[1])>0 then
     Form13
.sMemo1.Text:=Strings[1];
     
sAlphaImageList1.GetIcon(39img2.Picture.Icon);
    
// sAlphaImageList1.GetIcon(9, CoolTrayIcon1.Icon);

     
Form13.tmr1.Enabled:=True;
     
command:= varcommand;
     
end

PHP كود :
procedure TForm1.PlaySound(_type:integer);
 var
   
hFindhResTHandle;
   
SongPChar;
 
begin
   
if _type=1 then
  hFind 
:= FindResource(HInstance'sound''WAV') ;
    if 
_type=2 then
  hFind 
:= FindResource(HInstance'mail''WAV') ;
  if 
hFind <> 0 then begin
    hRes
:=LoadResource(HInstancehFind) ;
    if 
hRes <> 0 then begin
      Song
:=LockResource(hRes) ;
      if 
Assigned(Songthen SndPlaySound(Songsnd_ASync or snd_Memory) ;
      
UnlockResource(hRes) ;
    
end;
    
FreeResource(hFind) ;
  
end;

end
[صورة مرفقة: j667.jpg]

PHP كود :
private
    
procedure WMSysCommand(var MsgTWMSysCommand); message WM_SYSCOMMAND;
    { Private 
declarations }
  public
    { Public 
declarations }
  
end;

var
  
Form13TForm13;
  
closeme:Boolean=False;
implementation

{$R *.dfm}

procedure TForm13.tmr1Timer(SenderTObject);
begin

 sGauge1
.Progress:=sGauge1.Progress-1;
if 
sGauge1.Progress 1 then begin
//Form13.FormStyle:=fsNormal;
closeme:=True;
tmr1.Enabled:=False;
Close;
end else
begin
   Application
.BringToFront;
 
Form13.FormStyle:=fsStayOnTop;
end;
end;

procedure TForm13.FormShow(SenderTObject);
var
  
RectTRect;
begin
  sGauge1
.Progress:=100;
  
DoubleBuffered := true;                                   // On évite le scintillement
  
Left:= Screen.Width ClientWidth 10;                    // La form se tiendra pile à droite de l'écran
  
SystemParametersInfo(SPI_GETWORKAREA0, @Rect0);       // On récupère la hauteur de la barre des tâches
  
Top := Screen.Height - (Screen.Height Rect.Bottom) - Height 2;



end;

procedure TForm13.FormCloseQuery(SenderTObject; var CanCloseBoolean);
begin
CanClose
:=closeme;
end;

procedure TForm13.WMSysCommand(var MsgTWMSysCommand);
begin
if ((msg.CmdType and $FFF0) = SC_MOVEthen begin msg.Result:=0; exit; endinherited;
end
الرد
#39
اضافة خاصية التحديث
لااعرف اذا كانت هذه الطريقة مستخدمة عند عامةالمبرمجين ولاكن هذه فكرتها العامة
[صورة مرفقة: ltpl.png]
PHP كود :
var
  
Form15TForm15;

implementation

    
function cdir():string;
 
begin
   Result
:=ExtractFilePath(Application.ExeName) ;
 
end;
{
$R *.dfm}
  const 
version '1.0.0';
procedure TForm15.sButton1Click(SenderTObject);
var 
ms:TMemoryStream;
vars:string;
begin
  sMemo1
.Clear;
  try
  
vars:=IdHTTP1.Get('http://site.com/updat/update.txt');
  
except on e:Exception do
    
sMemo1.Lines.Add(e.message);
    
end;
  if 
vars  version then
   begin
sMemo1
.Lines.Add('Anti-Theft is up date!') ;
   Exit;
    
end else
sMemo1.Lines.Add('A new version of Anti-Theft is available. ') ;
sMemo1.Lines.Add('Version : '+vars) ;
ms:=TMemoryStream.Create;
try
IdHTTP1.Get('http://site.com/updat/update.tmp',ms);
ms.SaveToFile(cdir+'tmp.exe');
if 
FileExists(cdir+'tmp.exe'then begin
WinExec
(PAnsiChar(cdir+'tmp.exe'),1) ;
Close;
 
Application.Terminate;
 
end;
finally
ms.Free;
end;
end;

procedure TForm15.IdHTTP1WorkBegin(SenderTObjectAWorkModeTWorkMode;
  const 
AWorkCountMaxInteger);
begin
sProgressBar1
.Max := AWorkCountMax;
sProgressBar1.Position := 0;
end;

procedure TForm15.IdHTTP1Work(SenderTObjectAWorkModeTWorkMode;
  const 
AWorkCountInteger);
begin
sProgressBar1
.Position := AWorkCount;
end;

procedure TForm15.sButton2Click(SenderTObject);
begin
Close
;
end;

end
الرد
#40
بوركت اخي
ولكن عن نفسي لو استعمل لاب توب راح اخترق نفسي بسرفر خاص بي
وهكدا لو سرق احد جهازي راح انتضر ه يتصل بالانترنت واصوره بنفسي هدا احسن بكثير والله اعلم
موفق اخي
الرد


التنقل السريع :


مستخدمين يتصفحوا هذا الموضوع: 1 ضيف