Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2005.03.20;
Скачать: [xml.tar.bz2];

Вниз

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

 
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 вся ветка

Форум: "Сети";
Текущий архив: 2005.03.20;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.034 c
8-1102239138
Black_Fury
2004-12-05 12:32
2005.03.20
Flash и Delphi


1-1109888217
Германн
2005-03-04 01:16
2005.03.20
EInOutError - Invalide File Name


3-1108539446
mefodiy
2005-02-16 10:37
2005.03.20
Проблемы со шрифтами при распаковке *.DB файла WinZip-ом


4-1107734223
Fessio
2005-02-07 02:57
2005.03.20
Папка "Мой компьютер"


4-1107495016
ksa2002
2005-02-04 08:30
2005.03.20
WaitCommEvent





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский