+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف اتخطى اعتراض bitmap image is not valid (/showthread.php?tid=8550)
كيف اتخطى اعتراض bitmap image is not valid - jeanjamil - 28-03-2017
السلام عليكم
كيف اتخطى اعتراض
bitmap image is not valid
عندادخال صورة غير bitmap
اclientdataset
RE: كيف اتخطى اعتراض bitmap image is not valid - Agmcz - 29-03-2017
وعليكم السلام
بالإعتماد على 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;