GetInetFile
function GetInetFile
(const fileURL, FileName: String): boolean;
const BufferSize = 4000;
var
hSession, hURL: HInternet;
Buffer: array[1000..BufferSize] of Byte;
BufferLen: DWORD;
f: File;
sAppName: string;
begin
Result:=False;
sAppName := '';
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;
Vot ja ne kak ne magu ponjat` po4emu tak medleno ko4aetsja? i kak eto ispravit`! Vsem Thx :(
(const fileURL, FileName: String): boolean;
const BufferSize = 4000;
var
hSession, hURL: HInternet;
Buffer: array[1000..BufferSize] of Byte;
BufferLen: DWORD;
f: File;
sAppName: string;
begin
Result:=False;
sAppName := '';
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;
Vot ja ne kak ne magu ponjat` po4emu tak medleno ko4aetsja? i kak eto ispravit`! Vsem Thx :(
Цитата:
Originally posted by foxsik123
function GetInetFile
(const fileURL, FileName: String): boolean;
const BufferSize = 4000;
var
hSession, hURL: HInternet;
Buffer: array[1000..BufferSize] of Byte;
BufferLen: DWORD;
f: File;
sAppName: string;
begin
Result:=False;
sAppName := '';
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;
Vot ja ne kak ne magu ponjat` po4emu tak medleno ko4aetsja? i kak eto ispravit`! Vsem Thx :(
function GetInetFile
(const fileURL, FileName: String): boolean;
const BufferSize = 4000;
var
hSession, hURL: HInternet;
Buffer: array[1000..BufferSize] of Byte;
BufferLen: DWORD;
f: File;
sAppName: string;
begin
Result:=False;
sAppName := '';
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;
Vot ja ne kak ne magu ponjat` po4emu tak medleno ko4aetsja? i kak eto ispravit`! Vsem Thx :(
Всё зависит от трафика,как мы знаем.А как исправить:D .Выйти ночью,ночью дешевле:D
От кода это не зависит.Или написатьна Асме,если вы думаете,что дело в коде.:(
Цитата:
Originally posted by Bumer
Всё зависит от трафика,как мы знаем.А как исправить:D .Выйти ночью,ночью дешевле:D
От кода это не зависит.Или написатьна Асме,если вы думаете,что дело в коде.:(
Всё зависит от трафика,как мы знаем.А как исправить:D .Выйти ночью,ночью дешевле:D
От кода это не зависит.Или написатьна Асме,если вы думаете,что дело в коде.:(
Vsjo jasno! u menja host na narod.ru perenjos na drugoj i vsjo narmalno! Sposibo za vnemanie!
He vsjo s etoj 4tukoj razabralsja rabotaet na ura!!! Vot tolko esle interneta ! net to takoe na4enaet tvaritsja!! :)
Komp visnet laguet ITD.
4to delalt`?
Komp visnet laguet ITD.
4to delalt`?
Цитата:
Originally posted by foxsik123
He vsjo s etoj 4tukoj razabralsja rabotaet na ura!!! Vot tolko esle interneta ! net to takoe na4enaet tvaritsja!! :)
Komp visnet laguet ITD.
4to delalt`?
He vsjo s etoj 4tukoj razabralsja rabotaet na ura!!! Vot tolko esle interneta ! net to takoe na4enaet tvaritsja!! :)
Komp visnet laguet ITD.
4to delalt`?
Windows учуть надо, так как это многопотоковая и мнопроцессионная среда. О как сказал.
Цитата:
Originally posted by unmoved
Windows учуть надо, так как это многопотоковая и мнопроцессионная среда. О как сказал.
Windows учуть надо, так как это многопотоковая и мнопроцессионная среда. О как сказал.
:) hm a pri 4jom tut windows sreda?
Цитата:
Originally posted by foxsik123
:) hm a pri 4jom tut windows sreda?
:) hm a pri 4jom tut windows sreda?
А при том, что конект с сервером пропадает временно, на пример из-за помех на телефонной линии или инета нет совсем, а так как поток на котором файл качается еще и форма находится, то все виснет. Что б этого не произошло, запускается еще один поток, тут то и надо знать как среда Windows работает...
Цитата:
Originally posted by unmoved
А при том, что конект с сервером пропадает временно, на пример из-за помех на телефонной линии или инета нет совсем, а так как поток на котором файл качается еще и форма находится, то все виснет. Что б этого не произошло, запускается еще один поток, тут то и надо знать как среда Windows работает...
А при том, что конект с сервером пропадает временно, на пример из-за помех на телефонной линии или инета нет совсем, а так как поток на котором файл качается еще и форма находится, то все виснет. Что б этого не произошло, запускается еще один поток, тут то и надо знать как среда Windows работает...
Aga rasklad jasen! :) posmotrem 4to polu4etsja :)