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

[Marek 'Maxicom' Zelenka]

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

Odpovědi

[#Tom]

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

[Marek 'Maxicom' Zelenka]

Ř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

[Marek 'Maxicom' Zelenka]

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

[Fuky]

Příloha:

• fdialog.tgz (5466 bytů)

Já bych to nekomplikoval, napsal část s GUI v C a přilinkoval k vlastnímu programu ve Fortranu. Ukázka v příloze využívá GTK.

[Fuky]

Nebo můžeš zkusit Platform Independent Library for Fortran, ale myslím, že to nebude moc používané a odladěné...

[Fuky]

A ještě mě napadá, že F2PY - Fortran to Python interface generator by nemuselo být špatné řešení.

[Marek 'Maxicom' Zelenka]

Díky, podívám se na to...