如何在DLL中调用IdHTTP控件？ |
|
答題得分者是：malanlk
|
|
lonmener
一般會員   發表：16 回覆：32 積分：9 註冊：2005-08-20 發送簡訊給我 |
|
|
malanlk
尊榮會員  發表：20 回覆：694 積分：577 註冊：2004-04-19 發送簡訊給我 |
|
|
lonmener
一般會員 發表：16 回覆：32 積分：9 註冊：2005-08-20 發送簡訊給我 |
修改后出现[错误] Project1.dpr(64): Undeclared identifier: 'Self'
的错误
修改后的代码如下： procedure HttpDownLoad(aURL, aFile: string; bResume: Boolean);stdcall;
var
tStream: TFileStream;
IdHTTP:TIdHTTP;
begin 载
IdHTTP:=TIdHTTP.Create(Self);
if FileExists(aFile) then
tStream := TFileStream.Create(aFile, fmOpenWrite) else
tStream := TFileStream.Create(aFile, fmCreate);
if bResume then
begin IdHTTP.Request.ContentRangeStart := tStream.Size - 1;
tStream.Position := tStream.Size - 1; 载
IdHTTP.Head(aURL);
IdHTTP.Request.ContentRangeEnd := IdHTTP.Response.ContentLength;
end else
begin
IdHTTP.Request.ContentRangeStart := 0;
end;
try
IdHTTP.Get(aURL, tStream); 载
finally
tStream.Free;
IdHTTP.Free;
end;
end;
|
|
malanlk
尊榮會員 發表：20 回覆：694 積分：577 註冊：2004-04-19 發送簡訊給我 |
|
|
lonmener
一般會員 發表：16 回覆：32 積分：9 註冊：2005-08-20 發送簡訊給我 |
|
|
malanlk
尊榮會員 發表：20 回覆：694 積分：577 註冊：2004-04-19 發送簡訊給我 |
|
|
lonmener
一般會員 發表：16 回覆：32 積分：9 註冊：2005-08-20 發送簡訊給我 |
發表時間：2005-08-28 14:06:22
IP:218.59.xxx.xxx 未訂閱
系統時間：2024-11-22 22:41:50
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |