Buchempfehlung
MySQL kurz & gut
MySQL kurz & gut
Das preiswerte Taschen- buch stellt MySQL-rele- vante Inhalte systematisch und knapp dar, sodass es sich optimal zum Nach- schlagen beim Pro- grammieren eignet. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

Code-Beispiel

Code-Beispiele » GTK, WxWidgets etc.

gtkcommand - GTK/Glade-Beispiel zum Ausführen von Betriebssystembefehlen

Lizenz:Erster Autor:Letzte Bearbeitung:
GPLv3Mitgliedksiebke 26.10.2010

Dies ist ein kleines GTK/Glade-Beispiel, welches diverse Codeschnipsel enthält, die für andere Entwicklungen verwendet werden können.
U.a. wird gezeigt, wie man einen Betriebssystembefehl absetzt, die ausgebenen Zeilen einliest und diese in einem GTK Textview anzeigt. Ausserdem wird demonstriert, wie man verschiedene Farben und Schriftarten verwendet und eine Codepagewandlung durchgeführt werden kann. Schließlich wird noch gezeigt, wie einfach ein Meldungsdialog mittels GTK realisiert wird.

Hier nun der Programmcode (die ebenfalls benötigte glade-Datei folgt weiter unten):

'******************************************************************************
'*  Program name: gtkcommand
'*
'*  Version:      1.0
'*
'*  Author:       Copyright (c) 2010 Klaus Siebke
'*                Siebke Unternehmensberatung
'*                URL http://www.siebke.com
'*
'*  Description:
'*  -----------
'*
'*  This program executes OS commands and writes the output to a textview
'*
'*  Used components:
'*  ---------------
'*
'*  FreeBasic
'*  Gtk
'*  glade (for graphical GUI design)
'*
'*  As program editor I recommend geany 0.12 or higher with FreeBasic
'*  syntax highlighting and compile/run "out of the box"
'*
'*
'*  License:
'*  -------
'*
'*  Program provided under GNU GENERAL PUBLIC LICENSE. Pls. refer to:
'*  http://gplv3.fsf.org/
'*
'*  Short summary:
'*  Permission to use, copy, modify, distribute and sell this software
'*  and its documentation for any purpose is hereby granted without fee,
'*  provided that the above copyright notice appear in all copies and
'*  that both that copyright notice and this permission notice appear
'*  in supporting documentation.
'*  It is provided "as is" without express or implied warranty.
'*
'******************************************************************************
'*  Programmname: gtkcommand
'*
'*  Version:      1.0
'*
'*  Autor:        Copyright (c) 2010 Klaus Siebke
'*                Siebke Unternehmensberatung
'*                URL http://www.siebke.com
'*
'*  Beschreibung:
'*  ------------
'*
'*  Das Programm führt Betriebssystemkommandos aus und schreibt das Ergebnis
'*  in einen Textview
'*
'*  Verwendete Komponenten:
'*  ----------------------
'*
'*  FreeBasis
'*  Gtk
'*  glade (fuer den grafischen GUI-Entwurf/Erstellung der xml-Datei)
'*
'*  Als Editor empfehle ich geany 0.12 oder ein hoeheres Release mit FreeBasic
'*  Syntax-Hervorhebung und Kompilieren/Ausfuehren direkt aus dem Editor
'*
'*  Lizenz:
'*  ------
'*
'*  Das Programm steht unter der GNU GENERAL PUBLIC LICENSE. Vgl. hierzu:
'*  http://gplv3.fsf.org/
'*
'*  Kurze Zusammenfassung:
'*  Sie erhalten die Erlaubnis, dieses Programm und die zugehoerige Dokumentation
'*  fuer beliebige Zwecke kostenlos zu benutzen, zu kopieren, zu veraendern,
'*  weiterzugeben oder zu verkaufen, unter der Voraussetzung, dass Sie diese
'*  Lizenzbestimmung und diesen Text auch in Ihre daraus erstellten Programme bzw.
'*  Dokumentationen uebernehmen.
'*  Dieses Werk wird Ihnen so ueberlassen "wie es ist", auf eigene Gefahr und ohne
'*  jegliche Gewaehrleistung.
'*
'******************************************************************************

'******************************************************************************
'* Include to be compatible with some VB commands / Ermoeglichen VB Befehle
'******************************************************************************
#include "vbcompat.bi"

'******************************************************************************
'* Includes for Gtk / Definitionen fuer Gtk
'******************************************************************************
#include "gtk/gtk.bi"
#include "gtk/libglade/glade-xml.bi"
#define NULL 0


'******************************************************************************
'* Subroutines (callbacks) or "events" in Visual Basic notation
'******************************************************************************
'1) corresponding to the signals in the glade xml file / analog zu den Signalen
'   in der glade xml Datei
declare sub on_window_delete_event cdecl alias "on_window_delete_event" (byval object as GtkObject ptr, byval user_data as gpointer )
declare sub on_execute_button_clicked cdecl alias "on_execute_button_clicked" (byval object as GtkObject ptr, byval user_data as gpointer )

'2) own routines / Eigene Routinen
declare sub get_userid()
Declare Function timer_func Cdecl (Byval NotUsed As Any Ptr) as integer
Declare Function toUTF8( Byval src As String ) As String

'******************************************************************************
'* Data definitions / Datendefinitionen
'******************************************************************************
dim shared xml           as GladeXML  ptr
dim shared toplevel      as GtkWidget ptr
dim shared dlgQuit       as GtkWidget ptr
dim shared messagedialog as GtkWidget ptr
dim shared status_bar    as GtkWidget ptr
dim shared entry         as GtkWidget ptr
dim shared textview      as GtkWidget ptr
dim shared inLName       as GtkWidget ptr
dim shared parent        as GtkWindow ptr
dim shared inFName       as string
dim shared starttime     as double
dim shared contextid     as Integer
dim shared msgbuffer     as string
dim shared retcd         as Integer
dim shared userid        as string
dim shared answer        as Integer
dim shared puffer        as GtkTextBuffer ptr
dim Shared ErrMsg        as Zstring Ptr
dim shared Farbe         as GdkColor

'******************************************************************************
'*
'*  =========================
'*  START OF THE MAIN PROGRAM
'*  BEGINN DES HAUPTPROGRAMMS
'*  =========================
'*
'******************************************************************************

'******************************************************************************
'*  Initialize Gtk / GUI (Gtk) initialisieren
'******************************************************************************
    gtk_init( NULL, NULL )

'******************************************************************************
'*  Specify the windows to be shown / Anzuzeigende Fenster spezifizieren
'******************************************************************************
    xml = glade_xml_new( "gtkcommand.glade", NULL, NULL )

'******************************************************************************
'*  Reference some widgets / Fenster+Felder referenzieren
'******************************************************************************

    toplevel  = glade_xml_get_widget( xml, "window" )
    entry     = glade_xml_get_widget( xml, "execute_entry" )
    textview  = glade_xml_get_widget( xml, "output_textview" )


 ' Initialize r/g/b components, they are 16-bit values
'  8 bit RGB Werte mit 257 multipliziert ergibt den 16 bit Wert,
'  weil 255 * 257 = 65535
   Farbe.red   = 255 * 257
   Farbe.green = 255 * 257
   Farbe.blue  = 181 * 257
   gtk_widget_modify_base (entry, GTK_STATE_NORMAL, @Farbe)

' Background / Hintergrund
 ' Initialize r/g/b components, they are 16-bit values
'  8 bit RGB Werte mit 257 multipliziert ergibt den 16 bit Wert,
'  weil 255 * 257 = 65535
   Farbe.red   = 206 * 257
   Farbe.green = 222 * 257
   Farbe.blue  = 254 * 257
   gtk_widget_modify_base (textview, GTK_STATE_NORMAL, @Farbe)

'  other examples:
'  gtk_widget_modify_fg (textview, GTK_STATE_NORMAL, @Farbe)
'  gtk_widget_modify_fg (textview, GTK_STATE_ACTIVE, @Farbe)
'  gtk_widget_modify_fg (textview, GTK_STATE_PRELIGHT, @Farbe)
'  gtk_widget_modify_fg (textview, GTK_STATE_SELECTED, @Farbe)
'  gtk_widget_modify_bg (textview, GTK_STATE_NORMAL, @Farbe)
'  gtk_widget_modify_bg (textview, GTK_STATE_ACTIVE, @Farbe)
'  gtk_widget_modify_bg (textview, GTK_STATE_PRELIGHT, @Farbe)
'  gtk_widget_modify_bg (textview, GTK_STATE_SELECTED, @Farbe)
'  gtk_widget_modify_base (textview, GTK_STATE_ACTIVE, @Farbe)
'  gtk_widget_modify_base (textview, GTK_STATE_PRELIGHT, @Farbe)
'  gtk_widget_modify_base (textview, GTK_STATE_SELECTED, @Farbe)
'  gdk_color_parse ("yellow", @Farbe)

'******************************************************************************
'*  Display main window / Hauptfenster anzeigen
'******************************************************************************
    gtk_widget_show_all( toplevel )
    glade_xml_signal_autoconnect( xml )

'******************************************************************************
'*  The main loop starts / Hier beginnt die eigentliche GUI-Verarbeitung
'******************************************************************************
    gtk_main( )  'to be terminated by function gtk_main_quit (see below)
                 'wird durch gtk_main_quit beendet (siehe unten)

'******************************************************************************
'*  Wrap up / Abschliessende Schritte
'******************************************************************************
'   a) unattach xml reference / xml Referenz abbauen
    g_object_unref( xml )
'   b) Finish program with return code 0 / Programm mit Returncode 0 beenden
    end 0

'******************************************************************************
'*
'*  =======================
'*  END OF THE MAIN PROGRAM
'*  ENDE DES HAUPTPROGRAMMS
'*  =======================
'*
'******************************************************************************


'------------------------------------------------------------------------------
'  now the sub programs start ... /ab hier Unterprogramme ...
'------------------------------------------------------------------------------

sub on_window_delete_event cdecl (byval object as GtkObject ptr, byval user_data as gpointer ) export
'******************************************************************************
'*  Close main window + end program (via 'X' button at the top right)
'*  Hauptfenster schliessen+Programm beenden (Ueber den 'X' Button rechts oben)
'******************************************************************************
  messagedialog = gtk_message_dialog_new (NULL, GTK_DIALOG_MODAL, GTK_MESSAGE_QUESTION, GTK_BUTTONS_YES_NO, "Wollen sie wirklich beenden?")
  parent = GTK_WINDOW (toplevel)
  gtk_window_set_transient_for (GTK_WINDOW(messagedialog), parent)
  answer = gtk_dialog_run (GTK_DIALOG (messagedialog))
  gtk_widget_destroy (messagedialog)
  if answer = GTK_RESPONSE_YES then
     gtk_main_quit () 'quits the GUI processing / beendet die GUI-Verarbeitung
  else
     gtk_widget_show_all( toplevel ) 'show the destroyed window again
  end if
end sub


sub on_execute_button_clicked cdecl (byval object as GtkObject ptr, byval user_data as gpointer ) export
'******************************************************************************
'*   React on execute button
'*   Auf den "Ausführen"-Knopf reagieren
'******************************************************************************
  dim Ausgabe   as zstring ptr
  dim ausg      as zstring ptr
  dim Kommando  as string
  dim ausgzeile as zstring ptr
  dim as Zstring Ptr returncode
  dim as GError Ptr ptr subrc
  dim font_desc as PangoFontDescription ptr
  dim s         as string
  dim cmdline   as zstring ptr
  dim stdout    as zstring ptr ptr
  dim stderr    as zstring ptr ptr
  dim exitstat  as gint ptr
  dim errcode   as gerror ptr
  dim err2      as gerror
  dim outbuff   as string
  dim widgetbuff as GtkTextBuffer ptr

'  const komm = "dir"


  Kommando = *gtk_entry_get_text (GTK_ENTRY (entry))

  outbuff = ""
  Dim text As String
  Open Pipe Kommando For Input As #1
  Do While Not EOF(1)
     Line Input #1, text
     outbuff = outbuff + text + chr(13) + chr(10)
  Loop
  close #1

' for linux possible as well / für Linux auch möglich:
' ----------------------
'  g_spawn_command_line_sync (Kommando, @stdout, NULL, NULL, @errcode)
'  err2 = *errcode
'  print err2.code
'  print *err2.message


'   Change font into fixed / Schrift in fixed ändern
    font_desc = pango_font_description_from_string ("monospace 10")
' other font examples:
'   font_desc = pango_font_description_from_string ("monospace underline=single 10")
'   font_desc = pango_font_description_from_string ("Helvetica Bold single 10")
    gtk_widget_modify_font (textview, font_desc)
    pango_font_description_free (font_desc)

'   Output with red font / Ausgabe in roter Schrift
    gdk_color_parse ("red", @Farbe)
    gtk_widget_modify_text(textview, GTK_STATE_NORMAL, @Farbe)


    if outbuff <> "" then
       widgetbuff = gtk_text_view_get_buffer (GTK_TEXT_VIEW (textview))
'      gtk_text_buffer_set_text (widgetbuff, outbuff, -1)
       gtk_text_buffer_set_text (widgetbuff, toUTF8(outbuff), -1)
    end if

end sub

Function toUTF8( Byval src As String ) As String
'******************************************************************************
'*  Codepage Conversion
'*  Zeichensatzkonvertierung
'******************************************************************************
        Dim As Zstring Ptr buff
        Function = ""
' Umwandeln von Windows-Zeichensatz in UTF-8
'        buff = g_convert( src, Len( src ), "UTF-8", "ISO-8859-1", NULL, NULL, NULL )
' Umwandeln von DOS-Zeichensatz in UTF-8
        buff = g_convert( src, Len( src ), "UTF-8", "IBM850", NULL, NULL, NULL )
        Function = *buff
        g_free( buff )
End Function

Und hier die .glade-Datei (unter gtkcommand.glade speichern):

<?xml version="1.0"?>
<glade-interface>
  <!-- interface-requires gtk+ 2.16 -->
  <!-- interface-naming-policy toplevel-contextual -->
  <widget class="GtkWindow" id="window">
    <property name="events">GDK_POINTER_MOTION_MASK | GDK_POINTER_MOTION_HINT_MASK | GDK_BUTTON_PRESS_MASK | GDK_BUTTON_RELEASE_MASK</property>
    <property name="border_width">10</property>
    <property name="title" translatable="yes">Execute OS command</property>
    <property name="default_width">560</property>
    <property name="default_height">380</property>
    <signal name="destroy" handler="gtk_main_quit"/>
    <signal name="delete_event" handler="on_window_delete_event"/>
    <child>
      <widget class="GtkVBox" id="vbox1">
        <property name="visible">True</property>
        <property name="events">GDK_POINTER_MOTION_MASK | GDK_POINTER_MOTION_HINT_MASK | GDK_BUTTON_PRESS_MASK | GDK_BUTTON_RELEASE_MASK</property>
        <child>
          <widget class="GtkHBox" id="hbox1">
            <property name="visible">True</property>
            <property name="events">GDK_POINTER_MOTION_MASK | GDK_POINTER_MOTION_HINT_MASK | GDK_BUTTON_PRESS_MASK | GDK_BUTTON_RELEASE_MASK</property>
            <property name="spacing">5</property>
            <child>
              <widget class="GtkEntry" id="execute_entry">
                <property name="visible">True</property>
                <property name="can_focus">True</property>
                <property name="events">GDK_POINTER_MOTION_MASK | GDK_POINTER_MOTION_HINT_MASK | GDK_BUTTON_PRESS_MASK | GDK_BUTTON_RELEASE_MASK</property>
              </widget>
              <packing>
                <property name="position">0</property>
              </packing>
            </child>
            <child>
              <widget class="GtkButton" id="execute_button">
                <property name="label" translatable="yes">gtk-execute</property>
                <property name="visible">True</property>
                <property name="can_focus">True</property>
                <property name="receives_default">True</property>
                <property name="events">GDK_POINTER_MOTION_MASK | GDK_POINTER_MOTION_HINT_MASK | GDK_BUTTON_PRESS_MASK | GDK_BUTTON_RELEASE_MASK</property>
                <property name="use_stock">True</property>
                <signal name="clicked" handler="on_execute_button_clicked"/>
              </widget>
              <packing>
                <property name="expand">False</property>
                <property name="position">1</property>
              </packing>
            </child>
          </widget>
          <packing>
            <property name="expand">False</property>
            <property name="position">0</property>
          </packing>
        </child>
        <child>
          <widget class="GtkScrolledWindow" id="scrolledwindow1">
            <property name="visible">True</property>
            <property name="can_focus">True</property>
            <property name="events">GDK_POINTER_MOTION_MASK | GDK_POINTER_MOTION_HINT_MASK | GDK_BUTTON_PRESS_MASK | GDK_BUTTON_RELEASE_MASK</property>
            <property name="border_width">2</property>
            <property name="hscrollbar_policy">automatic</property>
            <property name="vscrollbar_policy">automatic</property>
            <property name="shadow_type">etched-in</property>
            <child>
              <widget class="GtkTextView" id="output_textview">
                <property name="visible">True</property>
                <property name="can_focus">True</property>
                <property name="events">GDK_POINTER_MOTION_MASK | GDK_POINTER_MOTION_HINT_MASK | GDK_BUTTON_PRESS_MASK | GDK_BUTTON_RELEASE_MASK</property>
                <property name="editable">False</property>
              </widget>
            </child>
          </widget>
          <packing>
            <property name="position">1</property>
          </packing>
        </child>
      </widget>
    </child>
  </widget>
</glade-interface>

Viel Spaß damit!


Zusätzliche Informationen und Funktionen
  • Das Code-Beispiel wurde am 26.10.2010 von Mitgliedksiebke angelegt.
  • Die aktuellste Version wurde am 26.10.2010 von Mitgliedksiebke gespeichert.
  Bearbeiten Bearbeiten  

  Versionen Versionen