Dialogové okno "otevřít soubor" ve FORTRANU?

Dobrý den,

potřeboval bych z programu, napsaném ve FORTRANU, zavolat dialogové okno "otevřít soubor", a pak programu vrátit cestu k vybranému souboru.

Nevíte prosím někdo jak na to? Mám představu, že se k programu přibalí nějaká knihovna, která toto obstarává v prostředích GNOME nebo KDE a přes ní se to "nějak" udělá. Program by měl fungovat jak v Linuxu tak i na Windows.

Děkuji za všechny vaše nápady

Debian GNU/Linux — instalační příručka v češtině

Odpovědi

Jaký Fortran máte na mysli? Ve Fortranu 77 bych se s něčím takovým otravovat nechtěl a obsluhu těchto věcí bych vytvořil v C nebo C++. Výslednou funkci pak lze samozřejmě z Fortranu 77 zavolat. Fortran 95 neznám skoro vůbec, ale tam už by možná šly takové funkce volat přímo.

Připojení funkcí a knihoven z jiného jazyka je snadné, z hlediska volání překladače a linkeru je to v podstatě stejné jako u C a C++. Jména proměnných a funkcí v obou jazycích se však trochu liší. GNU Fortran 77 připojuje ke jménům funkcí automaticky podtržítko, funkce opndlg_ v C se bude volat ve Fortranu call opndlg. Common blocky jsou v C dostupné jako struktury, jejímiž prvky jsou jednotlivé proměnné.

Řešení nakonec bylo jednoduché:

opendialog.f90:

! Program: Grafické rozhrani pro interaktivni vstup jmena souboru.

! Pouzity kompilator: Intel(R) Visual Fortran Compiler for applications running on IA-32, Version 10.1

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

      program opendialog

! nacteme potrebne knihovny pro pouziti Windows API

      use comdlg32

      use user32

      

      implicit none



      type(T_OPENFILENAME) ofn

      character(512) :: file_spec = ""C

      integer status,ilen

      

      ofn%lStructSize = SIZEOF(ofn)

      ofn%hwndOwner = GetForegroundWindow()

      ofn%hInstance = NULL

      ofn%lpstrFilter = loc(0)

      ofn%lpstrCustomFilter = NULL

      ofn%nMaxCustFilter = 0

      ofn%nFilterIndex = 1

      ofn%lpstrFile = loc(file_spec)

      ofn%nMaxFile = sizeof(file_spec)

      ofn%nMaxFileTitle = 0

      ofn%lpstrInitialDir = NULL

      ofn%lpstrTitle = loc(""C)

      ofn%Flags = OFN_PATHMUSTEXIST

      ofn%lpstrDefExt = loc("txt"C)

      ofn%lpfnHook = NULL

      ofn%lpTemplateName = NULL

      

! Zkontrolujeme navratovou hodnotu

      status = GetOpenFileName(ofn)

      if (status .eq. 0) then

        type *,'Nevratila se cesta k souboru!'

      else

! Zjistime pocet znaku cesty k souboru

        ilen = INDEX(file_spec,CHAR(0))

        type *,'Cesta k souboru: ',file_spec(1:ilen-1)

      end if

      end program opendialog

Debian GNU/Linux — instalační příručka v češtině

9.9.2008 23:57 Marek 'Maxicom' Zelenka | skóre: 14 | Kralupy nad Vltavou
Rozbalit Rozbalit vše Re: Dialogové okno "otevřít soubor" ve FORTRANU?

Řešení je zatím jen pro Windows...

Debian GNU/Linux — instalační příručka v češtině

Dotaz: Dialogové okno "otevřít soubor" ve FORTRANU?

Odpovědi