ミ,,゚Д゚彡フサギコのフサフサDelphi談話室�F
■ このスレッドは過去ログ倉庫に格納されています
0256例外処理で質問です
NGNGダウンロードするアプリを作っているのですが、インタ
ーネットに接続してないときにこのアプリを実行すると..
「プロジェクト Project1.exe が EIdSocketError クラスの
例外を生成しました。」
という例外が出ます。 この表示をtry〜except〜on〜do文を使って
「回線が繋がってません。」
というエラーダイアログに変更したいのですが、実際に
どう書けばいいのか解りません。
______________________________
var
Sorse:string; //HTMLソースを受け取る変数
begin
try
with IdHttp1 do
begin
Sorse := Get('http://www.yahoo.co.jp');
end;
except
on EIdSocketError do //EIdSocketErrorが未定義だと怒られます。
MessageDlg('回線が繋がってません。', mtWarning, [mbOK], 0);
end;
_________________________________
EIdSocketErrorが間違いなのは解っているのですが、ここを
どう変えれば良いのかが解りません。 もし解る方がおられ
ましたら宜しくお願いします。(汗
■ このスレッドは過去ログ倉庫に格納されています