AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Suchprogramm für http://vivisimo.com/ ?

Ein Thema von joe666sa · begonnen am 31. Jul 2003 · letzter Beitrag vom 17. Mär 2006
Antwort Antwort
joe666sa

Registriert seit: 11. Jun 2003
54 Beiträge
 
#1

Suchprogramm für http://vivisimo.com/ ?

  Alt 31. Jul 2003, 17:46
Wie kann ich es schffen die aus Wahlmöglichkeiten von der Suchmaschiene vivisimo.com in eine Programm oberflächen einzubauen. Also dass man die optionen auswählt und dann auf einen Button klickt wird mit den optionen und dem Suchwort welches man eingegeben hat in einem Tweb.browser die url geöffnet welche diese4 optionen ergeben.
  Mit Zitat antworten Zitat
Alexander

Registriert seit: 28. Aug 2002
Ort: Oldenburg
3.513 Beiträge
 
Turbo Delphi für .NET
 
#2

Re: Suchprogramm für http://vivisimo.com/ ?

  Alt 31. Jul 2003, 19:23
Kuck dir am besten mal die URL an, da stehen meistens die entsprechenden Variabeln drin.
Alexander
  Mit Zitat antworten Zitat
joe666sa

Registriert seit: 11. Jun 2003
54 Beiträge
 
#3

Re: Suchprogramm für http://vivisimo.com/ ?

  Alt 1. Aug 2003, 00:50
Doch wie füge ich diese Variablen hibzu bzw entferene sie . oder einfach mal ein beispiel wie jann ich diesen code optimieren.
Code:
rocedure TForm1.Button2Click(Sender: TObject);
begin
if (ComboBoxex1.ItemIndex = 0) AND (CheckBox3.Checked = False) then
webBrowser1.Navigate ('http://sunsite.cnlab-switch.ch/cgi-bin/search/ftp/nph-find-file?pattern=' + edit1.text + '&max_match=50')
ELSE if (ComboBoxex1.ItemIndex = 1) AND (CheckBox3.Checked = False) then
webBrowser1.Navigate ('http://sunsite.cnlab-switch.ch/cgi-bin/search/ftp/nph-find-file?pattern=' + edit1.text + '&max_match=100')
ELSE if (ComboBoxex1.ItemIndex = 2) AND (CheckBox3.Checked = False) then
webBrowser1.Navigate ('http://sunsite.cnlab-switch.ch/cgi-bin/search/ftp/nph-find-file?pattern=' + edit1.text + '&max_match=150')
ELSE if (ComboBoxex1.ItemIndex = 3) AND (CheckBox3.Checked = False) then
webBrowser1.Navigate ('http://sunsite.cnlab-switch.ch/cgi-bin/search/ftp/nph-find-file?pattern=' + edit1.text + '&max_match=200')
ELSE if (ComboBoxex1.ItemIndex = 4) AND (CheckBox3.Checked = False) then
webBrowser1.Navigate ('http://sunsite.cnlab-switch.ch/cgi-bin/search/ftp/nph-find-file?pattern=' + edit1.text + '&max_match=250')
ELSE if (ComboBoxex1.ItemIndex = 5) AND (CheckBox3.Checked = False) then
webBrowser1.Navigate ('http://sunsite.cnlab-switch.ch/cgi-bin/search/ftp/nph-find-file?pattern=' + edit1.text + '&max_match=300')
ELSE if (ComboBoxex1.ItemIndex = 6) AND (CheckBox3.Checked = False) then
webBrowser1.Navigate ('http://sunsite.cnlab-switch.ch/cgi-bin/search/ftp/nph-find-file?pattern=' + edit1.text + '&max_match=350')
ELSE if (ComboBoxex1.ItemIndex = 7) AND (CheckBox3.Checked = False) then
webBrowser1.Navigate ('http://sunsite.cnlab-switch.ch/cgi-bin/search/ftp/nph-find-file?pattern=' + edit1.text + '&max_match=400')
ELSE if (ComboBoxex1.ItemIndex = 8) AND (CheckBox3.Checked = False) then
webBrowser1.Navigate ('http://sunsite.cnlab-switch.ch/cgi-bin/search/ftp/nph-find-file?pattern=' + edit1.text + '&max_match=450')
ELSE if (ComboBoxex1.ItemIndex = 9) AND (CheckBox3.Checked = False) then
webBrowser1.Navigate ('http://sunsite.cnlab-switch.ch/cgi-bin/search/ftp/nph-find-file?pattern=' + edit1.text + '&max_match=500')
else if (ComboBoxex1.ItemIndex = 0) AND (CheckBox3.Checked = true) then
webBrowser1.Navigate ('http://sunsite.cnlab-switch.ch/cgi-bin/search/ftp/nph-find-file?pattern=' + edit1.text + '&max_match=50&case=on')
ELSE if (ComboBoxex1.ItemIndex = 1) AND (CheckBox3.Checked = true) then
webBrowser1.Navigate ('http://sunsite.cnlab-switch.ch/cgi-bin/search/ftp/nph-find-file?pattern=' + edit1.text + '&max_match=100&case=on')
ELSE if (ComboBoxex1.ItemIndex = 2) AND (CheckBox3.Checked = true) then
webBrowser1.Navigate ('http://sunsite.cnlab-switch.ch/cgi-bin/search/ftp/nph-find-file?pattern=' + edit1.text + '&max_match=150&case=on')
ELSE if (ComboBoxex1.ItemIndex = 3) AND (CheckBox3.Checked = true) then
webBrowser1.Navigate ('http://sunsite.cnlab-switch.ch/cgi-bin/search/ftp/nph-find-file?pattern=' + edit1.text + '&max_match=200&case=on')
ELSE if (ComboBoxex1.ItemIndex = 4) AND (CheckBox3.Checked = true) then
webBrowser1.Navigate ('http://sunsite.cnlab-switch.ch/cgi-bin/search/ftp/nph-find-file?pattern=' + edit1.text + '&max_match=250&case=on')
ELSE if (ComboBoxex1.ItemIndex = 5) AND (CheckBox3.Checked = true) then
webBrowser1.Navigate ('http://sunsite.cnlab-switch.ch/cgi-bin/search/ftp/nph-find-file?pattern=' + edit1.text + '&max_match=300&case=on')
ELSE if (ComboBoxex1.ItemIndex = 6) AND (CheckBox3.Checked = true) then
webBrowser1.Navigate ('http://sunsite.cnlab-switch.ch/cgi-bin/search/ftp/nph-find-file?pattern=' + edit1.text + '&max_match=350&case=on')
ELSE if (ComboBoxex1.ItemIndex = 7) AND (CheckBox3.Checked = true) then
webBrowser1.Navigate ('http://sunsite.cnlab-switch.ch/cgi-bin/search/ftp/nph-find-file?pattern=' + edit1.text + '&max_match=400&case=on')
ELSE if (ComboBoxex1.ItemIndex = 8) AND (CheckBox3.Checked = true) then
webBrowser1.Navigate ('http://sunsite.cnlab-switch.ch/cgi-bin/search/ftp/nph-find-file?pattern=' + edit1.text + '&max_match=450&case=on')
ELSE if (ComboBoxex1.ItemIndex = 9) AND (CheckBox3.Checked = true) then
webBrowser1.Navigate ('http://sunsite.cnlab-switch.ch/cgi-bin/search/ftp/nph-find-file?pattern=' + edit1.text + '&max_match=500&case=on')
end;
  Mit Zitat antworten Zitat
Benutzerbild von flomei
flomei

Registriert seit: 17. Jan 2003
Ort: Schieder-Schwalenberg
2.094 Beiträge
 
Delphi 2005 Personal
 
#4

Re: Suchprogramm für http://vivisimo.com/ ?

  Alt 1. Aug 2003, 01:07
case ... of heisst das Zauberwort denke ich.

MfG Florian
Florian Meier
... ist raus.
Vielen Dank für die Zeit mit euch!
http://www.flomei.de -- http://www.md5hash.de
  Mit Zitat antworten Zitat
joe666sa

Registriert seit: 11. Jun 2003
54 Beiträge
 
#5

Re: Suchprogramm für http://vivisimo.com/ ?

  Alt 1. Aug 2003, 01:20
und wie?
  Mit Zitat antworten Zitat
josef

Registriert seit: 31. Jul 2003
56 Beiträge
 
Delphi 2005 Personal
 
#6

Re: Suchprogramm für http://vivisimo.com/ ?

  Alt 1. Aug 2003, 04:33
Schau in der Delphi-Hilfe unter case-Anweisungen.
Ich will jetzt nicht den ganzen Code hier pasten.
  Mit Zitat antworten Zitat
DaddyRe

Registriert seit: 19. Okt 2005
Ort: umgezogen --> Hamburg :-(
42 Beiträge
 
Delphi 7 Enterprise
 
#7

Re: Suchprogramm für http://vivisimo.com/ ?

  Alt 17. Mär 2006, 22:19
Hast du das Programm inzwischen optimiert bzw wieter geschriebn, wenn ja würde der source-code mich nämlich mal interessieren
Könntest du das file uploaden?

Mfg DaddyRe
Daniel
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:33 Uhr.
Powered by vBulletin® Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2020 by Daniel R. Wolf