Delphi5 problem with W2000
Toni G.
Var TT :Word;
TMPSTR :String;
JobFileNumber :TStringList;
begin
Messagedlg('This is a Test',mtInformation,[mbok],0);
etc....
Zen
application.createform(TForm1, Form1); ??
--
zen
"Toni G." <sup...@tgsoft.ch> wrote in message news:3b28dc53$1_1@dnews...
Toni G.
{$R *.RES}
begin
Application.Title := 'TG-Plot II';
Application.CreateForm(THP2View, HP2View);
Application.CreateForm(TTG_Registry, TG_Registry);
Application.CreateForm(TServer_F1, Server_F1);
etc.....
Toni
Zen <zen_...@hotmail.com> schrieb in im Newsbeitrag: 3b28df94$1_2@dnews...
Barry Kelly
"Toni G." <sup...@tgsoft.ch> wrote:
First, please post in plain text. Thanks.
> If I put a messagedlg on the first line.....I never see the
> message (Dr.Watson....happen bevor Messagedlg is executed...)
>
> Procedure THP2View.FormCreate(Sender: TObject);
> [...]
> begin
> Messagedlg('This is a Test',mtInformation,[mbok],0);
This means that one of the units you have included fails in its
'initialization' statement, or the main program file (Project | View
Source) fails before it reaches the relevant line
Application.CreateForm.
-- Barry
--
One must sometimes choose between expressiveness, safety, and
performance. But a scarcity of one isn't always excused by an
abundance of another. - Thant Tessman
Team JEDI: http://www.delphi-jedi.org
NNQ - Quoting Style in Newsgroup Postings
http://web.infoave.net/~dcalhoun/nnq/nquote.html
Toni G.
....
> This means that one of the units you have included fails in its
> 'initialization' statement, or the main program file (Project | View
> Source) fails before it reaches the relevant line
> Application.CreateForm.
>
But how this can happen as this is the first CreateForm ?
And why only on W2000 ?
And why this works if compiled on Delphi 3 ?
Toni
Barry Kelly <dyn...@eircom.net> schrieb in im Newsbeitrag:
n7ohit8m97glk6jc8...@4ax.com...
Barry Kelly
"Toni G." <sup...@tgsoft.ch> wrote:
> > This means that one of the units you have included fails in its
> > 'initialization' statement
> But how this can happen as this is the first CreateForm ?
Units are initialized before the main project's begin..end is entered.
CreateForm is called in the main project's begin..end. Therefore,
units are initialized before CreateForm is called.
> And why only on W2000 ?
Something in one of your units calls something that isn't compatible
with Win2K?
> And why this works if compiled on Delphi 3 ?
Because when it (whatever unit it is) is compiled under Delphi 3, it
doesn't invoke this incompatibility?
It might also be a DLL load that is failing with an AV or something.
However, since you don't have this problem with Delphi 3, it is
probably something in a unit's initialization clause.
Toni G.
{$R *.RES}
begin
Application.Title := 'TG»Plot II';
--> Application.CreateForm(THP2View, HP2View);
On this is happen.
And on the createform, no one line is executed.
Regards
Toni
John Herbster <jo...@petronworld.com> schrieb in im Newsbeitrag:
3b28e69f_1@dnews...
> Toni G. <sup...@tgsoft.ch> wrote
> >> In my Program [DPR?] code I could find that the error happen on
> create of the Main form.
> The interesting thing it happens when it enter the Create Metode.
> (Bevor executing any Instruction.)
>
> Toni, With "Create Metode" do you mean
> Application.CreateForm()
> TMyForm1.FormCreate(), or
> TMyForm1.Create()?
> Rgds, JohnH
>
>
>
John Herbster
>> In my Program [DPR?] code I could find that the error happen on
create of the Main form.
The interesting thing it happens when it enter the Create Metode.
(Bevor executing any Instruction.)
Toni, With "Create Metode" do you mean
Toni G.
I have not the log just now here.
I will look at it on Monday. But I can't remeber to have see a similar
message.
Toni
Sraya Malkiel <sr...@malkiel.com> schrieb in im Newsbeitrag:
3b28e6a0_1@dnews...
> Toni -
> did you look into the log file created by win 2000 ?
> I have a similar problem and last named function in the error log is
> getCommandLineW from kernel32.
> I stil dont know what it means, but if it is the same, I think we have a
> clue.
> Sraya
>
Sraya Malkiel
Henrick Hellström
begin
--> Application.Initialize;
Application.Title := 'TG-Plot II';
...etc
?
--
Henrick Hellström hen...@streamsec.se
StreamSec HB http://www.streamsec.com
"Toni G." <sup...@tgsoft.ch> skrev i meddelandet news:3b28e007_1@dnews...
Antony Hoon
news:n7ohit8m97glk6jc8...@4ax.com...
> This means that one of the units you have included fails in its
> 'initialization' statement, or the main program file (Project | View
> Source) fails before it reaches the relevant line
> Application.CreateForm.
Toni G. <sup...@tgsoft.ch> wrote in message
news:3b28e7d1$1_1@dnews...
>
> {$R *.RES}
> begin
> Application.Title := 'TG»Plot II';
> --> Application.CreateForm(THP2View, HP2View);
Barry, the error is in the Application.CreateForm line. That means the
units initialization runs fine.
Toni, have you try a complete build on the project?
--
Antony Hoon
Delphi Addicted
(Replace 4x7 with 7777 to reply..)
Toni G.
Yes I have try this.
I spend many hours (...days..) to find the BUG.
But as I say....same code Delphi 3 runs on all platforms......same code
Delphi 5 runs on all, but not on W2000.
So I'm not shure but I think it's may a Borland Delphi 5 Problem.
Just for Info my Projekt is very large ( > 100'000 Lines of code)
however, for me, there is no logical explanation why only on W2000 it does
not work.
(I mean if it works on W98, that is not really a stable OS....why not
running on W2000.....)
And if it's really a problem of "My own Units", why only on W2000 and D5
??????
As all the World is moving to W2000, I need to move also, but maybe I'm
lucky as Delphi 6 is comming soon....
So I'm happy of any Ideas.
Thanks
Toni
Antony Hoon <anto...@telkom.net> schrieb in im Newsbeitrag:
3b291cdd_2@dnews...
John Herbster
> I spend many hours (...days..) to find the BUG.
Toni, Maybe it is time to start stepping through the code using the
CPU Register View that D5 provides. JohnH
Zen
like
var
HP2View: THP2View; ????
I know this sounds silly but I do not have your code.
and does this file actually exists in your project?
--
Lawrence C. Thurman Jr. CIC, SJCP2
Delphi Chief Architect & CTO
3X Corporation
www.3x.com
lawrence...@3x.com
614-433-9406 ext 9086 VM
614-531-9992 Mobile
614-995-0074 Client Site
"Toni G." <sup...@tgsoft.ch> wrote in message news:3b28e007_1@dnews...
> Yes..really standard.
>
> {$R *.RES}
> begin
> Application.Title := 'TG-Plot II';
> Application.CreateForm(THP2View, );
Toni G.
THP2View is the main Form.
And by the way, if HP2View is not defined, you will get an error while
comiling.
And as I say....this problem is only on W2000.
Same code compiled with Delphi3 works on all OS.
I don't thing that something is wrong on the code.
Delphi 3 and 5, both compile the code without any error.
But the EXE is larger when comiled on Delphi 5, and only on W2000 I get Dr.
Watson....
(I mean if the EXE runs on NT and 98, the source code must be OK)
Toni
Zen <zen_...@hotmail.com> schrieb in im Newsbeitrag: 3b29efe1$1_2@dnews...
Toni G.
I will try and let you know.
But I dont thing this will fix anything, as I do not use any OLE objects....
Thanks
Toni
Henrick Hellström <hen...@streamsec.se> schrieb in im Newsbeitrag:
3b2913dc_2@dnews...
Toni G.
this is maybe a good Idea, but the problem is that I'm developing on NT.
On W2000, I just run the program.
But maybe I need to Install all my Delphi envirement on W2000 to find the
BUG.
Toni
John Herbster <herb...@swbell.net> schrieb in im Newsbeitrag:
3b29eca6$1_1@dnews...
Zen
if so are you loading the the database in the main form?
if so do you have the database drivers installed?
--
Zen
"Toni G." <sup...@tgsoft.ch> wrote in message news:3b29f6d3_2@dnews...
Toni G.
(In fact is a RIP (Raster Imaging Processor)).
Toni
Zen <zen_...@hotmail.com> schrieb in im Newsbeitrag: 3b29fc0b$1_1@dnews...
Peter Below (TeamB)
> I'm moving now all my projects from Delphi 3 to Delphi 5.
> My main Application, (Plot mamangement program), was developet
> originaly for NT4.0 and with Delphi 3.
> my new version of my program works fine under NT4.0, (and also on
> W98), but when I try to run under W2000,
> I get a Dr. Watson. ( as
> I say this happen only on W2000, NT4 and W98 works fine)
From your description it sounds as if the error happens when the new
form tries to load itself from the form resource. So some component you
are using on the form is not Win2K compatible. To find out which you
need a PC with Win2K on which you can install D5. Move the project
there, build it with debug DCUs, so you can trace into the VCL source.
You can now put a breakpoint on the CreateForm statement in the DPR
file, run to it and then single-step through the form loading code.
That should allow you do identify which component causes the problem.
Peter Below (TeamB) 10011...@compuserve.com)
No e-mail responses, please, unless explicitly requested!
Note: I'm unable to visit the newsgroups every day at the moment,
so be patient if you don't get a reply immediately.
Zen
and are they only for Windows 95 or 98?
reasoning - windows 95 was really a bad operating system -bad by had a lot
of holes in it
sort of like swiss cheese - 98 got better - w2000 is the best so far.
and it doesn;t like it when an application accesses areas that it is not
supposed to be in.
--
Zen
"Toni G." <sup...@tgsoft.ch> wrote in message news:3b29fe89$1_2@dnews...
Toni G.
Imagelib & DynaZip. (both should work on W2000)
However I use the same components in Delphi 3.
(And remember ....it works on W2000 if compiled from Delphi3, but not if
compiled with Delphi5...)
And if compiled on Delphi 5 it works on W98 & NT...only on W2000 its not
working...
This thing is driving me crazy...
Toni
Zen <zen_...@hotmail.com> schrieb in im Newsbeitrag: 3b2a05bb_1@dnews...
Toni G.
However, I try to put a Messagedlg as the first line of the Create....
This is my App code.......
$R *.RES}
begin
Application.Title := 'TG-Plot II';
Application.CreateForm(THP2View, HP2View);
Application.CreateForm(TTG_Registry, TG_Registry);
Application.CreateForm(TServer_F1, Server_F1);
etc.....
On the THP2View.Create if i put a Messagedlg ( to see if this position is
reached..and I mean this is the first Create )
Procedure THP2View.FormCreate(Sender: TObject);
Var TT :Word;
TMPSTR :String;
JobFileNumber :TStringList;
begin
Messagedlg('This is a Test',mtInformation,[mbok],0);
PRG_FIRSTLOOP:=TRUE;
etc....
The message never appear...(Dr. Watson happen, bevor this line is
executed...)
This may Help....this are the Units used...
uses
ShellApi,Windows,SysUtils, WinTypes, WinProcs, Messages, Classes,
Graphics, Controls,
Forms, Dialogs, StdCtrls, Buttons,
Menus,Grids,Printers,Inifiles,Math,ComCtrls,ExtCtrls,ToolWin,
// Imagelib Stuff
TDMULTIP,ExtDlgs,
ILDocImg,DLLSP96,MASK,SPIN,DLL96v1,TMultiP,
// Own Units
SCSI_U,DB_u,
TGGR300,TIFF100A,RSPrint_Lib,Serial_u,EM1,
Preview_u,DynaZip,
DynaLibU,TGF_def,Formats_u,alchmain035,TG_Registry_u,TG_Lib,HPGL2_def;
Toni
Peter Below (TeamB) <10011...@compuXXserve.com> schrieb in im
Newsbeitrag: VA.0000729...@antispam.compuserve.com...
John Herbster
> ... using 3rd party components. Imagelib & DynaZip. ...
Toni,
I had a problem with similar symptoms when using and Active-X
component. It would get an AV when doing a license check and at
other places under some Win versions and not others and sometimes it
would not work under the IDE and sometimes only w/o the IDE.
The company that made it finally fixed it, but I had to loan them an
extry copy of D5 and my test programs to troubleshoot it.
To help isolate the problem, I suggest making very small test
programs, one with each of your foreign components and trying them.
This is similar to Peter's suggestion.
Regards, JohnH
Zen
I would see if they have an upgrade for D5 and w2000.
too bad you cannot just comment out the modules for the imagelib and
see if it works.
--
Zen
"Toni G." <sup...@tgsoft.ch> wrote in message news:3b2a112c$1_2@dnews...
J.Marsch
what Peter is telling you should allow you to debug into the component that
is causing the problem.
By the way, here's a WAG for you:
It was either in Delphi 3 or 4 (pretty sure it was 4) that they changed some
of the firing order for the create events. Built with D5, your OnCreate
event is firing in a different order than it was when built in D3. Have you
tried setting the "OldCreateOrder" property on your forms to True? This
will restore D3 and previous create event order.
"Toni G." <sup...@tgsoft.ch> wrote in message news:3b2a146b$1_2@dnews...
Peter Below (TeamB)
> That may the only posibility to find what is wrong.
>
> However, I try to put a Messagedlg as the first line of the Create....
You have to understand the steps involved. CreateForm calls the form
classes constructor Create. Create calls CreateNew, which basically
initializes the empty form, them it calls other routines to read the form
resource, create the forms components from the resource and load their
properties. Only after that has been done is the OnCreate event fired. So
if one of these intermediate steps blows up your FormCreate method is never
called. This was in fact the reason for my statement in the prior post that
it is probably a component on your form that causes the problem.
Toni G.
I will try on monday at the office and let you know....
Toni
Peter Below (TeamB) <10011...@compuXXserve.com> schrieb in im
Newsbeitrag: VA.000072b...@antispam.compuserve.com...
Toni G.
I try to compile the code on W2000....and I'm was surprised. On my Laptop
under W2000, the Software works.
But on two other W2000 PC it doesn't ????
If it's may possible that is a CPU Speed issue ?
(My Laptop is a PII 333 Mhz, the other two are PIII 866 Mhz)
However here the code from Dr. Watson, maybe some one can see something...
The error is following line
Error ->778b1678 e9a8ddfdff jmp wcsncmp+0xfa (7788f425)
****************************************************************************
************
Microsoft (R) Windows 2000 (R) Version 5.00 DrWtsn32
Copyright (C) 1985-1999 Microsoft Corp. Alle Rechte vorbehalten.
Anwendungsausnahme aufgetreten:
Anwendung: (pid=1060)
Wann: 19.06.2001 @ 16:34:16.334
Ausnahmenummer: c0000025
()
*----> Systeminformationen <----*
Computername: WS-TOG
Benutzername: antoniog
Prozessoranzahl: 1
Prozessortyp: x86 Family 6 Model 8 Stepping 6
Windows 2000-Version: 5.0
Aktuelles Build: 2195
Service Pack: 2
Aktueller Typ: Uniprocessor Free
Firma:
Besitzer: MPA
*----> Taskliste <----*
0 Idle.exe
8 System.exe
136 SMSS.exe
164 CSRSS.exe
184 WINLOGON.exe
212 SERVICES.exe
224 LSASS.exe
388 svchost.exe
416 SPOOLSV.exe
484 defwatch.exe
500 svchost.exe
528 rtvscan.exe
632 regsvc.exe
652 mstask.exe
704 WinMgmt.exe
448 explorer.exe
572 vpexrt.exe
964 atiptaxx.exe
884 vptray.exe
944 realplay.exe
900 AcroTray.exe
1088 BigFix.exe
1100 App2.exe
1060 TGPLOT.exe
1144 DRWTSN32.exe
0 _Total.exe
(00400000 - 00A7A000)
(77880000 - 77901000)
(77E70000 - 77F32000)
(77E00000 - 77E64000)
(77F40000 - 77F7C000)
(77DA0000 - 77DFB000)
(77D30000 - 77DA0000)
(779A0000 - 77A3B000)
(77A40000 - 77B36000)
(75000000 - 75010000)
(77810000 - 77817000)
(75940000 - 75946000)
(71700000 - 7178A000)
(777F0000 - 7780D000)
(77580000 - 777C8000)
(70BD0000 - 70C1C000)
(76B00000 - 76B3F000)
(78000000 - 78046000)
(750E0000 - 7512F000)
(77BD0000 - 77BDF000)
(75130000 - 75136000)
(750C0000 - 750D0000)
(74FA0000 - 74FB3000)
(74F90000 - 74F98000)
(77940000 - 7796A000)
(77970000 - 77994000)
(74FC0000 - 74FC9000)
(77540000 - 77571000)
Statusabbild für Threadkennung 0x4c4
eax=0fa7e4c8 ebx=0fa7ffb4 ecx=00000000 edx=ffffffff esi=0fa7e540
edi=00000000
eip=778b1678 esp=0fa7e4bc ebp=0fa7e528 iopl=0 nv up ei pl nz na pe
nc
cs=001b ss=0023 ds=0023 es=0023 fs=003b gs=0000
efl=00000202
Funktion: RtlTraceDatabaseEnumerate
778b1653 e9baddfdff jmp wcsncmp+0xe7 (7788f412)
778b1658 48 dec eax
778b1659 7422 jz RtlConvertUlongToLargeInteger+0x1a37
(778bdd7d)
778b165b c745a0260000c0
ss:104fbafa=????????
mov dword ptr [ebp+0xa0],0xc0000026
778b1662 8d45a0 lea eax,[ebp+0xa0]
ss:104fbafa=????????
778b1665 c745a401000000 mov dword ptr [ebp+0xa4],0x1
ss:104fbafa=????????
778b166c 50 push eax
778b166d 8975a8 mov [ebp+0xa8],esi
ss:104fbafa=????????
778b1670 894db0 mov [ebp+0xb0],ecx
ss:104fbafa=????????
778b1673 e8a0f8ffff call RtlRaiseException (778b0f18)
Error ->778b1678 e9a8ddfdff jmp wcsncmp+0xfa (7788f425)
778b167d 8b45f0 mov eax,[ebp+0xf0]
ss:104fbafa=????????
778b1680 834e0410 or dword ptr [esi+0x4],0x10
ds:104fbb12=????????
778b1684 3b45fc cmp eax,[ebp+0xfc]
ss:104fbafa=????????
778b1687 0f8698ddfdff jbe wcsncmp+0xfa (7788f425)
778b168d 8945fc mov [ebp+0xfc],eax
ss:104fbafa=????????
778b1690 e990ddfdff jmp wcsncmp+0xfa (7788f425)
778b1695 c745a0250000c0
ss:104fbafa=????????
mov dword ptr [ebp+0xa0],0xc0000025
778b169c ebc4 jmp strtol+0x116 (778b9a62)
778b169e 834e0408 or dword ptr [esi+0x4],0x8
ds:104fbb12=????????
778b16a2 32c0 xor al,al
778b16a4 e93a9cfdff jmp RtlLookupAtomInAtomTable+0x146
(7788b2e3)
*----> Stack Back Trace <----*
FramePtr ReturnAd Param#1 Param#2 Param#3 Param#4 Function Name
0FA7E528 778A0346 0FA7E540 0FA7E570 0FA7E540 0FA7E570
ntdll!RtlTraceDatabaseEnumerate
0FA7E894 0052657B 0EEDFADE 00000001 00000007 0FA7E8AC
ntdll!KiUserExceptionDispatcher
0FA7F040 0052DFDD 0090D22C 0FA7F068 00404380 0FA7F060 !<nosymbols>
0FA7F060 005302C8 0FA7F0D8 00404380 0FA7F080 00000000 !<nosymbols>
0FA7F080 0044204B 1055F3B4 00000008 0055B9BC 1055B734 !<nosymbols>
0FA7F098 00449095 0155B734 1055B734 0FA7F0C0 0044204B !<nosymbols>
0FA7F0A8 0044204B 1055B734 00000003 805526F4 10551A20 !<nosymbols>
0FA7F0C0 0045A30B 80000000 10551A20 0FA7F0EC 0045B2B4 !<nosymbols>
0FA7F0D0 0045B2B4 0FA7FDA8 00404380 0FA7F0EC 81A7F13C !<nosymbols>
0FA7F0EC 00403F71 10551A20 00000000 0052657B 1056DD04 !<nosymbols>
0FA7FED4 00463843 0FA7FF0C 004043EF 0FA7FF04 0006D148 !<nosymbols>
0FA7FF04 005E6D69 0FA7FFB4 005E7756 0FA7FFC0 00000000 !<nosymbols>
0FA7FFC0 77E87D08 0006D148 000001AE 7FFDF000 0006CEE0 !<nosymbols>
0FA7FFF0 00000000 005E6D14 00000000 000000C8 00000100
kernel32!CreateProcessW
****************************************************************************
************
Thanks....
Toni
Toni G. <sup...@tgsoft.ch> schrieb in im Newsbeitrag: 3b2a5b07_1@dnews...