Главная страница
    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.45 MB
Время: 0.044 c
1-1109827376
leonidus
2005-03-03 08:22
2005.03.20
Глюки MainMenu в XP


14-1109278251
тихий вовочка
2005-02-24 23:50
2005.03.20
Нужно ли высшее образование програмисту?


1-1110123584
ser35
2005-03-06 18:39
2005.03.20
Рисунок с расширение GIF


1-1110113557
smok_red
2005-03-06 15:52
2005.03.20
Список окон в MDI приложении в виде кнопок на ToolBar


14-1109608994
Макс
2005-02-28 19:43
2005.03.20
Помогите чайнику!!!Как сделать форму невидимой?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский