Jump to content


  • Content Count

  • Joined

  • Last visited

  • Days Won


Shrinavat last won the day on January 16 2019

Shrinavat had the most liked content!

Community Reputation

4 Neutral

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Shrinavat

    Report components: good, bad, ugly

    OExport - XLSX/XLS/ODS/CSV native Delphi/Lazarus import/export library - https://www.kluug.at/kluug-net/xlsx-ods-delphi.php I use Template engine: automatically process user-defined XLSX/XLS templates.
  2. Shrinavat

    Saving a large project takes soooo Loooonnnnggg..

    The latest version is in the attachment. It supports the latest version of RAD Studio.
  3. @Schokohase Thank you, it's works! I wonder if there is another solution? Without creating an extra class?
  4. @Schokohase Sorry, I'm afraid I don't know what you're talking about. What method what class i shoud use? The pipeline does not have an Initialize method.
  5. I have a pipeline for downloading files to a specific database. FFileDownloader := Parallel.Pipeline .Stage(Asy_URLBuilder) .Stage(Asy_URLRetriever) .Stage(Asy_DBInserter, Parallel.TaskConfig.OnMessage(Self)) .Run; procedure Asy_URLBuilder(const input, output: IOmniBlockingCollection); var ovIN, ovOUT: TOmniValue; begin for ovIN in input do begin // ... compose url for downloading output.TryAdd(ovOUT); // url is in ovOUT end; end; procedure Asy_URLRetriever(const input, output: IOmniBlockingCollection); var ovIN, ovOUT: TOmniValue; begin for ovIN in input do begin // ... downloading output.TryAdd(ovOUT); // downloaded file is in ovOUT end; end; procedure Asy_DBInserter(const input, output: IOmniBlockingCollection; const task: IOmniTask); var ovIN: TOmniValue; DB: TxxxDatabase; begin DB := TxxxDatabase.Create(nil); DB.DatabaseName := ??? ; DB.Open; for ovIN in input do begin // ... insert downloaded file in specific database end; DB.Commit; task.Comm.Send(WM_TASK_COMPLETED); end; I run a pipeline for various databases. I need to pass DatabaseName to the third stage of the pipeline. How can I do that? Can I use the SetParameter method of Task controller when creating a pipeline? And if so, how? Any help will be appreciated!
  6. Shrinavat

    Rio IDE Menu Font Size

    Here is description (on a russian website) of IDEFont - http://www.proghouse.ru/programming/143-idefont
  7. Shrinavat

    Rio IDE Menu Font Size

    IDEFont A tool to change the font of IDE Delphi https://github.com/zMotoR/IDEFont
  8. Shrinavat

    Delphi wrapper for libpng

    @dummzeuch I saw these links. The libraries are very old, seems more than 15 years old and for very early versions of libpng. Unfortunately, they cannot be used for current versions of libpng.
  9. Shrinavat

    Delphi wrapper for libpng

    I hope this is the right place to ask this... Is there a Delphi wrapper for libpng? I would very much like to use it, but I couldn't find it anywhere. Please share if you know anything. If someone got working wrapper for libpng and wants to share it at here would be cool. Thanks!
  10. @Primož Gabrijelčič Do you have any progress for this issue fix? There are no new commits on github. Current workaround with using extra variable is not very elegant, although it works.
  11. Shrinavat

    Strange TWICImage behavior when working in a thread.

    Yes, indeed.
  12. Shrinavat

    Strange TWICImage behavior when working in a thread.

    Ooops! I completely forgot about that... Thanks!
  13. Here is the simplest code: When I click on the button "Read Image in GUI Thread", then everything is fine. TWICImage loads the image from the stream. However, the same code does not work in the thread (click on the button "Read Image in OTL Thread"), I get AV "Access violation at address 0050316F in module 'Project1.exe'. Read of address 00000000". If you use TJPEGImage instead of TWICImage, then everything works fine in both cases. I don't get what the problem is. Can someone explain to me in simple terms what should I do in order for TWICImage to work in the thread? I want to use TWICImage because it allows you to download a wide variety of image formats, not just jpeg. Delphi 10.2.3, Win7SP1 x64. Project full source is in attachment test_OTL_read_from_memory.zip
  14. Thank, @Primož Gabrijelčič. That works. And what about my question #1 (numTasks)?
  15. @Anders Melander I have latest Graphics32 with fixed TBitmap32 constructor access violation AV occurs when executing a line of code Image32.Bitmap.Assign(workItem.Result.AsObject as TBitmap32); - FBackend is nil: This is in case when workItem.Result.Ownsobjects: = True If I comment out workItem.Result.OwnsObject := True line in Asy_Factory procedure and uncomment workItem.Result.AsObject.Free; line in HandleRequestDone procedure, FBackend is not nil. It's a bug. But whose? Mine, GR32 or OTL?