Imaging (WANG)

Posted on 1998-06-22
Last Modified: 2008-02-01
Anybody here using Wang Imaging OCXes? Please give me an example of adding a page to a TIFF file.

Best will be to send anything to -thanks in advance

Big thanks!
PS what's the final version of Imaging and where do I get it?
Question by:Matvey
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 5
  • 4

Accepted Solution

tward earned 20 total points
ID: 1463975
I haven't actually done it with Wang OCXes yet but it looks like you would need to use the Image Admin Control to do this:

Appends one or more pages to the current image.

Applies To

Image Admin control


object.Append Source, SourcePage, NumPages [,CompressionType, CompressionInfo]


Parameter      Data Type      Description
Source      String      Specifies the image file that contains the page(s) to be appended.
SourcePage      Long      Specifies the first page in the source image file to be appended.
NumPages      Long      Specifies the number of pages from the source image file to append to the current image file.
CompressionType      Integer      (Optional)  Specifies the compression type to apply to the appended pages. If a type is not specified, the compression type of the source page(s) is used.
CompressionInfo      Long      (Optional)  Specifies which compression options to apply to the appended pages. If options are not specified, the compression options of the source page(s) are used.

The current image file is specified by the Image property.
The current image, if one exists, must be in either AWD or TIFF format, as these formats support multiple pages.  If the image pages added are of another type, they will be converted to the file type format used by the current image.
You can append a single BMP file to a new file. If you do, the only compression type allowed is None, with no options.
If the CompressionType and CompressionInfo values specified are not compatible with a source page’s page type (color), the source file’s compression type and compression information are used in place of those arguments.

If JPEG compression type is specified, and the compression argument is 0 (zero), a default JPEG value is used. The default value is 4096 (low compression, high quality).
If the destination file is in AWD format, only black and white files without annotations may be appended.
The only allowable compression type for AWD is None, with no options.

See Also

CompressionType property
CompressionInfo property

Expert Comment

ID: 1463976
Acutally it is pretty easy, here are the two lines I used:

ImgAdmin1.Image = "C:\WINDOWS\TEMP\00000003.TIF"
ImgAdmin1.Append "C:\WINDOWS\TEMP\00000002.TIF", 1, 1


Author Comment

ID: 1463977
Well, I guess it works - I haven't checked it with VB yet. I'm using Delphi and nobody really answered me in that topic - Delphi has some bugs with these OCXes.

I'll grade you'r answere as soon as I test it with VB, and I'm rather sure it does works... (I've also seen this help page and I was looking at it for some hours long)

Another thing that concerns me is what is the last version of Imaging and where do I get it? I have the very very first one, and I'm supose it should have changed in the last 3 years. What version do you use? I've been to WANG site, but nothing...
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!


Expert Comment

ID: 1463978
I am not sure what version I have by I got it from WANG's Site although WANG software was bought by KODAK so you may want to try their site now??

Author Comment

ID: 1463979
Please tell me where can I download it - I've been to, but nothing again - didn't find any download section or something.

Expert Comment

ID: 1463980
Eastman Software now owns it, here is where you can get it:

Author Comment

ID: 1463981
OK, thanks! I've tryed it and it works. It doesn't works with Delphi though. Do you have Delphi so you can test it on your machine? I will increase points if you can help me to make it work with Delphi, but if you can't that's ok too...

Expert Comment

ID: 1463982
Nope, I don't use Delphi, Sorry.

Author Comment

ID: 1463983
OK, thanks again...

Featured Post

Secure Your Active Directory - April 20, 2017

Active Directory plays a critical role in your company’s IT infrastructure and keeping it secure in today’s hacker-infested world is a must.
Microsoft published 300+ pages of guidance, but who has the time, money, and resources to implement? Register now to find an easier way.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
MsgBox 2 61
Excel VBA, find a string in a column, update a cell 7 103
Recommendation vb6 to or others 14 205
VBA to find and replace multiline text from VBA modules 8 90
When trying to find the cause of a problem in VBA or VB6 it's often valuable to know what procedures were executed prior to the error. You can use the Call Stack for that but it is often inadequate because it may show procedures you aren't intereste…
This article describes some techniques which will make your VBA or Visual Basic Classic code easier to understand and maintain, whether by you, your replacement, or another Experts-Exchange expert.
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

733 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question