Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

Imaging (WANG)

Posted on 1998-06-22
9
Medium Priority
?
744 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
[X]
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
9 Comments
 
LVL 7

Accepted Solution

by:
tward earned 80 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

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

0
 
LVL 3

Author Comment

by:Matvey
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...
0
VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

 
LVL 7

Expert Comment

by:tward
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??
0
 
LVL 3

Author Comment

by:Matvey
ID: 1463979
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
ID: 1463980
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
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...
0
 
LVL 7

Expert Comment

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

Author Comment

by:Matvey
ID: 1463983
OK, thanks again...
0

Featured Post

Industry Leaders: 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!

Question has a verified solution.

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

Introduction While answering a recent question (http://www.experts-exchange.com/Q_27402310.html) in the VB classic zone, I wrote some VB code in the (Office) VBA environment, rather than fire up my older PC.  I didn't post completely correct code o…
This article describes how to use a set of graphical playing cards to create a Draw Poker game in Excel or VB6.
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
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…
Suggested Courses

722 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