| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Быстрая скачка данных [D6, D7, WinXP]

Ivolg ©   (2005-01-19 13:25:00) 

Привет уважеемые программеры! Помогите плиз, не откажите :)!  Есть страничка, с неё я скачиваю картинку 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';
По чему-то когда я нажимаю на кнопку скачать, то приложение виснет, пока не скатается файл! Как можно зделать чтобы приложение не висло? Или чтобы быстрее качался файл??? СПАСИБО заранее!!!

---

WinLamka   (2005-01-20 11:18:00) [1]

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

---

Seeker   (2005-01-19 16:47:00) [2]

...
repeat
Application.ProcessMessages;
...

---

Наверх