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

نسخة كاملة : كيف اتخطى اعتراض bitmap image is not valid
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم
كيف اتخطى اعتراض
bitmap image is not valid
عندادخال صورة غير   bitmap
اclientdataset
وعليكم السلام
بالإعتماد على 2 بايت في أول الملف "BM"
يمكنك التحقق من ملفات *.bmp مبدئيا
مصدر الكود
h__p://hiderin.air-nifty.com/delphi/ado/index.html
PHP كود :
// Bitmapかどうかを判定します。
 
 function IsBitmap(var Stream: TStream): Boolean;
 
 var
    Bmfh
: TBitmapFileHeader;
 
 begin
    Stream
.ReadBuffer(Bmfh, sizeof(Bmfh));
 
   Result := (Bmfh.bfType = $4D42);
 
   Stream.Position := 0; // 先頭に戻しておきます。
 
 end;