Entwickler-Ecke
Internet / Netzwerk - Google Suche ??
matze - So 21.07.02 10:34
Titel: Google Suche ??
Wie kann ich Begriffe, die der User meines Proggis in eine EditBox eintippt in Googel suchen lassen ??
Man muss ide Begriffe irgendwie dem Google Script übergeben, nur ich habe keinen Plan, wie ich z.B. ein Pluszeichen (+) so umwandeln kann, dass Google das kapiert !
Currywurst - So 21.07.02 11:35
wenn die suchbegriffe durch leerzeichen getrennt in edit1 stehen dann z.b. so:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| procedure LinkOeffnen(const Url: string);
//oeffnet eine seite im standardbrowser
begin
ShellExecute(0, 'open', PChar(Url), nil, nil, SW_SHOWNORMAL);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
LinkOeffnen('http://www.google.de/search?q=' + StringReplace(Edit1.Text, ' ', '+', [rfReplaceAll]));
end; |
und wenn du (aus welchen gründen?) ein + selber mit übergeben willst, dann halt wie üblich umwandeln, %2B
matze - So 21.07.02 13:16
cool danke, aber wie überstezt man alle andresen zeichen wie z.B. einn Punkt oder ein Minus ??
Tino - So 21.07.02 13:47
Ganz einfach: Gibt doch mal bei Google diese Zeichen ein. Dann siehste in der URL wie das gemacht werden muss damit Google es versteht!
Gruß
Currywurst - So 21.07.02 14:01
Titel: hab grad langeweile
ohne garantie das es so einwandfrei ist:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
| function TextZuAnderemTextOderSo(const Text: String): String;
const
OK = 'abcdefghijklmnopqrstuvwxyz1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var
i: Integer;
begin
Result:='';
for i:=1 to Length(Text) do begin
if Pos(Text[i], OK)>0 then Result:=Result + Text[i] else
Result:=Result + '%' + IntToHex(Ord(Text[i]), 2);
end;
end; |
matze - So 21.07.02 16:15
danke :D Ich werde das mal austesten !
mth - Mo 22.07.02 01:42
Titel: Re: Google Suche ??
| matze hat folgendes geschrieben: |
Wie kann ich Begriffe, die der User meines Proggis in eine EditBox eintippt in Googel suchen lassen ??
|
Eine Alternative ist die Google API:
http://www.google.com/apis/
Beispiele für D6 kursieren im Web.
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2024 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!