掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ＨＴＭＬソースファイルのダウンロードによるファイル名の取得 (ID：15636)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
すみません。 記述に間違いがありましたので訂正させて頂きます。 ＵＲＬ指定は、具体的ファイル名はありませんでした。 procedure TForm1.ToolButton1Click(Sender: TObject); var p1: IUnknown; p2,p3: PAnsiChar; p4: DWORD; p5: IBindStatusCallback; result: HRESULT; //失敗したときの結果 begin p1 := nil; p2 := PCHAR('http://www.borland.co.jp/');// ←ここはファイル名無し p3 := PCHAR('index.htm');//'index.txt'); // 保存先 p4 := 0; // ここは何があっても常に０ p5 := nil; // DL中にDialogを出すかどうか。大抵は邪魔なのでnil設定。 result :=URLDownLoadToFile(p1,p2,p3,p4,p5); if (result=s_ok) then else ShowMessage('失敗しました'); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.