|
|
@@ -116,13 +116,16 @@ begin
|
|
|
end;
|
|
|
|
|
|
procedure TDownThread.SetURL(const Value: string);
|
|
|
-var s: string;
|
|
|
+var s, path: string;
|
|
|
begin
|
|
|
FURL := Value;
|
|
|
+ path := ExtractFilePath(Application.ExeName) + 'Web\';
|
|
|
+ ForceDirectories(path);
|
|
|
+
|
|
|
// 反斜杠 ExtractFileName 函数搞不定，这里先转换
|
|
|
s := StringReplace(Value, '/', '\', [rfReplaceAll, rfIgnoreCase]);
|
|
|
FFileName := ExtractFileName(s);
|
|
|
- FLocalFile := ExtractFilePath(Application.ExeName) + 'Web\' + FFileName;
|
|
|
+ FLocalFile := path + FFileName;
|
|
|
TFileDownLoadForm(FOwner).RefreshDisplay(FFileName);
|
|
|
|
|
|
Resume; // 在这里唤醒
|
