Alexander Sviridenkov

3 minutes ago, Mike Torrettinni said:

Thanks! Better version, but I still get error on not finding a .pas file and it seems it stops and doesn't show anything. Can you make it skip missing .pas files and make it work with what it can access? Some units only have compiled .dcu accessible, not pas files.

It doesn't stop if file is missed. Missed files are listed in scan.log

At least project file and some .pas files should be shown.

It will work, but some units that are not in project directory and not in directory listed in project Search path settings, will not be listed.

6 minutes ago, Mike Torrettinni said:

Video looks very promising! I get same or similar error messages as above, so let us know when you publish fix or perhaps change version number in original .rar file, so we know it's newer.

 

Is it possible to make it work without dependency on Delphi installation? I don't have Delphi development started all the time, while source code is always accessible. 

Please check current build (1.0.0.5 in file version), it shoudl works OK.

It do not require Delphi to be started, just installed (to get Library paths from registry).

15 minutes ago, uligerhardt said:

Still can't load a project:

 

I have XE6 and 10.4 installed.

Please check private messages

2 minutes ago, uligerhardt said:

I have the error when clicking on the folder icon without clicking Create. But I'll just try the new version. 🙂

Please note it requires one of Delphi XE + versions installed.

14 minutes ago, uligerhardt said:

Hi! I just downloaded and unpacked the RAR. When I start graph.exe and click on the Project icon I immediately get this:

 

Any idea how to fix this?

Thanks for reporting, this error appears when clickng to Create without selected project. Now fixed.

Note that to select project you need to click on folder icon next to Project label

11 is at least more responsive. But code completion and navigation works from time to time.

3 minutes ago, Lajos Juhász said:

Great work, you should also consider to support packages (dpr files). 

Thank you,

.dpr or .dpk?

45 minutes ago, Tommi Prami said:

Very nice.

Hope you continue to make it better.

For one I would not need "relaxed search" from the Graph. Like type search 'settings custom'

Would give me all units from the graph that would match those words. Like the Delphi Search for units... (Ctrl + F12).

You can put everything you just remember the unit you are looking for. Because there is huge number of unis in big projects, and finding from the Graph (without filtering)

 

just my 0.02€...

 

Very good. Thanks.

 

-Tee-

Thanks, I've added searching by several words and list of first 10 found units.

Please try with the unit sent to email.

6 hours ago, Ian Branch said:

It would seem Addictive Software, the makers of the Addict spell checker, are no more. 😞

What does one do now for spell checking in Apps that run on Win 7?

 

Ian

Hunspell?

5 minutes ago, Robert Gilland said:

After all this, The SynPDF library is not compiling under Linux (ALexandria 11.3)

Yes, it is Windows only. There is direct PDF export in Office library, simply comment htsynpdf.

Yes, please see this topic

https://microsoft.public.win32.programmer.gdi.narkive.com/xYv8gdam/preventing-gdi-from-scaling-images-how-to-ignore-dpi-settings-rep

In my tests even this set of parameters was not enough, I got stable result only when passing not null ImageAttributes (last parameter).

3 hours ago, Alexander Halser said:

When you print an image, the screen DPI doesn't matter at all. You are dealing with printer DPI instead. Nothing else. 

This may sound strange, but screen DPI does matter. GPImage has internal DPI (same as screen DPI on image creation) and this DPI do affect image drawing on any device.

You cannot change this DPI and there is only one of many overloaded DrawImage methods that ignores this DPI and let your render image with exact source and destination rectangles. It is not described in documentation and is not intuitive, I have no idea why MS done this.

HTML Office Library can extract information from each page as HTML or plain text. Also HTML from each page can be saved back to separate PDF.

Use NativeUInt(Pointer)

Please use the following code

            ST := TBytesStream.Create;
            try
              Surf := TBitmapSurface.Create;
              try
                Surf.Assign(B);
                if TBitmapCodecManager.SaveToStream(ST, Surf, '.png') then
                  PNG[i] := copy(ST.Bytes, 0, ST.Size)
                else
                  PNG[i] := nil;
              finally
                Surf.Free
              end;
            finally
              ST.Free
            end;

uses htcanvas, htoffice, htimage, htcanvasdx, htmldraw, htcanvasgdip, 
     gdipapi, gdipobj, gdiputil; 

type
  TBytesArray = array of TBytes;

procedure PDF2PNG(const FileName: string; var PNG: TBytesArray);
var D: THtDocument;
    i: integer;
    C: THtCanvasGP;
    B: TBitmap;
    BD: THtBitmapData;
    Scene: THtCanvasScene;
    Image: TGPBitmap;
    PNGEncoder: TGUID;
    BS: TBytesStream;
    SA: IStream;
begin
  D := THtDocument.Create(THtCanvasGP.PrintCanvasClass);
  try
    { Convert PDF to HTML and parse result }
    D.Parse(THtDocumentConverter.FiletoHTML(FileName));
    { Make paged layout }
    D.GeneratePagesForPrint(210, 297);
    SetLength(PNG, D.Surface.PageCount);
    for i := 0 to D.Surface.PageCount - 1 do
    begin
      C := THtCanvasGP.Create;
      try
        B := TBitmap.Create(D.Surface.Pages[i].WidthPx, D.Surface.Pages[i].HeightPx);
        try
          { Render page }
          Scene.Init(B.Canvas.ClipRect, B.Canvas);
          C.BeginScene(Scene);
          THtPageMeta(D.Surface.Pages[i]).Meta.Play(C);
          C.EndScene;
          { Save to PNG }
          Image := TGPBitmap.Create(B.Handle, B.Palette);
          try
            GetEncoderClsid('image/png', PNGEncoder);
            BS := TBytesStream.Create(nil);
            SA := TStreamAdapterFix.Create(BS, soOwned) as IStream;
            Image.Save(SA, PNGEncoder);
            PNG[i] := Copy(BS.Bytes, 0, BS.Size);
          finally
            Image.Free
          end;
        finally
          B.Free
        end;
      finally
        C.Free
      end;
    end;
  finally
    D.Free
  end;
end;

Thank you for ordering, please use this code for conversion.

Yes, as mentioned above PDF to PNG conversion is available in Office library.

2 hours ago, Robert Gilland said:

https://delphihtmlcomponents.com/office.html looks like it's task is to covert to HTML.

It doesn't say it can convert PDF to PNG or PNG to PDF.

PDF to PNG means that PDF will be rendered to bitmap and bitmap saved to PNG. This is possible using Office Library, it even have CreateThumbnail method that make this conversion by one line of code.

Converting PNG to PDF means embedding PNG to a new PDF file. Create one line HTML like <img scr="mypng.png"> and convert it to PDF.

6 hours ago, Robert Gilland said:

I cannot find any component that converts pdf to png, or png to pdf, that in not .NET. 

Has anyone found any?

HTML Office Library can do both.

The only native Delphi library for reading and displaying documents in 19 formats: Word, Excel, Powerpoint, PDF, EPUB, Outlook and much more.

Whats's new

1. Support for MBOX files (Thunderbird and other mail app. mailboxes)
2. Support for CHM (help) file format.
3. Support for CSV (displayed as table).
4. Support for DOC 6-95 format.
5. Support for old XLS format.
6. Encoding detection for text files.
7. Support for PICT format (embedded to some office documents)
8. Support for JPX (JPEG2000) - currently using openjpeg.
9. PDF conversion was completely rewritten:
Big improvements in PDF rendering quality.
Better text extraction from PDF (space detection, hyphenation handling).
Faster PDF conversion - 1000 pages / sec.
Less memory consumption for conversion of big PDF files.
SIMD optimized image conversion for PDF (color spaces, masks, etc.).
10. Improvements in PPTX, DOCX and XLS.
11. Faster text extraction for all formats.
12. Added document properties Authod, Keyword, Modified, Created.
13. Search engine was completely rewritten:
14. Smaller index and faster than all similar products (dtsearch, docfetcher, copernic, x1, etc.), search for word sequence.
15. Support for highlighting of code files (PAS, C++, JS, etc.)
16. DarkMode property - convert styles to dark theme.
17. ImageConverted now has CanvasClass property (canvas is used in HTML to PNG conversion).
18. ODTTF format support
19. TOTFFont now supports adding ligatures
20. FileBrowser demo no more requires VirtualTrees.
21. New demo - PPT file explorer.

Demos:
https://delphihtmlcomponents.com/FileBrowser.zip - file viewer.
https://delphihtmlcomponents.com/codefinder.html - full text search engine / document viewer.

https://delphihtmlcomponents.com/office.html

1 minute ago, Rollo62 said:

@Alexander Sviridenkov That looks great, as always.

I'm not sure if the performance and large-file features were limited to VCL and desktop mostly, or if also mobile apps will improve a lot, with or without SKIA ?

Thank you.

Processing of documents with many SVG images is improved for all platforms and doesn't depend on canvas. But fast rendering of single large SVG image is for VCL OpenGL canvas only.