AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Internet per Edit öffnen

Ein Thema von GroZ · begonnen am 10. Aug 2015 · letzter Beitrag vom 12. Aug 2015
Antwort Antwort
Seite 1 von 6  1 23     Letzte »    
GroZ

Registriert seit: 6. Jul 2015
Ort: Harz
167 Beiträge
 
Delphi 7 Personal
 
#1

Internet per Edit öffnen

  Alt 10. Aug 2015, 08:58
Delphi-Version: 7
Hi ich möchte eine Suchleiste programmieren und habe es bisher so hinbekommen das er nur firefox sehr oft öffnet.

Delphi-Quellcode:
procedure TForm1.GooglesucheChange(Sender: TObject);
begin
  ShellExecute(handle, nil, Pchar('d:\firefox\Firefox.exe'), nil, nil, SW_SHOW)
end;
Wie kann ich ihm sagen das er das suchen soll was in dem Memo steht?
Julian
  Mit Zitat antworten Zitat
Daniel
(Co-Admin)

Registriert seit: 30. Mai 2002
Ort: Hamburg
13.920 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: Internet per Edit öffnen

  Alt 10. Aug 2015, 09:10
Viele Wege führen nach Rom. Einer davon: Du könntest eine URL (z.B. zu Google) zusammenbasteln, die den Suchbegriff enthält. Und dann machst Du ein ShellExecute auf diese URL und veranlasst Windows damit, diese im Standard-Browser zu öffnen. Berücksichtige dabei unbedingt die Angabe http/https, damit Windows den String auch als URL erkennt.

Alternativ könntest Du Dich auch mit den APIs der Such-Dienstleister auseinandersetzen und einen REST-Request absenden. Damit würdest Du Dich vom Browser lösen, falls das interessant ist.
Daniel R. Wolf
mit Grüßen aus Hamburg
  Mit Zitat antworten Zitat
GroZ

Registriert seit: 6. Jul 2015
Ort: Harz
167 Beiträge
 
Delphi 7 Personal
 
#3

AW: Internet per Edit öffnen

  Alt 10. Aug 2015, 09:22
Könntest du mir ein Beispiel zeigen? Das mit der Url zusammenbasteln wäre denk ich besser.
also theoretisch so?
Delphi-Quellcode:
var x : string;
begin
 x := Edit1.Text;
ShellExecute(handle, nil, Pchar('https://www.X.de'), nil, nil, SW_SHOW)
Wäre das so richtig?
Julian

Geändert von GroZ (10. Aug 2015 um 09:26 Uhr)
  Mit Zitat antworten Zitat
Daniel
(Co-Admin)

Registriert seit: 30. Mai 2002
Ort: Hamburg
13.920 Beiträge
 
Delphi 10.4 Sydney
 
#4

AW: Internet per Edit öffnen

  Alt 10. Aug 2015, 09:30
Ich kann es gerade nicht testen, aber vom draufgucken sieht es gut aus.
Probiere es doch aus.

Danach gehst Du mit einem Browser Deiner Wahl zu einer Suchmaschine Deiner Wahl und suchst nach einem Begriff. Und dann schaust Du Dir in der Adresszeile des Browsers an, wie da der Suchbegriff integriert wurde.

Im ersten Schritt solltest Du nach einfachen Begriffen ohne Leerzeichen und Umlaute suchen. Wenn das zuverlässig geht, müsstest Du Dich darum kümmern, wie Sonderzeichen (Umlaute, Leerzeichen, Satzzeichen etc.) in URLs kodiert werden. Mögliches Stichwort hier "URLEncode".
Daniel R. Wolf
mit Grüßen aus Hamburg
  Mit Zitat antworten Zitat
GroZ

Registriert seit: 6. Jul 2015
Ort: Harz
167 Beiträge
 
Delphi 7 Personal
 
#5

AW: Internet per Edit öffnen

  Alt 10. Aug 2015, 09:32
das ist jetzt exakt mein code:

Delphi-Quellcode:
procedure TForm1.GooglesucheChange(Sender: TObject);

var x : string;
    key : OleVariant;

begin
  x := GoogleSuche.Text;
  if key = #13 then
  begin
  ShellExecute(handle, nil, Pchar('https://www.X.de'), nil, nil, SW_SHOW)
  end;
end;

end.
Bloß das mit dem Enter klappt noch nicht so ganz
Julian
  Mit Zitat antworten Zitat
Benutzerbild von haentschman
haentschman

Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
5.388 Beiträge
 
Delphi 12 Athens
 
#6

AW: Internet per Edit öffnen

  Alt 10. Aug 2015, 09:39
Hallo,
Zitat:
Bloß das mit dem Enter klappt noch nicht so ganz
...weil du im verkehrten Eventhandler bist. Doppelklicke im OI deines Edits mal bei OnKeyPress. Da bekommst du auch dann den key geliefert der das ausgelöst hat. Den kannst du dann auswerten.
  Mit Zitat antworten Zitat
ringli

Registriert seit: 7. Okt 2004
510 Beiträge
 
Delphi 11 Alexandria
 
#7

AW: Internet per Edit öffnen

  Alt 10. Aug 2015, 09:39
Ich denke das OnChange-Event ist für deine Zwecke nicht das richtige. Wenn du mit der Auswertung von Tasten (z.B. die Enter-Taste) arbeiten willst, würde ich an deiner Stelle das OnKeyDown-Event des Formulars verwenden. Nicht vergessen in den Formulareigenschaften "KeyPreview" auf True zu setzen.
  Mit Zitat antworten Zitat
GroZ

Registriert seit: 6. Jul 2015
Ort: Harz
167 Beiträge
 
Delphi 7 Personal
 
#8

AW: Internet per Edit öffnen

  Alt 10. Aug 2015, 09:49
Ok Danke.
Habe es probiert und bekomme die anweisung '[Fehler] Unit1.pas(38): Unbekannte Anweisung: 'X'
Delphi-Quellcode:
procedure TForm1.GooglesucheKeyDown(Sender: TObject;
var Key: Word;
  Shift: TShiftState);
    X : string;
begin
  x := GoogleSuche.Text;
  if key = #13 then
  begin
  ShellExecute(handle, nil, Pchar('https://www.X.de'), nil, nil, SW_SHOW)
  end;
end;

end.
Julian
  Mit Zitat antworten Zitat
Daniel
(Co-Admin)

Registriert seit: 30. Mai 2002
Ort: Hamburg
13.920 Beiträge
 
Delphi 10.4 Sydney
 
#9

AW: Internet per Edit öffnen

  Alt 10. Aug 2015, 09:52
Um 'X' als lokale Variable zu deklarieren, musst Du das Wort "var" davor schreiben.


Am Rande bemerkt: Du scheinst Deine ersten Schritte in Delphi zu machen. Das ist gut. Aber um Dir selbst einiges an Frust zu ersparen, solltest Du einen kurzen Blick z.B. in den Delphi Crash-Kurs (http://www.delphi-treff.de/tutorials...phi-crashkurs/) werfen. Dann bist sehr bald in der Lage, solche Fehler wie diesen auch selbst zu erkennen.
Daniel R. Wolf
mit Grüßen aus Hamburg
  Mit Zitat antworten Zitat
BadenPower

Registriert seit: 17. Jun 2009
616 Beiträge
 
#10

AW: Internet per Edit öffnen

  Alt 10. Aug 2015, 09:57
Und die nächste Antwort lautet:
VK_RETURN

Und danach kommt noch die Frage:
Warum erscheint nun "Die Webseite kann nicht angezeigt werden".
Programmieren ist die Kunst aus Nullen und Einsen etwas sinnvollen zu gestalten.
Der bessere Künstler ist allerdings der Anwender, denn dieser findet Fehler, welche sich der Programmierer nicht vorstellen konnte.

Geändert von BadenPower (10. Aug 2015 um 09:59 Uhr)
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 6  1 23     Letzte »    


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 20:16 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz