DELPHI AREA Forum

Hello,

Currently I'm developing a new Delphi (3-7) package for image processing in my spare times. Probably I'll release the package to public domain as open source and freeware, otherwise it will be a very low price shareware.

So for, the package is able to do:

• Image Filtreing
• Image Transformation
• Mathematical and Logical Operations

Before releasing the package, I'll implememnt also some antialiasing and resampling algorithms.

I've attached a simple application to demonstrate image filtering and transform operations that are offered by the package.

I'll be glad if you give me any suggestion or comment that you may have.

Thanks in advance,
Kambiz

I tried IW. Very very nice... Very fast and No AV's. Very professional.

Have you considered adding birghtness, contrast, levels, deNoise, Auto Brightness, Auto Contrast and Auto Sharpen for photographs?

I use ImageEN for my graphic needs, but IE does not offer any automatic image processing methods.

Regards,

Bill

Good suggestions, thanks Bill!

The code is not slow but it could be faster, because I wrote it in pure Delphi code.

Cheers,
Kambiz

Hi,

I implemented Bilinear and Bicubic interpolations. By using one of these two resampling methods, the transformed image can be without jagged edges.

Do you know what? Delphi sucks for this sort of tasks. Pointers and operators are not as flexible as C/C++. Also, absence of C/C++ like inline procedures or macros makes the code unreadable, otherwise by using a normal procedure call the overhead is high.

In writing ImageWork I prefered to have a more readable code because the package is not going to be commercial.

Cheers,
Kambiz

I took a look at your new resampling. Excellent. The smoothest rotation edges I have ever seen.

Does your demo use TImage for image display? If so it would nice nice to allow zooming. I am testing with 6 meg images.

Also resmapling "resampling" is spelled wrong in the Transform Image Demo.

If you want some help let me know. I'd be glad to assist however I maybe able to. I have code to zoom a TImage so send me the source and I'll add it to the demo if you would like.

Regards,

Bill Miller

Hi,

Thanks bill for everything.

Yes, I used TImage. I decided to release ImageWork package as freeware. Therefor, I'll not spend so much time for the package. The package will only provide low level functinallity with one non-visual component to encapsulate all the functions.

The greatest help - that I would be thankful about it - is to document the package for releasing. If anybody is interested, please drop me a line.

For a while I have to stop working on ImageWork, because I have to work on my other projects. What a pity that we need money to live.

Thanks,
Kambiz

P.S. Bill, I send you the package by PM.

I could document this package... and also i could help you to make code more readable by standarization it with my program (i maked it with 1st group work when everybody in my team formated code in diffrent ways)

Despite my searching for various ways I can not seem to find out how to download my attachbox? Any hints?

Johnny_Bit:

Thank you very much! The ImageWork package is in your mailbox.


Bill:

This time I send the package by email, but your server rejected the message. The error message was "Access denied".


Cheers,
Kambiz

I never had someone report this before. Please try once more. If it fails please try w2m@hicomponents.com.

Thanks

Bill,

I tried once again and the message rejected with the same error. This is happening since end of the last week, because your mail server rejects also the mail notifications sent by forum.

I sent the file using the new email address you wrote down. Seems this time you have the package.

Cheers,
Kambiz

I tried replying to your email but this is what I got:

Your message did not reach some or all of the intended recipients.

Subject: RE: ImageWork
Sent: 7/6/2004 7:46 AM

The following recipient(s) could not be reached:

'Kambiz R. Khojasteh' on 7/6/2004 7:46 AM
550 5.7.1 Unable to relay for kambiz@delphiarea.com

I don't know what is going on with the email, but I received the "package".
I'll look IW over and will document. Might you add more features later?

Regards,

Bill

It's good that you could get the mail finally.

New features? To be honest, it depends to my mood and my other projects. Life is beautiful, isn't it?

Thank you,
Kambiz

Life is beutifull... For all of us. The documentation will be ready for sunday if my net provider will enable net access for small villages (2 000 people and no cheap low-level broadband aceess to net avilable. it would cost them about 200$ once and bring them 50$ monthly from about 2/3 of population, but no). For truth it will be done, when it be done, and when next time i will got acces to net.

Hello,

Very good components. Even better then many commercial libraries.

Is it possible to add support or to use TBitmap32 from
Graphics32

http://graphics32.org/wiki/pub/page/Main/Graphics32

I think that this will increase the speed.

Regards
Dmitry