Lelik Lelikov

здравствуйте! помогите переписать функцию под fmx. проблема с: Assert(bitmap.PixelFormat in [pf24bit, pf32bit]); и BytesPerScanLine function BitmapToIplImage(const bitmap: {$IFDEF DELPHIXE2_UP}Vcl.Graphics.TBitmap{$ELSE}Graphics.TBitmap{$ENDIF}): PIplImage; Var BMI: BITMAPINFO; MemDC: HDC; DS: TDIBSection; Bytes: Integer; begin Assert(bitmap.PixelFormat in [pf24bit, pf32bit]); // only 24bit or 32bit ZeroMemory(@BMI, SizeOf(BMI)); Bytes := GetObject(bitmap.Handle, SizeOf(DS), @DS); Assert(Bytes <> 0, 'InvalidBitmap'); with bitmap, BMI.bmiHeader, DS.dsbm do begin biSize := SizeOf(BMI); biWidth := Width; biHeight := -Height; biPlanes := 1; biBitCount := bmBitsPixel * bmPlanes; biSizeImage := BytesPerScanLine(biWidth, biBitCount, 32) * Abs(biHeight); end; Result := cvCreateImage(cvSize(bitmap.Width, bitmap.Height), IPL_DEPTH_8U, BMI.bmiHeader.biBitCount div 8); MemDC := CreateCompatibleDC(0); SelectObject(MemDC, bitmap.Handle); GetDIBits(MemDC, bitmap.Handle, 0, bitmap.Height, Result^.ImageData, BMI, DIB_RGB_COLORS); DeleteDC(MemDC); end;

все равно закрывается без ошибок. я уже и так понял в чем проблема, не понимаю только как решить. В общем у меня трехзвенка. Сервер, Клиент, база mysql. Работает на DataSnap. При вводе логина и пароля, если данные верные, то от сервера должны придти данные ФИО, дата рождения, пол и фото. Фото передается в TStream вставляется в TImage. И результат - под виндой все хорошо работает, на андроид без передачи фото тоже все хорошо работает, данные приходят. А вот если с фото, приложение падает

Slym, спасибо

здравствуйте! Есть TImage. Нужно при кратковременном нажатии на нем выезжала панель MultiView, а если нажали и держат на TImage, то меню не выезжала, а человек мог переместить картинку по экрану. Почти все уже это сделано. Только вот меню вылазит при любом раскладе, просто ли нажали или переместили картинку по экрану. Возможно как то это отследить?