掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
EditBoxの文字列をGoogleに渡して検索結果を表示するには？ (ID:18750)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
サーバーで自動認識してそうなので 文字コード関係なさそうですよ 全角でいれてみて どちらも同じ結果が表示されました。 スペースとか考えると面倒でしょうから きにせず全部16進でわたしちゃえばいいかと function searchText(s:string):string; var i:integer; r :string; begin r :=''; for i:=1 to length(s) do begin r:= r +'%'+ Format('%.2x',[byte(s[i])]) ; end; Result := r; end; procedure TForm1.Button1Click(Sender: TObject); begin WebBrowser1.Navigate('http://www.google.co.jp/search?q=' +searchText(Edit1.Text)); end; procedure TForm1.Button2Click(Sender: TObject); begin WebBrowser2.Navigate('http://www.google.co.jp/search?q=' +searchText(AnsiToUtf8(Edit1.Text))); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.