掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
指定されたURLのファイルをDL保存 (ID：31432)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
すいません取り乱しました。 http://homepage2.nifty.com/Mr_XRAY/Delphi/plSamples/730_AutoDLDefrose.htm リスト５に挑戦した結果 [Pascal エラー] me.pas(18): E2065 forward または external 宣言された 'TMee.DownloadFile' が見つかりません 以下ソースです。 usesにHTTPApp private { Private 宣言 } function DownloadFile(SourceFile, DestFile: string):Boolean;//DL //============================================================================= // DownLoadFile関数を用いてネット上の指定画像を保存する例 // 筆者のサイトの[Holbow資料館]の画像を保存 // UnixPathToDosPathにはusesにHTTPAppが必要 //============================================================================= procedure TMee.Button1Click(Sender: TObject); var APath : String; AFile : String; begin APath:='http://homepage2.nifty.com/Mr_XRAY/Halbow/Image/Halbow_Bunner01.gif'; //画像の保存先(このアプリの起動フォルダに保存) //保存名はHalbow_Bunner01.gif AFile:=ExtractFilePath(ParamStr(0))+ExtractFileName(UnixPathToDosPath(APath)); DownloadFile(APath,AFile); end; ちなみにこのソースで画像以外のファイルでもDL可能でしょうか？
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.