forums.silverfrost.com

[acw]

No previewers on, just plain old Win 7. I have another slightly larger app that's part of our commercial release. I can get it to reliably cause problems on several PCs, although it does seem to be related to a combination of library size and exe size/DLL complexity.

I tried to PM you a link (rather not put it up here as it includes a third part commercial lib license) but for some reason I can't send you any messages (I get an error from phpBB: "Ran into problems sending Mail. Response: 503 Bad sequence of commands. DEBUG MODE. Line : 185 File : smtp.php")- any suggestions ?

BTW. Did anything come of Paul's suggestion on DLL base address, or you're comment on DLLs not unloading properly ?

Cheers,
Alan

[Robert]

You can always email ftn95@silverfrost.com.

I assume this all runs happily under sdbg? sdbg is stricter about system exceptions (that are sometimes ignored).

[acw]

Sorry about the delay on this - it's quite difficult to get any consistency with this problem. It hasn't gone away though, but as I mentioned before seems to be linked to the size/complexity of the Documents library plus the executable.

I have run the earlier test program in sdbg and under my profile it crashes having created the file open dialog window, but not populated it (you see the outline of the window, sometimes with the root nodes of the left hand tree present). This occurs on three different Win7 computers (x64 & x86) - it's an exception within ntdll.dll (Exception 0x000006BA... most of the time !). However, if I log on with another account it generally works okay. Doing exactly the same thing in XP works absolutely fine.

I'm not sure where to go from here if you can't repeat the problem at all - hope something similar crops up elsewhere I suppose.

[Steve]

Robert,

We too are finding that using Get_filtered_file@ on W7 the PC occasionally waits before presenting the windows file dialog. Once control is back with the application the next gff call may be fine, then the next gff will require a wait again.

The W7 PC can be 32 bit or 64 bit.

This is unacceptable for our users who are not sure whether the application has hung.

Are you still none the wiser what is happening ?

[IanLambley]

Have you tried running the executable in XP compatibility mode?

Right click on the executable or its shortcut and select the compatibility tab and check the appropriate box and mode.
Ian

[lozzer]

[acw]

Good luck on the DLL front. I tried the same thing using both MFC and direct win32 api from C++ - same problem in both, although my problem is not so much the dialog start up time (although sometimes it's quite slow) - it's more the fact that selecting any of the libraries or other shortcuts in the left-hand pane causes the whole thing to hang for a few minutes, and then often doesn't actually work. Also trying to navigate the folder in the right pan doesn't work when looking at libraries. It's fine if I select the c/d/e/network shares directly and then drill down the folder hierarchy, it's just the libraries and shortcuts.

The only solution I can come up with at the moment is to run a C++-based sub-process for the dialog - not great.

FWIW it looks like the issue is related to the size/complexity of the user's folders, and also what other DLLs/libraries you're using.

[Robert]

This might be worth a look: http://social.answers.microsoft.com/Forums/en-US/w7performance/thread/d997d44f-ea9d-4efb-be7b-5c39fd18f6f6

[lozzer]

[Robert]

Do you mean you never get a delay if using the API? If so, can you post the fragment so I can compare it with the library code?

[lozzer]

[lozzer]

We are using your 'Filter.f95' program and get the same problem.


!****************************************************************************
!* *
!* Salford ClearWin+ Example Code *
!* *
!* filter.f95 - version 1.0 29/6/99 *
!* *
!* Example of ClearWin+ get_filtered_file routine *
!* *
!* only compile using FTN95 version 1.6 or higher *
!* *
!****************************************************************************
!* *
!* Illustrates the use of the function GET_FILTERED_FILE@ to obtain a *
!* filename from the user. *
!* *
!****************************************************************************

winapp

program filter
use mswin
integer :: res, select_file
external select_file
res = winio@('%ca[Filtered File Example]&')
res = winio@('%sy[thin_border]&')
res = winio@('%bg[BTNFACE]&')
res = winio@('%ob[raised]&')
res = winio@('This program illustrates the use of%ff&')
res = winio@('the function GET_FILTERED_FILE@.%ff&')
res = winio@('Use the buttons to make your choice%ff%nl&')
res = winio@('Note: that under WIN32 you will get the%ff&')
res = winio@('enhanced dialog box.%cb%ff%nl&')
res = winio@('%`^tt[&select file]%ff&', select_file)
res = winio@('%tt[&Exit]')
end program filter


!****************************************************************************
!* *
!* Callback function that calls get_filtered_file@ to display the standard *
!* 'open file' window *
!* *
!****************************************************************************

integer function select_file()
use mswin
integer :: res, number_of_filters
logical :: must_exist
character(len=128),dimension (10) :: filter_names, filters
character(len=128) :: file_name,path
character (len=20) :: title
common / pdata / title, file_name, path, filter_names, filters,&
& number_of_filters, must_exist
data ifirst / 1 /
if (ifirst.eq.1) then
ifirst = 0

title = 'select_file File'
path = 'c:\surveys\testdata\example survey - finished'
file_name = 'fred.txt'

filter_names = ' '
filter_names(1) = 'Text files'
filter_names(2) = 'Batch files'
filter_names(3) = 'All files'

filters = ' '
filters(1) = '*.txt'
filters(2) = '*.bat'
filters(3) = '*.*'

number_of_filters = 3
must_exist = .true.
endif

write(*,*) ' pre '
write(*,*) 'title = ', title(1:leng(title))
write(*,*) 'file_name = ', file_name(1:leng(file_name))
write(*,*) 'path = ',path(1:leng(path))
write(*,*) 'number_of_filters = ', number_of_filters
do i = 1, number_of_filters
contd...
_________________
Lozzer

[lozzer]

write(*,*) 'filter_names = ', filter_names(i)(1:leng(filter_names(i)))
write(*,*) 'filters = ', filters(i)(1:leng(filters(i)))
enddo
write(*,*) 'must_exist = ', must_exist


res = winio@('%ca[Result]&')
res = winio@('%bg[BTNFACE]&')
res = winio@('You selected file "%ws"%2nl&', file_name)
res = winio@('%cn%bt[OK]')
select_file = 1
end function select_file


What's happening is that I hit the select file button and choose a file. I do this 3 further times and all is okay. On the fifth time it hangs for about 20 seconds before the file selection window appears.

Then I can hit select file a further 5 times and it'll hang again.

Sometimes it returns no file at all. Sometimes it never even opens the Explorer Window, simply saying I have selected filename ""
_________________
Lozzer

[Ade]

Further to the post above regarding using Delphi in a DLL to generate the open dialog, I have found the following :-

Calling the Win32 API 'GetOpenFileName' does not cause any problems but this function was deprecated as of Windows Vista. Since windows vista, file dialogs are handled by a COM object : IFileDialog. Using IFileDialog from my DLL, I get the same erratic behavior as GET_FILTERED_FILE@. GFF@ produces the same style dialog as IFileDialog so I assume that this is what is being used on systems running Vista or later.

A search of the web reveals many people having problems with Open / Save dialogs on Win 7 across many varied applications.
_________________
Adrian Paveling
Systems Developer
McCarthy Taylor Systems Ltd

www.dtmsoftware.com

[KennyT]

Just a quick bump to say that I'm having a similar problem under W7 32 and 64 bit OS. Symptoms as noted above with one or two more to add into the pot...

1 Stopping and starting the app sometimes fixes it.
2 It's not limited to the "documents" library - it happens with "ordinary" folders as well, especially when trying to "save" a file.
3 Sometimes, repeated pressing of the "save" button eventually works.

Anyone found a solution yet?

K