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

[joe666sa]

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.

[Alexander]

Kuck dir am besten mal die URL an, da stehen meistens die entsprechenden Variabeln drin.

[joe666sa]

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;

[flomei]

case ... of heisst das Zauberwort denke ich.

MfG Florian :hi:

[joe666sa]

und wie?

[josef]

Schau in der Delphi-Hilfe unter case-Anweisungen.
Ich will jetzt nicht den ganzen Code hier pasten.

[DaddyRe]

Hast du das Programm inzwischen optimiert bzw wieter geschriebn, wenn ja würde der source-code mich nämlich mal interessieren :-D
Könntest du das file uploaden?

Mfg DaddyRe