Solved

Imaging (WANG)

Posted on 1998-06-22
9
735 Views
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 bosism@netvision.net.il -thanks in advance

Big thanks!
PS what's the final version of Imaging and where do I get it?
0
Comment
Question by:Matvey
  • 5
  • 4
9 Comments
 
LVL 7

Accepted Solution

by:
tward earned 20 total points
Comment Utility
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

Syntax

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

Arguments

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.
Remarks

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

Compression
CompressionType property
CompressionInfo property
0
 
LVL 7

Expert Comment

by:tward
Comment Utility
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

0
 
LVL 3

Author Comment

by:Matvey
Comment Utility
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...
0
 
LVL 7

Expert Comment

by:tward
Comment Utility
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??
0
How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

 
LVL 3

Author Comment

by:Matvey
Comment Utility
Please tell me where can I download it - I've been to www.wang.com, but nothing again - didn't find any download section or something.
0
 
LVL 7

Expert Comment

by:tward
Comment Utility
Eastman Software now owns it, here is where you can get it:

http://www.eastmansoftware.com/products/imagingpro/instal95.htm
0
 
LVL 3

Author Comment

by:Matvey
Comment Utility
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...
0
 
LVL 7

Expert Comment

by:tward
Comment Utility
Nope, I don't use Delphi, Sorry.
0
 
LVL 3

Author Comment

by:Matvey
Comment Utility
OK, thanks again...
0

Featured Post

IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

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…
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
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…

762 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

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now