Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2014.10.19;
Скачать: CL | DM;

Вниз

помогите с компонентом   Найти похожие ветки 

 
dron9999 ©   (2009-02-25 21:02) [0]

Привет всем такая проблема я не знаю как разобраться с компонентом JpegObj.pas читал RM но Егорры кароч такие
сократил! что делать подскажите !

[Error] MainUnit.pas(15): $IFEND expected but $ENDIF found
PegObj.pas(918): File not found: "JPegObj\jcmainct.obj"
[Error] JPegObj.pas(919): File not found: "JPegObj\jcprepct.obj"
[Error] JPegObj.pas(920): File not found: "JPegObj\jccoefct.obj"
[Error] JPegObj.pas(921): File not found: "JPegObj\jccolor.obj"
[Error] JPegObj.pas(922): File not found: "JPegObj\jcsample.obj"
[Error] JPegObj.pas(923): File not found: "JPegObj\jcdctmgr.obj"
[Error] JPegObj.pas(924): File not found: "JPegObj\jcphuff.obj"

[Error] JPegObj.pas(944): Unsatisfied forward or external declaration: "jpeg_finish_compress"
[Fatal Error] MainUnit.pas(117): Could not compile used unit "JPegObj.pas"


 
MBo ©   (2009-02-26 08:59) [1]

Что это за "компонент", и зачем с ним нужно разбираться?


 
dron9999 ©   (2009-02-26 09:12) [2]

Да все разобрался ! ..
Он для работы с файлами *.Jpg *.bmp


 
MBo ©   (2009-02-26 09:18) [3]

ну есть же TJpegImage в стандартной поставке


 
dron9999 ©   (2009-02-26 19:17) [4]

Как переделать из .bmp в jpg в { KOL }
Вот мой код я получаю .bmp но вес у него оч большой !!!
Пожалуйста помогите решить эту проблему !!!!
использую JPegObj
===================================
var
Filename: String;
Bmp: PBitmap;
   ScreenDC: HDC;
   Format: TPixelFormat;
begin
 if ParamCount<1 then
begin
FileName:=Paramstr(0);
delete(FileName,Length(FileName)-3,4);
FileName:="_.bmp"
end else
FileName:=Paramstr(1);
ScreenDC := GetDC( 0 );
 case GetDeviceCaps( ScreenDC, BITSPIXEL ) of
 1, 4, 8, 15, 16: Format := pf16bit;
 else {24, 32:} Format := pf24bit;
 end;
Bmp := NewDIBBitmap( R.Right - R.Left, R.Bottom - R.Top, Format );
BitBlt( Bmp.Canvas.Handle, 0, 0, Bmp.Width, Bmp.Height, ScreenDC, R.Left, R.Top, SRCCOPY );
ReleaseDC( 0, ScreenDC );
bmp.free;
  end;
     end;


 
dron9999 ©   (2009-02-26 21:26) [5]

TJpegImage -у меня его нет =( где достать ???



Страницы: 1 вся ветка

Текущий архив: 2014.10.19;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.007 c
2-1383324995
Vvasja
2013-11-01 20:56
2014.10.19
Открыть папку и вфделить файл


15-1394310602
Юрий
2014-03-09 00:30
2014.10.19
С днем рождения ! 9 марта 2014 воскресенье


15-1394277894
turbouser
2014-03-08 15:24
2014.10.19
XE5 up2


15-1394599548
Ярлык
2014-03-12 08:45
2014.10.19
Поместить ярлык интернет соединения на рабочий стол


15-1394470373
robt5
2014-03-10 20:52
2014.10.19
изменение памяти чужого процесса