Программа виснет при закачке если меняю фокус на другую [D6, WinXP]
Страницы:
<
1
2
3
>
Elen © (2006-09-12 09:27:00)
Доброго времени суток господа!
Мне нужно было на скорую руку написать простейшую программу
для закачки файлов из инета.
Порывшись на форуме нахожу два способа:
1. Indy
procedure tform1.GetFile(URL, fullfilename: string);
var
str: TFileStream;
begin
try
str := TFileStream.Create(fullfilename,fmCreate);
IdHTTP1.Get(URL, str);
finally
str.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
IdHTTP1.Host :='21.13.4.234'; // это адрес прокси
IdHTTP1.Port :=8080;
IdHTTP1.Connect;
GetFile('
http://podgoretsky.com/ftp/Docs/Delphi/Podgoretsky/bits.doc',
'd:\_____.doc');
IdHTTP1.Disconnect;
end;
Этот способ в idhttp.pas выдает ошибку
403 forbidden (The ISA server denied the specified Uniform
Recource Locator)
Поскольку времени нет и есть другой способ разбор этой ошибки
я оставляю на будущее
но буду благодарна если обьясните.
2. WinInet
//********* PROCEDURE**********
procedure tform1.dload;
//const
Var i:byte;FileName, FileURL:string; Report:textfile;
begin
if not DirectoryExists(appdir+'dload') then
aMakeDir(appdir+'dload');
AssignFile(report,appdir+'dload\report.txt');
rewrite(report);
//**************************************************************************
for i:=0 to ListBox1.Count-1 do begin
ListBox1.ItemIndex:=i;
FileURL:=ListBox1.Items[i];
FileName:= appdir+'dload\'+copyas(ListBox1.Items[i],'/',-1);
writeln(report,padr('---Begin on ','
',15)+datetimetostr(now));
hSession := InternetOpen({'STEROID Download}'Microsoft
Internet Explorer',
INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
if Assigned(hSession) then begin
hFile := InternetOpenURL(hSession, PChar(FileURL),
nil, 0,
INTERNET_FLAG_RELOAD, 0);
if Assigned(hFile) then begin
AssignFile(f, FileName);
Rewrite(f,1);
fSize := 0;
repeat
InternetReadFile(hFile, @Buffer,
SizeOf(Buffer), BufferLen);
BlockWrite(f, Buffer, BufferLen);
fSize := fSize + BufferLen;
caption:=inttostr(i)+' -
'+inttostr(fsize);
until (BufferLen = 0);
CloseFile(f);
writeln(report,filefrompath(filename)+'
(',fsize,')');
writeln(report,padr('---Ending on ','
',15)+datetimetostr(now));writeln(report);
InternetCloseHandle(hFile);
end;
InternetCloseHandle(hSession);
end;
//**************************************************************************
end;
ListBox1.Items.Clear;
end;
//********* END PROCEDURE*******
Этот способ мне нравится больше так как контроль за закачкой
глубже.
И он как раз сработал с первого раза.
Но вот прикол -
Пока программа работает на переднем плане все хорошо
но стоит мне переключить фокус на другую прогу и моя виснет
безвозмездно.
приходится закрывать ее принудительно и соответственно качка
вроде останавливается
С чем это может быть связано?
Я не знаю в какую ветку лучше писать, пишу сюда т.к. все таки
связано с сетью,
но не обижусь если модератор перенесет этот вопрос в
начинающие.
Сергей М. (2006-09-12 09:47:00) [41]
> С чем это может быть связано?
Например, с возникающими в этот момент в твоей "проге"
исключениями.
> способ мне нравится больше так как контроль за закачкой
> глубже
Чем же он "глубже" ?
Страницы:
<
1
2
3
>
Наверх 
ЧАТ |
Орешник |
|
