TDownloadURL“下载URL错误”Delphi

时间:2018-02-28 21:12:48

标签: delphi delphi-10-seattle

我做过其他人推荐的让TDownloadURL工作的事情。

我最后将其全部归结为包含TButtonTEditTMemo的表单。单击按钮下载URL并显示在TMemo中。

我收到错误消息:

  

错误下载网址

奇怪的是,错误消息中没有URL中的&符号。

这是在Delphi 10中。

以下是整个程序代码:

procedure TForm1.Button1Click(Sender: TObject);
VAR tmpname, tmpUrl : String;
begin
    Memo1.Clear;
    tmpName := 'E:\Borland Studio Projects\TryPhish\temp.tmp';
    Edit1.Text := 'http://www.phishtank.com/phish_search.php?page=1&active=y&valid=u&Search=Search';
    tmpUrl := Edit1.Text;
    WITH TDownloadURL.Create(nil) DO
    try
        URL := tmpUrl;
        filename := tmpName;
        try
            ExecuteTarget(self);
            Memo1.Lines.LoadFromFile(tmpName);
            DeleteFile(tmpName);
        except
        ON E:Exception DO
            ShowMessage(E.Message);
        end;
    finally
        Free;
    end;
end;

我曾经知道这一切,但是10年多的时间里几乎没有任何编码已经造成了损失......

0 个答案:

没有答案