بسم الله الرحمن الرحيم

المكتبة ChangeBmp.dll لتحويل صور Bmp إلى صيغ أخرى

ثلاث دوال لتحويل صورة BMP إلى JPG أو GIF أو PNG. يجب وضع الملف ChangeBmp.dll في المجلد System32 التابع للنظام.

التصريحات (إذا تم وضع التصريحات في Module فيمكن تغيير Private إلى Public):

Private Declare Function BitmapToJpg Lib "ChangeBmp.dll" (ByVal BmpFile As String, ByVal TargetFolder As String, ByVal JpgName As String) As Long
Private Declare Function BitmapToGif Lib "ChangeBmp.dll" (ByVal BmpFile As String, ByVal TargetFolder As String, ByVal GifName As String) As Long
Private Declare Function BitmapToPng Lib "ChangeBmp.dll" (ByVal BmpFile As String, ByVal TargetFolder As String, ByVal PngName As String) As Long

• الدالة الأولى (BitmapToJpg) تقوم بالتحويل من BMP إلى JPG.
• الدالة الثانية (BitmapToGif) تقوم بالتحويل من BMP إلى GIF.
• الدالة الثالثة (BitmapToPng) تقوم بالتحويل من BMP إلى PNG.

البارامترات:

• BmpFile: المسار الكامل لملف صورة الـ BMP المراد تحويلها.
• TargetFolder: المسار الكامل للمجلد حيث سيتم حفظ صورة JPG أو GIF الناتجة.
• JpgName أو GifName أو PngName: اسم الملف للصورة الناتجة (دون امتداد لأن الدالة ستعطيه تلقائياً الامتداد).

القيمة المعادة:

مثال:

    If BitmapToJpg("MyBmpImage.bmp", "D:\TestFolder", "MyJpgImage") = 0 Then
        MsgBox "Change to JPG error"
    Else
        MsgBox "JPG image creared"
    End If

نرجو الاستفادة و السلام.
    ناجي إبراهيم - دانية للبرمجيات - الزاوية - ليبيا.
najy_zl@yahoo.com