Цитата(Alexeis @ 1.8.2013, 19:12  ) | | Да, это частное решение работает аналогично, возможно даже быстрее. |
Перед отрисовкой на битмапе, с использованием Graphics.DrawImage, мне необходимо этот битмап создать. И я его создаю, с настройками "с потолка":
| Код | G bmp := TBitmap.Create;
bmp.Monochrome := True;
bmp.Height := ImgTMP.GetHeight;
bmp.Width := ImgTMP.GetWidth;
Graphics := TGPGraphics.Create(bmp.Canvas.Handle);
Graphics.DrawImage(ImgTMP, 0, 0, ImgTMP.GetWidth, ImgTMP.GetHeight);
|
У меня есть много страничек, с разрешением ~10.000*7.000, по умолчанию в памяти создаётся битмап огроменного размера, а то и программа вываливается с сообщением о нехватке памяти.
однако в файлах битмапы как минимум монохромны, и что-то там ещё есть, т.о. при запуске вашего решения автоматически памяти под битмап минимум, файл в диспетчере задач занимает десятки мегабайт. Никаких проблем, и думать, какой битмап создавать - не нужно.
прошу прощения за "корявость" использования терминов, как я уже писал, я в графике да и в winapi ни в зуб ногой :(
| Цитата(Alexeis @ 1.8.2013, 19:12 ) | | Потому что внутри CreateBitmapFromGpimage делается ненужная операция удаления объекта Image: TGPImage который ему передали |
| Цитата(Alexeis @ 1.8.2013, 19:12 ) | | Возможно не предполагался такой режим использования. Насколько я помню с библиотекой GDI+ для делфи поставляется вагон примеров. Возможно, авторы библиотеки предполагали иной способ решения задачи. К сожалению с многостраничными картинками я не работал. Не знаю замысла авторов системы. Но перекачка через промежуточные буфера в памяти путем помещения в поток сравнительно быстрая, поскольку она не задействует железо (жесткий диск). Единственные затраты на создание правильных заголовков. |
Но похоже, частично победил и методом научного тыка.
Но естественно, возникло множество загадок. Прежде всего, очень загадочно работают многие функции в плане, непонятно когда, куда и почему утекает память. К примеру, после упомянутого
| Код |
bmp := TBitmap.Create;
bmp.Monochrome := True;
bmp.Height := ImgTMP.GetHeight;
bmp.Width := ImgTMP.GetWidth;
Graphics := TGPGraphics.Create(bmp.Canvas.Handle);
Graphics.DrawImage(ImgTMP, 0, 0, ImgTMP.GetWidth, ImgTMP.GetHeight);
|
Но самое главное - после этих операций ImgTMP перестаёт давать "переключать" свои страницы.....
А если я загружаю не в IMAGE, а в наследника - TGPBitmap, делаю текущей какую-то страницу, а затем провожу штатную операцию GPBitmap-а, например, поворачиваю её: (Image as TGPBitmap).RotateFlip(Rotate90FlipNone)
то вуаля! страничка повёрнута, но Image.GetFrameCount(FrameDimensionPage) возвращает уже число страниц: 1 (до запуска поворота возвращало 4, что правильно). В общем, в объекте остаётся одна-единственная страничка, над которой было преобразование.
Предположу, об этом тоже где-то в документации предупреждается.....
В общем, пришлось плюнуть на всё это и использовать классический TBitmap, вкупе с вашими преобразованиями его, посредством потоков.
В общем, результат:
Процедура, пересохраняющая TIFF файл, добавляющая на каждую страницу нового по случайной линии:
Логика следующая: Каждая страница сохраняется в битмап (та самая модифицированная ваша процедура, теперь она называется CreateBitmapFromGpimage), на битмап выводится произвольная линия, из битмапа она сохраняется в файл (процедура по мотивам вашей второй, теперь она называется SaveBmpToTiffFile), из временного файла она загружается в новый ImgChangedFrame := TGPImage.Create(TempFileName), затем этот объект добавляется как новая страничка к сохраняемому:
| Код |
procedure ReplaceTiffFile_UseTempFile(SourceFileName, ResultFileName: string);
function CreateBitmapFromGpimage(Image: TGPImage): TBitmap;
var
mem: TMemoryStream;
aptr: IStream;
encoderClsid: TGUID;
n: Int64;
begin
aptr := nil;
Result := TBitmap.Create;
mem := TMemoryStream.Create;
aptr := TStreamAdapter.Create(mem, soReference) as IStream;
GetEncoderClsid('image/bmp', encoderClsid);
Image.Save(aptr, encoderClsid);
aptr.Seek(0, 0, n);
Result.LoadFromStream(mem);
aptr := nil;
mem.Free;
end;
function SaveBmpToTiffFile(bmp: TBitmap; FileName: string): TStatus;
var
mem: TMemoryStream;
aptr: IStream;
encoderClsid: TGUID;
ImgTMP: TGPImage;
eParameters: TEncoderParameters;
Param: EncoderValue;
begin
mem := TMemoryStream.Create;
bmp.SaveToStream(mem);
mem.Seek(0, soFromBeginning);
aptr := TStreamAdapter.Create(mem, soReference) as IStream;
ImgTMP := TGPImage.Create(aptr);
GetEncoderClsid('image/tiff', encoderClsid);
eParameters.Count := 1;
eParameters.Parameter[0].NumberOfValues := 1;
eParameters.Parameter[0].Guid := EncoderCompression;
eParameters.Parameter[0].Type_ := EncoderParameterValueTypeLong;
eParameters.Parameter[0].Value := @param;
param := EncoderValueCompressionCCITT4;
Result := ImgTMP.Save(FileName, encoderClsid, @eParameters);
ImgTMP.Free;
aptr := nil;
mem.Free;
end;
var
ImgSource, ImgChangedFrame, ImgResult: TGPImage;
BmpCurrentFrame: TBitmap;
PagesCount: integer;
PageNum: integer;
encoderClsid: TGUID;
eParameters: TEncoderParameters;
eValue, eValueCompress: EncoderValue;
TempFileName: string;
begin
GetEncoderClsid('image/tiff', encoderClsid);
eParameters.Count := 2;
eParameters.Parameter[0].NumberOfValues := 1;
eParameters.Parameter[0].Guid := EncoderSaveFlag;
eParameters.Parameter[0].Type_ := EncoderParameterValueTypeLong;
eParameters.Parameter[0].Value := @eValue;
eParameters.Parameter[1].NumberOfValues := 1;
eParameters.Parameter[1].Guid := EncoderCompression;
eParameters.Parameter[1].Type_ := EncoderParameterValueTypeLong;
eParameters.Parameter[1].Value := @eValueCompress;
eValueCompress := EncoderValueCompressionCCITT4;
PagesCount := -1;
PageNum := 0;
repeat
ImgSource := TGPImage.Create(SourceFileName);
if PagesCount < 0 then
PagesCount := ImgSource.GetFrameCount(FrameDimensionPage);
ImgSource.SelectActiveFrame(FrameDimensionPage, PageNum);
{Create Bitmap}
BmpCurrentFrame := CreateBitmapFromGpimage(ImgSource);
{Change Bitmap}
BmpCurrentFrame.Canvas.MoveTo(Random(BmpCurrentFrame.Width), Random(BmpCurrentFrame.Height));
BmpCurrentFrame.Canvas.LineTo(Random(BmpCurrentFrame.Width), Random(BmpCurrentFrame.Height));
{Create ImgFrame}
TempFileName := AddSuffToFileName(ResultFileName, '_' + inttostr(PageNum));
if SaveBmpToTiffFile(BmpCurrentFrame, TempFileName) <> Ok then
ShowMessage(TempFileName + ' has not been saved');
ImgChangedFrame := TGPImage.Create(TempFileName);
if PageNum = 0 then
begin
ImgResult := ImgChangedFrame;
eValue := EncoderValueMultiFrame;
ImgResult.Save(ResultFileName, encoderClsid, @eParameters)
end
else
begin
eValue := EncoderValueFrameDimensionPage;
ImgResult.SaveAdd(ImgChangedFrame, @eParameters);
FreeAndNil(ImgChangedFrame);
end;
FreeAndNil(ImgSource);
Inc(PageNum);
until PageNum >= PagesCount;
eValue := EncoderValueFlush;
ImgResult.SaveAdd(@eParameters);
FreeAndNil(ImgResult);
end;
|
Логика с использованием временных файлов взята у парней с сайта gnostice, из их статьи: http://www.gnostice.com/nl_article.asp?id=194&t=Convert_PDF_Documents_to_Multipage_TIFF_Images_In_Delphi
В процессе разработки стало ясно, почему они использую много временных файлов, по числу страниц в документе: с какого-то перепугу файл то ли блокируется, то ли что (я не проверял), и после создания первого Temp.Tif (объект ImgChangedFrame, который в него сохранял - удаляется!) - второй раз сохранить в этот файл не получается. Наверное он всё-таки заблокировался, я не стал искать причину, сделал по аналогии - N файлов, по числу страниц.
Только в этой процедуре не написано их удаление, потому что я таки модифицировал процедуру, используя потоки.
Для потоков, как оказалось, нет необходимости создавать целый "пул" временных потоков, достаточно одной переменной, итак, конечный код, привожу целиком:
| Код |
procedure ReplaceTiffFile_UseTempStream(SourceFileName, ResultFileName: string);
function CreateBitmapFromGpimage(Image: TGPImage): TBitmap;
var
mem: TMemoryStream;
aptr: IStream;
encoderClsid: TGUID;
n: Int64;
begin
aptr := nil;
Result := TBitmap.Create;
mem := TMemoryStream.Create;
aptr := TStreamAdapter.Create(mem, soReference) as IStream;
GetEncoderClsid('image/bmp', encoderClsid);
Image.Save(aptr, encoderClsid);
aptr.Seek(0, 0, n);
Result.LoadFromStream(mem);
aptr := nil;
mem.Free;
end;
function SaveBmpToTiffStream(bmp: TBitmap): TStream;
var
mem: TMemoryStream;
aptr, aptrOut: IStream;
encoderClsid: TGUID;
ImgTMP: TGPImage;
eParameters: TEncoderParameters;
Param: EncoderValue;
n: Int64;
begin
mem := TMemoryStream.Create;
bmp.SaveToStream(mem);
mem.Seek(0, soFromBeginning);
aptr := TStreamAdapter.Create(mem, soReference) as IStream;
ImgTMP := TGPImage.Create(aptr);
GetEncoderClsid('image/tiff', encoderClsid);
eParameters.Count := 1;
eParameters.Parameter[0].NumberOfValues := 1;
eParameters.Parameter[0].Guid := EncoderCompression;
eParameters.Parameter[0].Type_ := EncoderParameterValueTypeLong;
eParameters.Parameter[0].Value := @param;
param := EncoderValueCompressionCCITT4;
Result := TMemoryStream.Create;
aptr := TStreamAdapter.Create(Result, soReference) as IStream;
ImgTMP.Save(aptr, encoderClsid, @eParameters);
aptr.Seek(0, 0, n);
ImgTMP.Free;
aptr := nil;
mem.Free;
end;
var
ImgSource, ImgChangedFrame, ImgResult: TGPImage;
BmpCurrentFrame: TBitmap;
PagesCount: integer;
PageNum: integer;
encoderClsid: TGUID;
eParameters: TEncoderParameters;
eValue, eValueCompress: EncoderValue;
TempFileName: string;
TempStream: TStream;
TempAptr: IStream;
begin
GetEncoderClsid('image/tiff', encoderClsid);
eParameters.Count := 2;
eParameters.Parameter[0].NumberOfValues := 1;
eParameters.Parameter[0].Guid := EncoderSaveFlag;
eParameters.Parameter[0].Type_ := EncoderParameterValueTypeLong;
eParameters.Parameter[0].Value := @eValue;
eParameters.Parameter[1].NumberOfValues := 1;
eParameters.Parameter[1].Guid := EncoderCompression;
eParameters.Parameter[1].Type_ := EncoderParameterValueTypeLong;
eParameters.Parameter[1].Value := @eValueCompress;
eValueCompress := EncoderValueCompressionCCITT4;
PagesCount := -1;
PageNum := 0;
repeat
ImgSource := TGPImage.Create(SourceFileName);
if PagesCount < 0 then
PagesCount := ImgSource.GetFrameCount(FrameDimensionPage);
ImgSource.SelectActiveFrame(FrameDimensionPage, PageNum);
{Create Bitmap}
BmpCurrentFrame := CreateBitmapFromGpimage(ImgSource);
{Change Bitmap}
BmpCurrentFrame.Canvas.MoveTo(Random(BmpCurrentFrame.Width), Random(BmpCurrentFrame.Height));
BmpCurrentFrame.Canvas.LineTo(Random(BmpCurrentFrame.Width), Random(BmpCurrentFrame.Height));
{Create ImgFrame}
TempStream := SaveBmpToTiffStream(BmpCurrentFrame);
TempAptr := TStreamAdapter.Create(TempStream, soReference) as IStream;
ImgChangedFrame := TGPImage.Create(TempAptr);
if PageNum = 0 then
begin
ImgResult := ImgChangedFrame;
eValue := EncoderValueMultiFrame;
ImgResult.Save(ResultFileName, encoderClsid, @eParameters)
end
else
begin
eValue := EncoderValueFrameDimensionPage;
ImgResult.SaveAdd(ImgChangedFrame, @eParameters);
FreeAndNil(ImgChangedFrame);
end;
FreeAndNil(ImgSource);
Inc(PageNum);
until PageNum >= PagesCount;
eValue := EncoderValueFlush;
ImgResult.SaveAdd(@eParameters);
FreeAndNil(ImgResult);
end;
|
В принципе, код рабочий. Но либо опять в нём присутствует какая-то глупая ошибка, либо это снова чудеса GDI+, но в нём имеется утечка памяти.
Файл создаётся, однако, несмотря на то, что вроде всё удалено, память не освобождается.
Причину пока не нашёл :(( если не успею найти, нужно будет прописать это как фичу программы в документации |