Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Win 98 Error

Status
Not open for further replies.

EricDraven

Programmer
Jan 17, 2002
2,999
GB
My program is working fine when running under Delphi and users can install it fine. They can also run it fine once installed, providing they arent using Win98! Some Win98 users are having problems when they try to run the program. Before the program is created it returns a win32 error. I have tried to recreate the error on a win98 machine in the office, but the program works fine on the office machines. Has anybody else experienced problems running their software under Win98? Does anybody have any idea what may be causing this? Im getting to the point where insanity is starting to call my name now with this problem! Arte Et Labore
 
EricDraven,

Um, what's the error your Win98 users are receiving?

-- Lance
 
We had a problem with older machines (win 95 and 98) when their Internet Explorer was out of date. We compiled with a newer version of the Windows common controls (at the time in Delphi 5). In particular, this problem applied to Imagelists. Brian
"There are 2 kinds of people in the world, those that divide people into two groups and those that don't. I belong to the second group." - tag line I stole
 
I have narrowed the problem down further and discovered that the program fails when trying to create the form which contains all of my quickreports. The windows error returned is "Printer selected is not valid". I can get around this by placing that forms creation into a try except loop, but this means the form will not be created and reports then cannot even be displayed on screen! Does anybody know of a way around this printer error??? Arte Et Labore
 
The following code seems to be directly relevant to the problem you are having but you will need to take the bits you need from it and change some of the names to match your components as I'm not sure which part actually fixes the prob! but here you go...

Code:
procedure TAceViewer.FormCreate(Sender: TObject);
begin
    FGenerating := False;
    ShowFirst := True;
    SelectPreview(LeftPreview);
    printers.printer.printerindex := -1;                         {NEW}
    CurrentPreview.AcePrinterSetup.GetData;          {NEW}
end;

Found the fix code from if you want to take a look.

Hope this helps,
JW
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top