آخرين پست هاي ارسالي انجمن ايران دلفي

دانلود رایگان کامپوننت های دلفی آکادمی دلفی
نمایش نتایج: از 1 به 1 از 1

موضوع: خطای stream read error

  1. #1
    کاربر سایت takfanar آواتار ها
    تاریخ عضویت
    December 2018
    نوشته ها
    1
    تشکر ها
    0
    تشکر شده 0 بار در 0 ارسال.

    خطای stream read error


    When I examine more than 9000 files with this Delphi code , I am having Error :stream Read Error
    Error :stream Read Error


    Freeandnill tested


    Stream.Free;
    MemStr.Free;


    Tested




    خطای stream read errorسلامواحتراممنمیخام۵۰هزارتافایلبااینچککنمولیبعدازدههزارتاباخطای stream read error روبرومیشوم
    کد:
    [delphi]varForm1: TForm1;JPG_HEADER: array[0..2] of byte = ($FF, $D8, $FF);GIF_HEADER: array[0..2] of byte = ($47, $49, $46);BMP_HEADER: array[0..1] of byte = ($42, $4D);PNG_HEADER: array[0..3] of byte = ($89, $50, $4E, $47);TIF_HEADER: array[0..2] of byte = ($49, $49, $2A);TIF_HEADER2: array[0..2] of byte = (77, 77, 00); typeTImageType = (ifUnknown, ifJPG, ifGIF, ifBMP, ifPNG, ifTIF); implementation {$R *.dfm} function TypeToStr(ImageType: TImageType): String;begincase ImageType ofifJPG: Result := 'Image/JPEG';ifGIF: Result := 'Image/GIF';ifPNG: Result := 'Image/PNG';ifBMP: Result := 'Image/BMP';ifTIF: Result := 'Image/TIFF';elseResult := 'Unknown Type';end;end; function GetImageType(FileName: String): TImageType;varStream: TFileStream;MemStr: TMemoryStream;buf: integer;tmp: string;beginResult := ifUnknown;Stream := TFileStream.Create(FileName, fmOpenRead);MemStr := TMemoryStream.Create;tryMemStr.CopyFrom(Stream, 5);if MemStr.Size > 4 thenbegin// uncomment these lines to detect "unknown types"// MemStr.Position:=0;// MemStr.Read(buf,1);// showmessage(inttostr(ord(buf)));// MemStr.Read(buf,1);// showmessage(inttostr(ord(buf)));// MemStr.Read(buf,1);// showmessage(inttostr(ord(buf))); if CompareMem(MemStr.Memory, @JPG_HEADER, SizeOf(JPG_HEADER)) thenResult := ifJPGelse if CompareMem(MemStr.Memory, @GIF_HEADER, SizeOf(GIF_HEADER)) thenResult := ifGIFelse if CompareMem(MemStr.Memory, @PNG_HEADER, SizeOf(PNG_HEADER)) thenResult := ifPNGelse if CompareMem(MemStr.Memory, @BMP_HEADER, SizeOf(BMP_HEADER)) thenResult := ifBMPelse if CompareMem(MemStr.Memory, @TIF_HEADER, SizeOf(TIF_HEADER)) thenResult := ifTIFelse if CompareMem(MemStr.Memory, @TIF_HEADER2, SizeOf(TIF_HEADER2)) thenResult := ifTIF;end;finallyStream.Free;MemStr.Free;end;end; procedure TForm1.Button1Click(Sender: TObject);varFileName: String;it: TImageType;beginif OpenDialog1.Execute thenbeginFileName := OpenDialog1.FileName;it := GetImageType(FileName);Label1.Caption := TypeToStr(it);end;end;
    ویرایش توسط takfanar : 05 / December / 2018 در ساعت 11:17 PM

موضوعات مشابه

  1. رفع Error
    توسط majid در انجمن Embarcadero RAD Studio
    پاسخ: 10
    آخرين نوشته: 05 / December / 2018, 07:45 PM
  2. Error هنگام ذخیره فایل در درایو C
    توسط msi1393 در انجمن Embarcadero RAD Studio
    پاسخ: 0
    آخرين نوشته: 15 / April / 2017, 06:44 PM
  3. خطای Access Violation Error بر روی فایل RTL210.bpl
    توسط salame_sabz در انجمن Embarcadero RAD Studio
    پاسخ: 0
    آخرين نوشته: 27 / April / 2016, 11:02 AM
  4. اضافه کردن قابلیت File Stream به یک دیتابیس
    توسط admin در انجمن SQLServer 2008
    پاسخ: 1
    آخرين نوشته: 20 / January / 2015, 12:48 AM
  5. پاسخ: 5
    آخرين نوشته: 21 / September / 2013, 01:09 PM

علاقه مندي ها (Bookmarks)

علاقه مندي ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •