كود برنامج المراقبةزارجو مشاركتكم

أخى العزيز يمكنك الدخول هنا ستجد إن شاء الله ما تريد

http://www.arabteam2000.com/vb/showthread....&threadid=12903

اخ ابراهيم..

لقد قرأت ما في الوصلة زز لكن ذلك مع الشبكات ...

اذا كان بامكانك تعديل البرنامج ليحفظ الصور بهيئة jpg ...

فارجو ان ترسلة .....

شكرا

السلام عليكم

قي هذا النوع ستجد ان الصورة مخزنة على هيئة مصفوفة يتم تخزين كل بيكسل في هذه الصوره فما عليك الا ان تعرف متغير من نوع jpg ومن ثم وضع loop لنقلها في هذا المتغير الذي من نوع jpg وتوجد method جاهزه لتخزين الصوره بهذا النوع

عموما اذا كانت هناك نقطه غير واضحه ارجو السؤال

السلام عليكم..

اذا كان بامكانك ارسال الكود فاكون شاكر..لاني جربت كثيرا دون جدوي...

شكرا

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

هذا الكود باستخدام C++ builder وهي تابعة لنفس شركة delphi فاتوقع ان تكون متوفره ولكن مع بعض الاختلاف البسيط في الكود

عموما هذا هو الكود

TJPEGImage , Assign, SaveToFile example

This example converts a bitmap image to a jpeg file by using the Assign method.

void __fastcall TForm1::Button1Click(TObject *Sender)

{

//Requires "jpeg.hpp" to be included in the source file

TJPEGImage *jp = new TJPEGImage();

try

{

jp->Assign(Image1->Picture->Bitmap);

jp->SaveToFile("c:oneeye.jpg");

}

__ finally

{

delete jp;

}

}

___________

or by using pixels

/* there are two images to make the processes as:

m : to take the input image and store the original input image to make

the processes on it

res: to store the results of the image after making processes to

preview and save the results

*/

/* P is used to preview the image result */

Graphics::TBitmap *p=new Graphics::TBitmap();

IMAGE m=NULL;

IMAGE res=NULL;

TImage *Image;

/* Preview image on the result form */

for(i=0;iinfo->nr;i++)

for(j=0;jinfo->nc;j++)

if(res->data[j]==WHITE2)p->Canvas->Pixels[j]=(TColor)(0xFFFFFF);

else if(res->data[j]==BLACK)p->Canvas->Pixels[j]=(TColor)(0);

else if(res->data[j]==GREY)p->Canvas->Pixels[j]=(TColor)(0x323232);

Image->Picture->Assign(p);

delete p;

عموما res->data[j]

تعطيك قيمة البيكسل في الموقع i,j

فتستطيع بعمل loop

قراءة البيكسل لاي صورة وتخزينها بهذه الطريقة

وتستطيع عرض الصوره في النوعTImage فقط باستخدام نوع TBitmap وذلك لعرض النتيجة

وتستطيع معرفة المزيد عن TJPEGImage

وذلك بالبحث في المساعدة عن TJPEGImage

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

وبالتوفيق

تحيات

عنيزة

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

هذا الكود باستخدام C++ builder وهي تابعة لنفس شركة delphi فاتوقع ان تكون متوفره ولكن مع بعض الاختلاف البسيط في الكود

عموما هذا هو الكود

TJPEGImage , Assign, SaveToFile example

This example converts a bitmap image to a jpeg file by using the Assign method.

void __fastcall TForm1::Button1Click(TObject *Sender)

{

//Requires "jpeg.hpp" to be included in the source file

TJPEGImage *jp = new TJPEGImage();

try

{

jp->Assign(Image1->Picture->Bitmap);

jp->SaveToFile("c:oneeye.jpg");

}

__ finally

{

delete jp;

}

}

___________

or by using pixels

/* there are two images to make the processes as:

m : to take the input image and store the original input image to make

the processes on it

res: to store the results of the image after making processes to

preview and save the results

*/

/* P is used to preview the image result */

Graphics::TBitmap *p=new Graphics::TBitmap();

IMAGE m=NULL;

IMAGE res=NULL;

TImage *Image;

/* Preview image on the result form */

for(i=0;iinfo->nr;i++)

for(j=0;jinfo->nc;j++)

if(res->data[j]==WHITE2)p->Canvas->Pixels[j]=(TColor)(0xFFFFFF);

else if(res->data[j]==BLACK)p->Canvas->Pixels[j]=(TColor)(0);

else if(res->data[j]==GREY)p->Canvas->Pixels[j]=(TColor)(0x323232);

Image->Picture->Assign(p);

delete p;

عموما res->data[j]

تعطيك قيمة البيكسل في الموقع i,j

فتستطيع بعمل loop

قراءة البيكسل لاي صورة وتخزينها بهذه الطريقة

وتستطيع عرض الصوره في النوعTImage فقط باستخدام نوع TBitmap وذلك لعرض النتيجة

وتستطيع معرفة المزيد عن TJPEGImage

وذلك بالبحث في المساعدة عن TJPEGImage

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

وبالتوفيق

تحيات

عنيزة