Internet per Edit öffnen

[GroZ]

ohh gott was nen fehler >.<
Und ich dachte ich krieg es langasam hin haha. Man lernt nie aus xD
Hab mir schon viele Tutorials angesehen und manche entsprechen nicht meinem Bildungsstand (Hallo Welt) und manche sind mir noch zu hoch :D. Ich komm aber immer besser klar :P

Bekomme jetzt diesen Fehler bei der Schleife für Enter:
[Fehler] Unit1.pas(41): Inkompatible Typen

[GroZ]

@BadenPower
The God! :Glaskugel:

[Sir Rufo]

Kleiner Tip:

Teile das in unterschiedliche Methoden auf, dann wird es erheblich übersichtlicher und dadurch einfacher zu verstehen/warten:

Delphi-Quellcode:

procedure TForm1.GooglesucheKeyDown(Sender: TObject;
var Key: Word;
  Shift: TShiftState);
begin
  if key = VK_RETURN then
  begin
    SucheBeiGoogle( GoogleSuche.Text );
  end;
end;

// Ich habe mal deine bisherige Lösung hierrein verwurstet
// Evtl. fällt dir jetzt auch dein Fehler auf ;o)
procedure TForm1.SucheBeiGoogle( const Suchbegriffe: string );
begin
  ShellExecute(handle, nil, Pchar('https://www.' + Suchbegriffe + '.de'), nil, nil, SW_SHOW);
end;

[Mavarik]

Leute seit Ihr heute morgen wieder gemein...

Zitat:

Zitat von Sir Rufo (Beitrag 1311683)

Delphi-Quellcode:

// Ich habe mal deine bisherige Lösung hierrein verwurstet
// Evtl. fällt dir jetzt auch dein Fehler auf ;o)
procedure TForm1.SucheBeiGoogle( const Suchbegriffe: string );
begin
  ShellExecute(handle, nil, Pchar('https://www.google.de/?gws_rd=ssl#q=' + Suchbegriffe), nil, nil, SW_SHOW);
end;

Wir ja noch schlimm genug, wenn es mehr als ein Suchbegriff ist...

[Sir Rufo]

Zitat:

Zitat von Mavarik (Beitrag 1311684)

Leute seit Ihr heute morgen wieder gemein...

Nein, das ist etwas, was er mit seinem Wissensstand selber hätte lösen können. Er ist lediglich durch seinen Spaghetticode durcheinander gekommen.

Zitat:

Zitat von Mavarik (Beitrag 1311684)

Wir ja noch schlimm genug, wenn es mehr als ein Suchbegriff ist...

Das wäre allerdings ein schönes Beispiel für einen Unit-Test - was aber dann diesen Thread einfach nur sprengen würde :)

[GroZ]

@SirRufo ich denke ich weiß wie du es meinst im sinne von Lösung :D.

[Luckie]

Es hilft auch ungemein, wenn man mal genau formuliert, was man eigentlich will. Das "Internt offnen"? :shock: (Aber bitte schließe es erst, wenn ich es nicht mehr brauche. :mrgreen:) Man kann ein Programm/eine Anwendung öffnen oder eine Dose Ravioli :P

Was du willst ist den Standardbrowser öffnen und ihm gleich eine bestimmte Webseite anzeigen.

Dann findet man wahrscheinlich schon die Lösung mit der Foren suche.

[GroZ]

Naja eig wollte ich die Seite die ich in der Suchleiste eingebe suchen. Das klappt jetzt auch so wie ich das möchte. bin derzeit dabei alles zu verbinden und die Funktionen einzubauen.

[Mavarik]

Zitat:

Zitat von GroZ (Beitrag 1311742)

die Seite die ich in der Suchleiste eingebe suchen.

Also auf deutsch... Du willst die URL die Du in ein

Delphi-Quellcode:

TEdit

eingegeben hast im Browser öffnen.

NIX Suchen... :stupid:

[GroZ]

ich gebe

Delphi-Quellcode:

'www.' + Edit1.Text + '.de'

ein