如何由 url 路徑下，抓下圖檔？ |
|
|
|
verbose
一般會員   發表：9 回覆：5 積分：2 註冊：2002-03-13 發送簡訊給我 |
|
|
Jasonwong
版主  發表：49 回覆：931 積分：581 註冊：2006-10-27 發送簡訊給我 |
|
|
kynix
初階會員 發表：37 回覆：100 積分：37 註冊：2002-06-01 發送簡訊給我 |
|
|
Jasonwong
版主 發表：49 回覆：931 積分：581 註冊：2006-10-27 發送簡訊給我 |
|
|
hagar
版主  發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
|
|
領航天使
站長  發表：12216 回覆：4186 積分：4084 註冊：2001-07-25 發送簡訊給我 |
寫個範例程式給您看吧!
unit Unit1; interface uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Psock, NMHttp; type
TForm1 = class(TForm)
Button1: TButton;
NMHTTP1: TNMHTTP;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form1: TForm1;
implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject);
begin
NMHttp1.InputFileMode:=true;
NMHttp1.Body:='c:\hinet_logo.gif';
NMHttp1.Get('http://www.hinet.net/images/hinet_logo.gif');
end; end.
～～～Delphi K.Top討論區站長～～～
------
～～～Delphi K.Top討論區站長～～～ |
|
verbose
一般會員 發表：9 回覆：5 積分：2 註冊：2002-03-13 發送簡訊給我 |
|
|
ddy
站務副站長  發表：262 回覆：2105 積分：1169 註冊：2002-07-13 發送簡訊給我 |
這是用Indy Http client 元件寫的, 參考看看
procedure TForm1.Button1Click(Sender: TObject);
var
fs: TFileStream;
begin
try
fs := TFileStream.Create('c:\a.gif', fmCreate);
IdHTTP1.Get('http://delphi.ur-solution.com/delphi_download/upload/a.gif', fs);
ShowMessage('OK');
finally
fs.Free;
end;
end;
|
發表時間：2002-07-15 14:41:24
IP:211.74.xxx.xxx 未訂閱
系統時間：2024-11-23 2:59:11
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |