Скачать: CL | DM;

Быстрая скачка данных   Найти похожие ветки 

← →
Ivolg   (2005-01-19 13:25) [0]

Привет уважеемые программеры! Помогите плиз, не откажите :)!  Есть страничка, с неё я скачиваю картинку N.gif :

function TForm1.GetInetFile(const fileURL, FileName: String): boolean;
const BufferSize=1024;
var
 hSession, hURL:HInternet;
 Buffer:array[1..BufferSize] of Byte;
 BufferLen:DWORD;
 f:File;
 sAppName:string;
begin
  Result:=False;
  sAppName:=ExtractFileName(Application.ExeName);
  hSession:= InternetOpen(PChar(sAppName),INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
 
  try
     hURL:=InternetOpenURL(hSession,
     PChar(fileURL),nil,0,0,0);
     try
        AssignFile(f,FileName);
        Rewrite(f,1);
        repeat
        InternetReadFile(hURL,@Buffer,SizeOf(Buffer),BufferLen);
        BlockWrite(f,Buffer, BufferLen);

        until BufferLen=0;
        CloseFile(f);
        Result:=True;

     finally
     InternetCloseHandle(hURL)
     end
  finally
  InternetCloseHandle(hSession)
  end;
  end.
procedure TForm1.ButtonClick(Sender: TObject);
var
  FileOnNet, LocalFileName: string;
begin
 dir:=ExtractFilePath(paramstr(0))+"pogoda.gif";
 FileOnNet:="http://www.proba.net/flash/n.gif";
 LocalFileName:="C:\n.gif";
По чему-то когда я нажимаю на кнопку скачать, то приложение виснет, пока не скатается файл! Как можно зделать чтобы приложение не висло? Или чтобы быстрее качался файл??? СПАСИБО заранее!!!

---

← →
Seeker ©   (2005-01-19 16:47) [1]

...
repeat
Application.ProcessMessages;
...

---

← →
WinLamka ©   (2005-01-20 11:18) [2]

скачку в поток

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c