Entwickler-Ecke

Internet / Netzwerk - Google Suche

SMARTY1 - Fr 28.12.07 12:29
Titel: Google Suche

Ich möchte einen Begriff, den ich in ein Editfenster eingebe, in Google suchen!

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
begin
Shellexecute(0,nil,'http://www.google.de/search?hl=de&q='+Edit1.Text+'&btnG=Google-Suche&meta=',nil,nil, SW_SHOWNORMAL);
end;

Der code funktionniert aber nicht! da kommt immer ein Fehler! Was mach ich falsch?

UGrohne - Fr 28.12.07 12:43

Wenn Du noch sagst, was für ein Fehler, würde uns das sehr helfen :roll:

GTA-Place - Fr 28.12.07 12:48

Moment, ich glaube meine Glaskugel funktioniert wieder: Füg mal ganz oben bei uses ShellApi hinzu.

SMARTY1 - Fr 28.12.07 13:57

nein, shellapi hab ich schon! Der Fehler der kommt ist: E2010 Inkompatible Typen: 'string' und 'PAnsiChar'

ich habe keine Ahnung! bitte helft mir

Tilman - Fr 28.12.07 13:59

versuch mal PChar(edit1.text)

SMARTY1 - Fr 28.12.07 16:22

Ne funktionniert auch nicht!
Ich checks nicht! :(

Gausi - Fr 28.12.07 16:24

Ich denke, Tilman meinte so:

Delphi-Quelltext

1:	Shellexecute(0,nil,PChar('http://www.google.de/search?hl=de&q='+Edit1.Text+'&btnG=Google-Suche&meta='),nil,nil, SW_SHOWNORMAL);

Chryzler - Fr 28.12.07 16:24

Nimm mal das:

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(0, nil, PChar('http://www.google.de/search?hl=de&q=' + Edit1.Text + '&btnG=Google-Suche&meta='), nil, nil, SW_SHOWNORMAL);
end;

SMARTY1 - Fr 28.12.07 16:35

Hey danke danke danke!
Funktionniert einwandfrei!
Gruß

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!