Results 1 to 1 of 1

Thread: OnLine dictionary Search

  1. #1
    thinBasic author ErosOlmi's Avatar
    Join Date
    Sep 2004
    Location
    Milan - Italy
    Age
    54
    Posts
    8,636
    Blog Entries
    2
    Rep Power
    10

    OnLine dictionary Search

    Attached to this post an example inspired by John Spikowski example posted here:
    http://www.thinbasic.com/community/s...2-Beta-Release

    It is s simple User Interface using TcpUdp module to interrogate online dictionaries.
    Script can be greatly improved and amended if I did some error

    Have fun.
    Eros


    '------------------------------------------------------------------------------
    'Online dictionary search
    '------------------------------------------------------------------------------
    ' Project: Visual Designer generated code
    ' File:    
    ' Created: On 02-12-2013 at 21:34:54
    '------------------------------------------------------------------------------
    
    
    #MINVERSION 1.9.0.0
    '---Needed thinBasic modules
    Uses "UI"
    Uses "TcpUdp"
    
    
    '---Controls IDs---
    Begin ControlID
    	%IDC_GROUPBOX_SERVERS
    	%IDC_COMBOBOX_SERVERS
    	%IDC_BUTTON_SERVERFETCH
    	%IDC_GROUPBOX_DICTIONARIES
    	%IDC_LISTBOX_DICTIONARY
    	%IDC_GROUPBOX_TRANSLATION
    	%IDC_EDIT_TRANSLATION
    	%IDC_STATICLABEL_SEARCH
    	%IDC_EDIT_SEARCH
    	%IDC_BUTTON_SEARCH
    End ControlID
    
    
    
    
    '------------------------------------------------------------------------------
    ' Main thinBasic function
    '------------------------------------------------------------------------------
    Function TBMain() As Long
    
    
    	MainWindow_Create(%HWND_DESKTOP)
    
    
    End Function
    
    
    '------------------------------------------------------------------------------
    ' Create main Window
    '------------------------------------------------------------------------------
    Function MainWindow_Create(ByVal hParent As Long) As Long
    
    
    	Local hDlg     As Long
    	Local lStyle   As Long
    	Local lStyleEx As Long
    	lStyle = _                          
    	        %WS_DLGFRAME          | _   
    	        %WS_CAPTION           | _   
    	        %WS_SYSMENU           | _   
    	        %WS_OVERLAPPEDWINDOW  | _   
    	        %WS_CLIPCHILDREN      | _   
    	        %WS_CLIPSIBLINGS      | _   
    	        %DS_CENTER                  
    	lStyleEx = 0                        
    
    
    	'---Create the main dialog
    	Dialog New Pixels, hParent, "Online Dictionary", -1, -1, 728, 467, lStyle, lStyleEx, To hDlg
    
    
      '---Set the minimum size of the dialog
      Dialog Set MinClientSize hDlg, 728, 467
    
    
      '---Servers
    	Control Add Frame   , hDlg, %IDC_GROUPBOX_SERVERS, "Servers"          ,   8,   8, 360,  48, %WS_CHILD Or %WS_CLIPSIBLINGS Or %WS_VISIBLE Or %BS_GROUPBOX, %WS_EX_TRANSPARENT
    	Control Add COMBOBOX, hDlg, %IDC_COMBOBOX_SERVERS,                    ,  16,  24, 248,  24
    	Control Add Button  , hDlg, %IDC_BUTTON_SERVERFETCH, "Fetch"          , 272,  24,  88,  24, %WS_CHILD Or %WS_CLIPSIBLINGS Or %WS_TABSTOP Or %WS_VISIBLE Or %BS_PUSHBUTTON, 0
    
    
      '---Dictionaries inside servers
    	Control Add Frame   , hDlg, %IDC_GROUPBOX_DICTIONARIES, "Dictionaries",   8,  64, 712, 216, %WS_CHILD Or %WS_CLIPSIBLINGS Or %WS_VISIBLE Or %BS_GROUPBOX, %WS_EX_TRANSPARENT
    	Control Add LISTBOX , hDlg, %IDC_LISTBOX_DICTIONARY,                  ,  16,  80, 696, 192, %WS_BORDER Or %WS_CHILD Or %WS_CLIPSIBLINGS Or %WS_TABSTOP Or %WS_VISIBLE Or %WS_VSCROLL Or %LBS_NOINTEGRALHEIGHT Or %LBS_NOTIFY, 0
    
    
      '---Search
    	Control Add Label   , hDlg, %IDC_STATICLABEL_SEARCH, "Enter Word to Search For:" _ 
    	                                                                      ,   8, 298, 136,  24, %WS_CHILD Or %WS_CLIPSIBLINGS Or %WS_VISIBLE Or %SS_NOTIFY, %WS_EX_TRANSPARENT
    	Control Add Textbox , hDlg, %IDC_EDIT_SEARCH, ""                      , 152, 292, 440,  24, %WS_CHILD Or %WS_CLIPSIBLINGS Or %WS_TABSTOP Or %WS_VISIBLE, %WS_EX_CLIENTEDGE
    	Control Add Button  , hDlg, %IDC_BUTTON_SEARCH, "Search"              , 608, 292, 112,  24
    
    
      '---Translations
    	Control Add Frame   , hDlg, %IDC_GROUPBOX_TRANSLATION, "Translations" ,   8, 320, 712, 128, %WS_CHILD Or %WS_CLIPSIBLINGS Or %WS_VISIBLE Or %BS_GROUPBOX, %WS_EX_TRANSPARENT
    	Control Add Textbox , hDlg, %IDC_EDIT_TRANSLATION, ""                 ,  16, 336, 696, 104, %WS_CHILD Or %WS_CLIPSIBLINGS Or %WS_TABSTOP Or %WS_VISIBLE Or %ES_AUTOHSCROLL Or %ES_AUTOVSCROLL Or %WS_VSCROLL Or %WS_HSCROLL Or %ES_LEFT Or %ES_MULTILINE Or %ES_WANTRETURN, %WS_EX_CLIENTEDGE
    
    
    
    
      '---Those magic command just let programmer to set and forget automatic resizing of controls
      '---Without this command, programmer should have to adjust resizing of controls manually inside %WM_SIZE event of parent window
    	Control Set Resize hDlg, %IDC_GROUPBOX_DICTIONARIES   , 1, 1, 1, 0
    	Control Set Resize hDlg, %IDC_LISTBOX_DICTIONARY      , 1, 1, 1, 0
    	
    	Control Set Resize hDlg, %IDC_STATICLABEL_SEARCH      , 1, 0, 0, 0
    	Control Set Resize hDlg, %IDC_EDIT_SEARCH             , 1, 1, 0, 0
    	Control Set Resize hDlg, %IDC_BUTTON_SEARCH           , 0, 1, 0, 0
    	
    	Control Set Resize hDlg, %IDC_GROUPBOX_TRANSLATION    , 1, 1, 1, 1
    	Control Set Resize hDlg, %IDC_EDIT_TRANSLATION        , 1, 1, 1, 1
    
    
      '---Show main window in modal way
    	Dialog Show Modal hDlg, Call MainWindow_Proc
    
    
      '---Final clean up
    
    
    End Function
    
    
    '------------------------------------------------------------------------------
    ' Main WIndow CallBack handler
    '------------------------------------------------------------------------------
    CallBack Function MainWindow_Proc() As Long
      String  sBuffer
      String  sServer
      String  sDictionary
      String  sSearchText
      Long    nDB
      Long    lRet
    
    
      '---We need to determine what kind of event has been fired
      '---Pseudo variable CBMSG (CallBack Message) can be used to find it
    	Select Case CBMSG
    
    
        '---This event is fired only once when Window is created.
    	  Case %WM_INITDIALOG
          '---In this examplewe just need to fill server combo box
          COMBOBOX Add CBHNDL, %IDC_COMBOBOX_SERVERS, "dict.org", "dict1.us.dict.org", "all.dict.org"
            
        '---This event is fired every time a command (button, menu, ...) is used/clicked
    	  Case %WM_COMMAND
    	     
          '---Here we just need to get what control fired the event
    
    
          '---Control ID is automagically determined using pseudo variable CBBTL (CallBack Control)
          Select Case CBCTL
            
            '---OK someone clicked on Server Fetch button, so 
            Case %IDC_BUTTON_SERVERFETCH 
              If Len(Control_GetText(CBHNDL, %IDC_COMBOBOX_SERVERS)) Then
                Control Disable CBHNDL, %IDC_COMBOBOX_SERVERS, %IDC_BUTTON_SERVERFETCH
                  Control Set Text CBHNDL, %IDC_BUTTON_SERVERFETCH, "Fetching ..."
                  Control Set Text CBHNDL, %IDC_GROUPBOX_DICTIONARIES, "Loading dictionaries ... "
                  LISTBOX Reset CBHNDL, %IDC_LISTBOX_DICTIONARY
                  sBuffer = LoadServerDB(Control_GetText(CBHNDL, %IDC_COMBOBOX_SERVERS), nDB)
      
                  '---Now check return number of DB
                  If nDB < 0 Then
                    '---Something not good happened
                    Control Set Text CBHNDL, %IDC_GROUPBOX_DICTIONARIES, "<!> Something went wrong. Check your internet connection or server status"
                  Else
                    LISTBOX Add CBHNDL, %IDC_LISTBOX_DICTIONARY, sBuffer Using $CRLF
                    Control Set Text CBHNDL, %IDC_GROUPBOX_DICTIONARIES, nDB & " dictionaries loaded"
                  End If
                  Control Set Text CBHNDL, %IDC_BUTTON_SERVERFETCH, "Fetch"
                Control Enable CBHNDL, %IDC_COMBOBOX_SERVERS, %IDC_BUTTON_SERVERFETCH
              Else
                Control Set Text CBHNDL, %IDC_GROUPBOX_DICTIONARIES, "<!> Please select a server"
              End If
            
            '---Someone clicked Search button  
            Case %IDC_BUTTON_SEARCH
              '---Get server
              sServer = Control_GetText(CBHNDL, %IDC_COMBOBOX_SERVERS)
              
              '---Do we have something to search for?
              sSearchText = Control_GetText(CBHNDL, %IDC_EDIT_SEARCH)
              If Len(sSearchText) Then
      
                '---Do we have a server selected
                LISTBOX Get Text CBHNDL, %IDC_LISTBOX_DICTIONARY To sDictionary
                sDictionary = Parse$(sDictionary, $SPC, 1)
      
                Control Set Text CBHNDL, %IDC_BUTTON_SEARCH, "Searching ..."
                Control Set Text CBHNDL, %IDC_GROUPBOX_TRANSLATION, EXPAND$("Searching $sSearchText in dictionary $sDictionary ...")
                Control Set Text CBHNDL, %IDC_EDIT_TRANSLATION, ""
                sBuffer = SearchForTerm(sServer, sDictionary, sSearchText, lRet) 
      
                Control Set Text CBHNDL, %IDC_EDIT_TRANSLATION, sBuffer
      
                Control Set Text CBHNDL, %IDC_BUTTON_SEARCH, "Search"
      
              Else
                Control Set Text CBHNDL, %IDC_GROUPBOX_TRANSLATION, "<!> Please type something to search for"
              End If
          End Select
    
    
    	End Select
    	
    End Function
    
    
    '------------------------------------------------------------------------------
    '---Giving a server name, try to load dictionaries present on that server
    '------------------------------------------------------------------------------
    Function LoadServerDB(ByVal sName As String, ByRef nDB As Long) As String
      Long    lResult
      String  sBuffer
      String  FullBuffer
      Long    Counter
      Long    Channel = TCP_FreeFile
      
      '[breakpoint] <Any note here. Breakpoint will be set to line following this statement>
      lResult = TCP_Open(2628, sName, Channel, 5000)
    
    
      If lResult <> %NULL Then
        '---Something not good happened
        nDB = -1
      Else
        '---Connection OK, now fetch dictionary list
        lResult = TCP_Send(Channel, sBuffer)
        sBuffer = TCP_Recv(Channel, 20000)
        lResult = TCP_Print(Channel, "SHOW DATABASES")
        sBuffer = TCP_LineInput(Channel)
        nDB = Parse$(sBuffer, $SPC, 2)
        
        For Counter = 1 To nDB
          sBuffer = TCP_LineInput(Channel)
          FullBuffer += sBuffer & IIf$(Counter < nDB, $CRLF, "")
        Next
        lResult = TCP_Print(Channel, "QUIT")
        
        lResult = TCP_Close(Channel)
        'FullBuffer = Replace$(FullBuffer, $NUL, $CRLF)
        
        Function = FullBuffer
      End If
         
    End Function
    
    
    '------------------------------------------------------------------------------
    '---Search for a term
    '------------------------------------------------------------------------------
    Function SearchForTerm(ByVal sServer As String , ByVal sDictionary As String, ByVal sTextToSearch As String, ByRef lRet As Long) As String
      Long    lResult
      String  sBuffer
      String  FullBuffer
      String  sInfo
      String  sSearchCommand
      Long    Counter
      Long    Channel = TCP_FreeFile
      
      lResult = TCP_Open(2628, sServer, Channel, 10000)
    
    
      If lResult <> %NULL Then
        '---Something not good happened
        lRet = -1
      Else
        sBuffer = TCP_Recv(Channel, 20000)
        '---Connection OK, now search term
        sSearchCommand = EXPAND$("DEFINE " & IIf$(Len(sDictionary), sDictionary, "*") & " $sTextToSearch")
        lResult = TCP_Print(Channel, sSearchCommand)
        Repeat
          sBuffer = TCP_LineInput(Channel)
          If LEFT$(sBuffer, 3) = "151" Then
            FullBuffer &= "------------------------------" & $CRLF
            FullBuffer &= Mid$(Trim$(sBuffer), 4) & $CRLF
            FullBuffer &= "------------------------------" & $CRLF
            Repeat
              sInfo = TCP_LineInput(Channel)
              sInfo = Replace$(sInfo, Chr$(34), Chr$(92) & Chr$(34))
              If LEFT$(sInfo, 1) <> "." Then FullBuffer &= Trim$(sInfo) & $CRLF
            Until LEFT$(sInfo, 1) = "."
            FullBuffer &= $CRLF
          End If
        Until LEFT$(sBuffer, 3) = "250" Or Val(LEFT$(sBuffer, 3)) > 499
     
        lResult = TCP_Print(Channel, "QUIT")
        lResult = TCP_Close(Channel)
        
        Function = FullBuffer
      End If
    
    
    End Function
    
    Attached Thumbnails Attached Thumbnails Click image for larger version. 

Name:	OnLineDictionary.PNG 
Views:	138 
Size:	55.7 KB 
ID:	8108  
    Attached Files Attached Files
    www.thinbasic.com | www.thinbasic.com/community/ | psch.thinbasic.com
    Win10Pro 64bit - 8GB Ram - Intel i7 M620 2.67GHz - NVIDIA Quadro FX1800M 1GB

Similar Threads

  1. The Skeptics Dictionary
    By Charles Pegge in forum Shout Box Area
    Replies: 0
    Last Post: 12-07-2011, 00:14
  2. New implementations in Dictionary module
    By ErosOlmi in forum Dictionary module
    Replies: 13
    Last Post: 11-09-2008, 22:39
  3. Dictionary speed example
    By ErosOlmi in forum Dictionary module
    Replies: 10
    Last Post: 22-04-2007, 22:48
  4. Dictionary example
    By Petr Schreiber in forum Dictionary module
    Replies: 12
    Last Post: 22-04-2007, 12:59
  5. Introduction to Dictionary module
    By ErosOlmi in forum Dictionary module
    Replies: 1
    Last Post: 22-04-2007, 09:22

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •