TNPdf+Delphi 2009 (перелаб)

[XerSon]

Всем привет,
Есть компонент для работы с PDF
(TNPDF - PDF VCL for Delphi 1,2,3,4,5...
Copyright (c) 2002, K. Nishita)
Единственный в своём роде фриварный компонет! Но есть одно Но, не пашет он в Delphi 2009.

С Уважением обращаюсь к Вам ПРОфессионалы, кто смог бы адаптировать его под Delphi 2009, не только я буду вам признателен!

[raxp]

...не пашет, в смысле установить не можете? если так, то создаете пустой dpk и указываете ему Tnpdf.pas

File-New-Package, далее в правом самом окне project-manager выбрать добавить и выбрать (*.pas) файлы компоненты...

[XerSon]

Сообщение от raxp

...не пашет, в смысле установить не можете? если так, то создаете пустой dpk и указываете ему Tnpdf.pas

В архиве есть демка, так вот она работает не выпадая, и есть исходник, + сами компоненты, проект в 2009 компилируется норм, не считая 17 хинтов, но при сохранении в pdf программа вылетает! Просьба не пинать, но ответы желательно по Сабжу! С Уважением!

[raxp]

...это же элементарно, ставишь брекпоинт и смотришь где возникает ...кстати как раз в pdf сохраняет нормально, проблема при конвертации картинки, измените процедуру SetBitmap так как ниже и все будет работать

procedure TPrintPDF.SetBitmap(ABitmap:TImage);
TYPE pRGBArray = ^TRGBArray;
     TRGBArray = ARRAY[0..0] OF TRGBTriple;
var pTempStream:TMemoryStream;
tmpBitmap:TBitmap;
InfoSize: {$IFNDEF WIN32}Integer{$ELSE}DWORD{$ENDIF};
ImageSize: {$IFNDEF WIN32}LongInt{$ELSE}DWORD{$ENDIF};
x, y: integer;
pb: PByteArray;
b: TRGBTriple;

bits :Pointer;
Info: PBitmapInfo;
BitmapInfo   :  TBitmapInfo;
DeviceContext:  hDC;
i            :  INTEGER;
j            :  INTEGER;
ScanLine     :  pRGBArray;
begin
tmpBitmap:=ABitmap.Picture.Bitmap;

GetDIBSizes(tmpBitmap.Handle, InfoSize, ImageSize);
ImageStream.Clear;

      tmpBitmap.PixelFormat := pf24Bit;
      for y := 0 to tmpBitmap.Height-1 do
      begin
        pb := tmpBitmap.ScanLine[y];
        ImageStream.Write(pb^, tmpBitmap.Width*3);
      end;

GetDIBSizes(tmpBitmap.Handle, InfoSize, ImageSize);

pTempStream:=TMemoryStream.Create;
StreamWriteStr(pTempStream,'<< /Type /XObject');
StreamWriteStr(pTempStream,'/Subtype /Image');
StreamWriteStr(pTempStream,'/Width '+IntToStr(tmpBitmap.Width));
StreamWriteStr(pTempStream,'/Height '+IntToStr(tmpBitmap.Height));
StreamWriteStr(pTempStream,'/ColorSpace /DeviceRGB');
StreamWriteStr(pTempStream,'/BitsPerComponent 8');
StreamWriteStr(pTempStream,'/Length '+IntToStr(ImageSize));
StreamWriteStr(pTempStream,'/Name /Im'+IntToStr(NumberofImages));
StreamWriteStr(pTempStream,'>>');
StreamWriteStr(pTempStream,'stream');
pTempStream.Seek(0, soFromEnd);

ImageStream.SaveToStream(pTempStream);

pTempStream.SaveToFile('~tmpim'+IntToStr(NumberofImages));

pTempStream.Free;
end;

...а демка работает потому-что уже скомпилирована, видимо сказывается различие в версиях delphi

[XerSon]

raxp,
Благодарю за Ваш труд, респект!

Сообщение от raxp

...измените процедуру SetBitmap так как ниже и все будет работать ...

Изменил процедуру как вы написали, итог тот же, программа не вылетает но и при открытии пэдээфки Акробат пишет сие:



Не могли бы вы выложить свой рабочий пример, мне важно для Delphi 2009.

[raxp]

у меня все ок ...тут дело уже не в delphi, а в версии самого pdf ...скачайте foxit pdf reader (бесплатная, маленькая, шустрая), он открывает все или почти все версии pdf/

...можно конечно покопаться в тегах при создании, но времени на это нет и желания тоже

[XerSon]

Сообщение от raxp

у меня все ок ...тут дело уже не в delphi, а в версии самого pdf ...скачайте foxit pdf reader (бесплатная, маленькая, шустрая), он открывает все или почти все версии pdf/

...можно конечно покопаться в тегах при создании, но времени на это нет и желания тоже

Естественно я подумал об том же, НО и foxit pdf reader не открывает документ! Таже мессага прёть! Покажите пож ваш пример, рабочий!!!

[raxp]

...не доверяете значит ...ок, прилагаю
- скрин открытого сгенерированного PDF
- скрин программы генерации
- сам сгенерированный PDF
- компоненту и компиляцию утилиты

[XerSon]

Вижу что компилировали в D7
Не сомневался ни минуты, но в D2009 ошибка открытия документа та же!
А теперь откройте мой, скомпилировал ваш сорц!

[raxp]

мдя-я-я... размеры одинаковые, кодировка разная... ваш 123.pdf (2009-то юникодный)

% P D F - 1 0 o< < / P r o d u c e r ( K / A u t h o r ( K . / C r e a t i o n D a t e ( D : / C r e a t o r ( K ./ K e y w o r / S u b j e c/ T i t l e ( T

мой в ansi

%PDF-1.4
1 0 obj
<<
/Producer (K. Nishita)
/Author (K. Nishita)
/CreationDate (D:20100315112537)
/Creator (K. Nishita)
/Keywords ()
/Subject

попробуйте в процедурах procedure StreamWriteStr(var ms: TMemoryStream; s: string); - вместо string записать как ansistring