Delphi ＵＲＬを実行するときに

前回の質問で教えていただいた
ソフト上からＵＲＬを実行する方法で

1.uses節にShellapiを追加
2.Edit1にURLを記述
3.Edit1のOnClickイベントに
ShellExecute(handle, 'open', pchar(Edit1.Text), '', '', sw_shownormal);と記述
4.起動してEdit1欄をクリックしてみてください。

この場合でほとんどのＵＲＬではうまくいったのですが
http://○○○○"USER"○○の場合の
ダブルコーテーションが実行させると消えてしまい
目的のページにうまく飛びません。
ダブルコーテーションを残すにはどのうように
すればよいのでしょうか？

No.1 ベストアンサー 回答者： mimis 回答日時： 2004/08/24 23:16

単純にダブルコーテーションのみ対応させるだけであれば、ダブルコーテーションを

HTTPEncode後の%22に置き換えてあげれば簡単に対応できます。
もし、全ての文字列に対応させたい場合はホスト名の後ろの文字をHTTPAPPユニット内の
HTTPEncode関数で変換してあげれば、対応できます。

procedure TForm1.Button1Click(Sender: TObject);
var
urlstr : string;
begin
urlstr := StringReplace(Edit1.Text,'"','%22',[rfReplaceAll]);
ShellExecute(handle, 'open', pchar(urlstr), '', '', sw_shownormal);
end;

この回答へのお礼

ありがとうございます。
おかげ実行できるようになりました。
大変助かりました。

お礼日時：2004/08/25 13:43