Tải xuống tệp từ Internet trong khi có thể hủy tải xuống bất kỳ lúc nào

Question

Tôi muốn tải xuống tệp từ chương trình Delphi của tôi trong một chuỗi riêng biệt dành riêng cho việc tải xuống.

Sự cố là chương trình chính có thể bị đóng bất kỳ lúc nào (do đó, chuỗi tải xuống cũng có thể bị chấm dứt bất kỳ lúc nào). Vì vậy, ngay cả khi không có kết nối hoặc máy chủ bị trễ trong giây quý giá, tôi cần một cách để chấm dứt chuỗi tải xuống trong vòng một hoặc hai giây.

Bạn khuyến nghị sử dụng chức năng nào?

Tôi đã thử nghiệm với InterOpenURL/InternetReadFile nhưng không có tham số hết giờ. Nó có một phiên bản không đồng bộ nhưng tôi không thể tìm thấy bất kỳ ví dụ Delphi làm việc và tôi không chắc chắn nếu phiên bản không đồng bộ sẽ bảo vệ tôi khỏi bị treo ...

Sử dụng ổ cắm đã được đề xuất cho tôi trước đây, nhưng TClientSocket doesn dường như không có chức năng hết thời gian.

Tôi cần được chuẩn bị đầy đủ để nếu người dùng có sự cố kết nối Internet trên máy tính của mình hoặc máy chủ web tiếp tục trì hoãn ứng dụng của tôi không bị treo trước khi đóng.

Hãy ghi nhớ khi trả lời rằng tôi không muốn sử dụng bất kỳ thành phần của bên thứ ba cũng như Indy. Bất kỳ mã ví dụ nào đều được đánh giá cao.

Cảm ơn bạn!

Answer 1

TWinSocketStream có thời gian chờ. Về cơ bản bạn tạo một socket chặn, và sau đó tạo một TWinSocketStream bằng cách sử dụng socket đó để đọc/ghi. (giống như sử dụng StreamWriter). Sau đó, bạn lặp lại cho đến khi kết nối được đóng lại, luồng được chấm dứt hoặc bạn đạt đến số byte dự kiến. Có một WaitForData() cho phép bạn kiểm tra dữ liệu đến w/một thời gian chờ, vì vậy bạn không bao giờ 'bị khóa' vượt quá giá trị thời gian chờ đó.

Bạn sẽ phải tự xử lý quy trình http. ví dụ, gửi 'GET', và sau đó đọc tiêu đề phản hồi để xác định có bao nhiêu byte mong đợi, nhưng điều đó không quá khó.

Answer 2

Tác phẩm này.

var 
    DownloadAbort: boolean; 

procedure Download(const URL, FileName: string); 
var 
    hInet: HINTERNET; 
    hURL: HINTERNET; 
    Buffer: array[0..1023] of AnsiChar; 
    BufferLen, amt: cardinal; 
    f: file; 
const 
    UserAgent = 'Delphi Application'; // Change to whatever you wish 
begin 
    DownloadAbort := false; 
    hInet := InternetOpen(PChar(UserAgent), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0); 
    try 
    hURL := InternetOpenUrl(hInet, PChar(URL), nil, 0, 0, 0); 
    try 
     FileMode := fmOpenWrite; 
     AssignFile(f, FileName); 
     try 
     Rewrite(f, 1); 
     repeat 
      InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen); 
      BlockWrite(f, Buffer[0], BufferLen, amt); 
      if DownloadAbort then 
      Exit; 
     until BufferLen = 0; 
     finally 
     CloseFile(f); 
     end; 
    finally 
     InternetCloseHandle(hURL); 
    end; 
    finally 
    InternetCloseHandle(hInet); 
    end; 
end; 

Trong thực tế, các mã trên sẽ là một phần của phương pháp của chủ đề của bạn Execute, và bạn không cần phải DownloadAbort; intead, bạn kiểm tra

if Terminated then 
    Exit; 

Answer 3

Nhờ GrandmasterB, đây là đoạn code tôi đã quản lý để đặt lại với nhau: (đó là trong khối chủ đề của tôi Execute)

var 
    Buffer: array [0..1024 - 1] of Char; 
    SocketStream: TWinSocketStream; 
    RequestString: String; 
    BytesRead: Integer; 
begin 
    try 
    ClientSocket.Active := true; 
    DownloadedData := ''; 
    FillChar(Buffer, SizeOf(Buffer), #0); 

    if not Terminated then 
    begin 
     // Wait 10 seconds 
     SocketStream := TWinSocketStream.Create(ClientSocket.Socket, 10000); 
     try 
     // Send the request to the webserver 
     RequestString := 'GET /remotedir/remotefile.html HTTP/1.0'#13#10 + 
      'Host: www.someexamplehost.com'#13#10#13#10; 
     SocketStream.Write(RequestString[1], Length(RequestString)); 

     // We keep waiting for the data for 5 seconds 
     if (not Terminated) and SocketStream.WaitForData(5000) then 
      repeat 
      // We store the data in our buffer 
      BytesRead := SocketStream.Read(Buffer, SizeOf(Buffer)); 

      if BytesRead = 0 then 
       break 
      else 
       DownloadedData := DownloadedData + Buffer; 
      until Terminated or (not SocketStream.WaitForData(2000)); 
     finally 
     // Close the connection 
     SocketStream.Free; 
     if ClientSocket.Active then 
      ClientSocket.Active := false; 
     end; 
    end; 
    except 
    end; 

Bạn phải đặt này để các nhà xây dựng của các chủ đề:

ClientSocket := TClientSocket.Create(nil); 
    ClientSocket.Host := 'www.someexamplehost.com'; 
    ClientSocket.Port := 80; 
    ClientSocket.ClientType := ctBlocking; 

    inherited Create(false); // CreateSuspended := false; 

Và đây đến desctructor:

ClientSocket.Free; 
    inherited; 

Answer 4

Từ delphi.about.com

uses ExtActns, ... 

type 
    TfrMain = class(TForm) 
    ... 
    private 
    procedure URL_OnDownloadProgress 
     (Sender: TDownLoadURL; 
     Progress, ProgressMax: Cardinal; 
     StatusCode: TURLDownloadStatus; 
     StatusText: String; var Cancel: Boolean) ; 
    ... 

implementation 
... 

procedure TfrMain.URL_OnDownloadProgress; 
begin 
    ProgressBar1.Max:= ProgressMax; 
    ProgressBar1.Position:= Progress; 
end; 

function DoDownload; 
begin 
    with TDownloadURL.Create(self) do 
    try 
    URL:='http://0.tqn.com/6/g/delphi/b/index.xml'; 
    FileName := 'c:\ADPHealines.xml'; 
    OnDownloadProgress := URL_OnDownloadProgress; 

    ExecuteTarget(nil) ; 
    finally 
    Free; 
    end; 
end; 

{ Lưu ý: điểm bất động sản URL với Internet FileName là file địa phương }