Сохранить JPEG

@SeryZone · Регистрация: 09.03.2012

Студворк — интернет-сервис помощи студентам

Дюльфи сохраняет JPEG (12800x7200 где-то) за 32 секунды, пока фотошоп в то же время делает это за 7 секунд. Вопрос: как можно при 100% качестве сохранить огромный JPEG за кратчайшее время?

@noname_club · 04.11.2013, 11:17

сторонние библиотеки?

@SeryZone · 04.11.2013, 16:51 **[ТС]**

noname_club, типа того...

Добавлено через 6 минут
Народ, нашёл сохранение на FASM.

Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
 format PE GUI 4.0         
  
 include 'win32w.inc'         
  
 struct GdiplusStartupInput         
        GdiplusVersion           dd ?         
        DebugEventCallback       dd ?         
        SuppressBackgroundThread dd ?          
        SuppressExternalCodecs   dd ?         
 ends         
  
 struct ImageCodecInfo         
        Clsid             db 16 dup ?         
        FormatID          db 16 dup ?         
        CodecName         dd ?         
        DllName           dd ?         
        FormatDescription dd ?         
        FilenameExtension dd ?         
        MimeType          dd ?         
        Flags             dd ?         
        Version           dd ?         
        SigCount          dd ?         
        SizeSize          dd ?         
        SigPattern        dd ?         
        SigMask           dd ?         
 ends         
  
 section '.text' code readable executable         
  
 entry $         
  
              invoke  GdiplusStartup,token,input,NULL         
              test    eax,eax         
              jnz     exit         
  
              invoke  GdipGetImageEncodersSize,encoders_count,encoders_size         
              test    eax,eax         
              jnz     gdiplus_shutdown         
              invoke  VirtualAlloc,0,[encoders_size],MEM_COMMIT,PAGE_READWRITE         
              test    eax,eax         
              jz      gdiplus_shutdown         
              mov     ebx,eax         
              invoke  GdipGetImageEncoders,[encoders_count],[encoders_size],ebx         
              test    eax,eax         
              jnz     gdiplus_shutdown         
          scan_encoders:         
              mov     esi,[ebx+ImageCodecInfo.MimeType]         
              mov     edi,encoder_mimetype         
              mov     ecx,11         
              repe    cmpsw         
              je      encoder_found         
              add     ebx,sizeof.ImageCodecInfo         
              dec     [encoders_count]         
              jnz     scan_encoders         
              ; no encoder found         
              jmp     gdiplus_shutdown         
           encoder_found:         
              lea     esi,[ebx+ImageCodecInfo.Clsid]         
              mov     edi,encoder_clsid         
              mov     ecx,4         
              rep     movsd         
              invoke  VirtualFree,ebx,0,MEM_RELEASE         
  
              invoke  GetDC,HWND_DESKTOP         
              test    eax,eax         
              jz      gdiplus_shutdown         
              mov     esi,eax         
              invoke  GetSystemMetrics,SM_CYSCREEN         
              mov     [screen_height],eax         
              invoke  GetSystemMetrics,SM_CXSCREEN         
              mov     [screen_width],eax         
              invoke  CreateCompatibleBitmap,esi,[screen_width],[screen_height]         
              test    eax,eax         
              jz      release_desktop_dc         
              mov     ebx,eax         
              invoke  CreateCompatibleDC,esi         
              test    eax,eax         
              jz      delete_bitmap         
              mov     edi,eax         
              invoke  SelectObject,edi,ebx         
              test    eax,eax         
              jz      delete_dc         
              invoke  BitBlt,edi,0,0,[screen_width],[screen_height],esi,0,0,SRCCOPY         
              test    eax,eax         
              jz      delete_dc         
  
              invoke  GdipCreateBitmapFromHBITMAP,ebx,NULL,gdip_bitmap         
              test    eax,eax         
              jnz     delete_dc         
  
              invoke  GdipSaveImageToFile,[gdip_bitmap],file_name,encoder_clsid,NULL         
  
              invoke  GdipDisposeImage,[gdip_bitmap]         
        delete_dc:         
              invoke  DeleteObject,edi         
        delete_bitmap:         
              invoke  DeleteObject,ebx         
        release_desktop_dc:         
              invoke  ReleaseDC,HWND_DESKTOP,esi         
        gdiplus_shutdown:         
              invoke  GdiplusShutdown,[token]         
        exit:         
              invoke  ExitProcess,0         
  
 section '.data' data readable writeable         
  
        file_name du 'test.jpg',0         
  
        encoder_mimetype du 'image/jpeg',0         
        encoder_clsid db 16 dup ?         
  
        input GdiplusStartupInput 1         
        token dd ?         
        memdc dd ?         
        gdip_bitmap dd ?         
  
        encoders_count dd ?         
        encoders_size dd ?         
  
        screen_width dd ?         
        screen_height dd ?         
  
 section '.rdata' data readable         
  
 data import         
  
        library kernel32,'KERNEL32.DLL',\         
                user32,'USER32.DLL',\         
                gdi32,'GDI32.DLL',\         
                gdiplus, 'GDIPLUS.DLL'         
  
        include 'api\kernel32.inc'         
        include 'api\user32.inc'         
        include 'api\gdi32.inc'         
  
        import  gdiplus,\         
                GdiplusStartup,'GdiplusStartup',\         
                GdiplusShutdown,'GdiplusShutdown',\         
                GdipGetImageEncodersSize,'GdipGetImageEncodersSize',\         
                GdipGetImageEncoders,'GdipGetImageEncoders',\         
                GdipSaveImageToFile,'GdipSaveImageToFile',\         
                GdipDisposeImage,'GdipDisposeImage',\         
                GdipCreateBitmapFromHBITMAP,'GdipCreateBitmapFromHBITMAP'         
  
 end data

Добавлено через 37 секунд
Теперь, как вызвать процедуру сохранения?

@noname_club · 04.11.2013, 17:07

чтото мне подсказывает что photoshop через видеокарту картинки гоняет, поэтому такая скорость обработки

@SeryZone · 04.11.2013, 17:22 **[ТС]**

noname_club, что ты))) У меня оперативы было мало - потребовало именно оперативу! Да и без видяхи у меня сохраняло мгновенно)))

@noname_club · 04.11.2013, 17:42

то есть просто оперативы для обработки сабжа не хватало?

Добавлено через 3 минуты

Народ, нашёл сохранение на FASM.

скорее на GDI+ API чем на FASM

@SeryZone · 04.11.2013, 18:53 **[ТС]**

Да, но какую библиотеку юзать???

@noname_club · 04.11.2013, 18:55

Дельфийский JPEG медленно пакует при условии что памяти достаточно или нет?

@SeryZone · 04.11.2013, 19:11 **[ТС]**

noname_club, да он просто медленно сохраняет, на оперативу ему пофиг у меня её 8 гиг! Как сохранить быстрее. Прошу, подскажи, как быстрее.

@SeryZone · 06.11.2013, 00:31 **[ТС]**

Гуглил - не нашёл нормальной библиотеки. libjpeg - может быть, но я не умею пользоваться библиотеками...

@volvo · 06.11.2013, 00:50

SeryZone, я же тебе показывал код с GDIPlus:

Delphi
1
2
3
4
5
    bitmap := TGPBitmap.Create(bm.Handle, bm.Palette);
    Prams := TGPEncoderParameters.Create;
    quality := 100;
    Prams.Add(EncoderQuality, quality);
    bitmap.Save('D:\test\saved.jpg', TGPImageFormat.Jpeg, Prams);

? Вот только что проверил: файл размером 14565х5045 сохранился за 10 секунд...

@SeryZone · 06.11.2013, 00:58 **[ТС]**

UI, Спасибо огромное... А что в uses прописывать???

@volvo · 06.11.2013, 01:38

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
implementation
uses jpeg, gdiplus;
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  bm : TBitmap;
  jpeg : TJPEGImage;
 
  bitmap : IGPBitmap;
  Prams: IGPEncoderParameters;
  quality : Integer;
begin
  if OpenPictureDialog1.Execute then
  begin
    jpeg := TJPEGImage.Create;
    jpeg.LoadFromFile(OpenPictureDialog1.FileName);
 
    bm := TBitmap.Create;
    bm.Assign(jpeg);
 
    Memo1.Lines.Add(TimeToStr(Now));
    bitmap := TGPBitmap.Create(bm.Handle, bm.Palette);
    Prams := TGPEncoderParameters.Create;
    quality := 100;
    Prams.Add(EncoderQuality, quality);
    bitmap.Save('D:\test\saved.jpg', TGPImageFormat.Jpeg, Prams);
    Memo1.Lines.Add(TimeToStr(Now));
 
    jpeg.Free;
    bm.Free;
  end;
end;

Я тут ошибся чуток... Это не время сохранения файла - 10 секунд, это время подгрузки и сохранения, суммарное. Так что собственно файл сохраняется еще быстрее, порядка 4-5 секунд...

@SeryZone · 06.11.2013, 09:53 **[ТС]**

UI, бред какой-то, не понимаю, как установить...

Добавлено через 22 минуты
Ура... Получилось... Сохраняет мгновенно!!!

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

@SeryZone 56 / 28 / 18 Регистрация: 09.03.2012 Сообщений: 726 Записей в блоге: 1

	Сохранить JPEG 03.11.2013, 23:56. Показов 2279. Ответов 13 Метки нет (Все метки) Дюльфи сохраняет JPEG (12800x7200 где-то) за 32 секунды, пока фотошоп в то же время делает это за 7 секунд. Вопрос: как можно при 100% качестве сохранить огромный JPEG за кратчайшее время? 0

@noname_club 112 / 103 / 12 Регистрация: 01.05.2013 Сообщений: 603
	04.11.2013, 11:17
	сторонние библиотеки? 0

@noname_club 112 / 103 / 12 Регистрация: 01.05.2013 Сообщений: 603
	04.11.2013, 17:07
	чтото мне подсказывает что photoshop через видеокарту картинки гоняет, поэтому такая скорость обработки 0

@SeryZone 56 / 28 / 18 Регистрация: 09.03.2012 Сообщений: 726 Записей в блоге: 1
	04.11.2013, 17:22 [ТС]
	noname_club, что ты))) У меня оперативы было мало - потребовало именно оперативу! Да и без видяхи у меня сохраняло мгновенно))) 0

@SeryZone 56 / 28 / 18 Регистрация: 09.03.2012 Сообщений: 726 Записей в блоге: 1
	04.11.2013, 18:53 [ТС]
	Да, но какую библиотеку юзать??? 0

@noname_club 112 / 103 / 12 Регистрация: 01.05.2013 Сообщений: 603
	04.11.2013, 18:55
	Дельфийский JPEG медленно пакует при условии что памяти достаточно или нет? 0

@SeryZone 56 / 28 / 18 Регистрация: 09.03.2012 Сообщений: 726 Записей в блоге: 1
	04.11.2013, 19:11 [ТС]
	noname_club, да он просто медленно сохраняет, на оперативу ему пофиг у меня её 8 гиг! Как сохранить быстрее. Прошу, подскажи, как быстрее. 0

@SeryZone 56 / 28 / 18 Регистрация: 09.03.2012 Сообщений: 726 Записей в блоге: 1
	06.11.2013, 00:31 [ТС]
	Гуглил - не нашёл нормальной библиотеки. libjpeg - может быть, но я не умею пользоваться библиотеками... 0

@SeryZone 56 / 28 / 18 Регистрация: 09.03.2012 Сообщений: 726 Записей в блоге: 1
	06.11.2013, 00:58 [ТС]
	UI, Спасибо огромное... А что в uses прописывать??? 0

@SeryZone 56 / 28 / 18 Регистрация: 09.03.2012 Сообщений: 726 Записей в блоге: 1
	06.11.2013, 09:53 [ТС]
	UI, бред какой-то, не понимаю, как установить... Добавлено через 22 минуты Ура... Получилось... Сохраняет мгновенно!!! 0

Опции темы