Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Suchprogramm für http://vivisimo.com/ ? (https://www.delphipraxis.net/7061-suchprogramm-fuer-http-vivisimo-com.html)

joe666sa 31. Jul 2003 17:46


Suchprogramm für http://vivisimo.com/ ?
 
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 31. Jul 2003 19:23

Re: Suchprogramm für http://vivisimo.com/ ?
 
Kuck dir am besten mal die URL an, da stehen meistens die entsprechenden Variabeln drin.

joe666sa 1. Aug 2003 00:50

Re: Suchprogramm für http://vivisimo.com/ ?
 
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 1. Aug 2003 01:07

Re: Suchprogramm für http://vivisimo.com/ ?
 
case ... of heisst das Zauberwort denke ich.

MfG Florian :hi:

joe666sa 1. Aug 2003 01:20

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

josef 1. Aug 2003 04:33

Re: Suchprogramm für http://vivisimo.com/ ?
 
Schau in der Delphi-Hilfe unter case-Anweisungen.
Ich will jetzt nicht den ganzen Code hier pasten.

DaddyRe 17. Mär 2006 22:19

Re: Suchprogramm für http://vivisimo.com/ ?
 
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


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:38 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