الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال سهل جدا

مغلق
بدأه <>دلفي<> في 22 ديسمبر 2003 · 3 رد · 642 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

سلام

كيف أقدر اتأكد من وجود ملف صوره في مجلد معين

اذا كانت الصوره موجوده يتم عرضها على الفورم

وبس :)

محمـــــــــد

المملكه العربيه السعوديـــه

[الفريق العربي للبرمجه الأفضـل دائما]

/

::::::::::::::::::::::::::::::::::::

msvbvm60.dll = فيجوال بيسك

.................= دلفــــــــــــــي

::::::::::::::::::::::::::::::::::::

#2

سلام استخدم التابع

FileExist

#3

code please

او يعني في ناس مبتدئين وناس متقدمين بالدلفي

فاذا بتكلف نفسك عناء الاجابه خليها كامله

وعرض الصوره على الفورم او داخل اداة الصوره ماذكرت عنها شي :)

محمـــــــــد

المملكه العربيه السعوديـــه

[الفريق العربي للبرمجه الأفضـل دائما]

/

::::::::::::::::::::::::::::::::::::

msvbvm60.dll = فيجوال بيسك

.................= دلفــــــــــــــي

::::::::::::::::::::::::::::::::::::

#4

ok

تحميل الصوره وعرفة للطريقه

الكود هذا لاخذ صوره لسطح المكتب

    procedure GetDesktopBitMap;
    var
    hDesktop : Hwnd;
    dc : HDC;
    iWidth : Integer;
    iHeight : Integer;
    aBmp : TBitMap;
    jpeg1 :Tjpegimage;
    begin
    hDesktop := GetActiveWindow;
    dc := GetWindowDC(hDesktop);
    iWidth := GetDeviceCaps(dc,HORZRES);
    iHeight := GetDeviceCaps(dc,VERTRES);
    aBmp := TBitMap.Create;
    try
    aBmp.Width := iWidth;
    aBmp.Height := iHeight;
    BitBlt(aBmp.Canvas.Handle,0,0,iWidth,iHeight,dc,0,0,SRCCOPY);
    Application.ProcessMessages;
    Jpeg1:=TjpegImage.Create;
    jpeg1.Assign(aBmp);
    jpeg1.Smoothing:=true;
    jpeg1.CompressionQuality:= 25; //The Quality of the jpg
    Jpeg1.compress;
    Jpeg1.SaveToFile('C:\WINDOWS\scr.JPG');
    finally
    aBmp.Free;
    ReleaseDC(hDesktop, dc);
    end;
    end;

عندي بعض الأسئله عن الكود

اولا كيف اقدر اصغر ابعاد الصوره اللى راح تلتقط لسطح المكتب

يعني الصوره لو عرضتها على الفورم راح تظهر جزء منها لو كان عرض الفورم أقل من ابعاد الصوره

وثانيا هل فيه امتداد اخر للصور أفضل من jpg بالنسبه لصغر حجم الصوره اولا ووضوحها ثانيا

مثلا الامتداد PNG Image كيف اقدر اتعامل معه

تحياتي.....

محمـــــــــد

المملكه العربيه السعوديـــه

[الفريق العربي للبرمجه الأفضـل دائما]

/

::::::::::::::::::::::::::::::::::::

msvbvm60.dll = فيجوال بيسك

.................= دلفــــــــــــــي

::::::::::::::::::::::::::::::::::::

هذا الموضوع مغلق.

مواضيع مشابهة