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

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

Почему под проксей не идет эта функция?? (( [D7, WinXP]


Muhan_ ©   (2006-04-06 14:47:00) 

Функция закачки файла из инета...)
Выдает вот таккую хрень..
Может поможете чем, спасибо заранее

Access violation at address 004D5DA1 in module 'Project1.exe'/ Read of address 00A30000.

а вот текст функции:
function DownloadFile(const FileURL, FileName: String): Cardinal;
var
 hSession, hFile: HInternet;
 Buffer: array[1..1024] of Byte;
 BufferLen, fSize: LongWord;
 f: File;
begin
 Result := 0;
 hSession := InternetOpen('STEROID Download',
                          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;
     until (BufferLen = 0);
     CloseFile(f);
     Result := fSize;
     InternetCloseHandle(hFile);
   end else begin
       MessageDlg('Не могу скачать файл! Проверьте соединение с Internet', mtCustom,[mbYes], 1);
       Form1.Close;
   end;
   InternetCloseHandle(hSession);
 end
end;


Muhan_   (2006-04-07 01:25:00) [1]

блин да не нужны мне другие проги )) мне своя нужна работающая под прокси..чтобы могла файл скачать


tesseract   (2006-04-06 21:35:00) [2]

неа, присмотрись к другим прогам. они позволяют задавать пароль/логин на прокси.


Muhan_   (2006-04-06 18:10:00) [3]

блин, а может тогда другая есть функция работающая при данном раскаладе??


tesseract   (2006-04-06 17:48:00) [4]


> не понимаю причем тут пароль...я же хочу в инете нормально

Как я понял из приведённого ответа proxy - ты должен быть члено домена те идёт проверка зарегистрирована твоя машина  в домене или нет. Explorer просто хранит пароли.
У меня на работе типа такого, но на Netware.


Muhan_   (2006-04-06 17:44:00) [5]

ничего не понял ))
не понимаю причем тут пароль...я же хочу в инете нормально
описание чего смотреть то? )
может есть другая граммотная процедурка ))


tesseract   (2006-04-06 17:20:00) [6]

тебя же прокся посылает. Вероятно хочет пароля. Тк socks 5. смотри её описание.

а Violtaion явно здесь

>   repeat        InternetReadFile(hFile, @Buffer, SizeOf(Buffer),
>  BufferLen);        BlockWrite(f, Buffer, BufferLen);  
>      fSize := fSize + BufferLen;      until (BufferLen =
> 0);


Muhan_   (2006-04-06 15:22:00) [7]

какую же функцию использовать чтобы не было такой хрени?)


Muhan_   (2006-04-06 15:19:00) [8]

Вот такую хрень пишет ,при попытке скачки файла...это он пишет в файле

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html>
<head><title>Сообщение Интернет-прокси (DCC://Box)</title><base href=" http://192.168.40.22/">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
<link rel="STYLESHEET" type="text/css" href="/theme/dcc.css">
</head><body><h1>Доступ к ресурсам Интернет запрещён</h1><h2>Уважаемый пользователь!</h2>
<p>В настоящее время Вам запрещен доступ к ресурсам Интернет.</p>
<p>Причины, по которым Вам запрещен доступ, могут быть следующие:<ul>
<li><em>Вы не являетесь членом домена MSK.AEROFLOT.RU.</em> В этом случае Вам необходимо подать заявку в службу поддержки пользователей (HelpDesk) по телефону 777 для включения в домен.</li>
<li><em>Вы являетесь членом домена MSK.AEROFLOT.RU, и Ваш компьютер работает по управлением операционной системы Windows98.</em> В этом случае необходимо ввести Ваше имя и пароль для входа в сеть.</li>
<li><em>Вы являетесь членом домена MSK.AEROFLOT.RU, но доступ в Интернет для Вашей учетной записи запрещен (возможно по указанию Вашего руководителя).</em></li>
</ul></p>
<p>Если Вы считаете, что доступ заблокирован ошибочно - направьте сообщение по адресу
<a href="mailto:proxy@aeroflot.ru?Subject=[Proxy]%20Blocked%20user%20upsets">proxy@aeroflot.ru</a></p>
<address> <a href=" http://dcc.sft.ru">DCC://Box v3.4</a> </address>
</body></html>

<BR clear="all">
<HR noshade size="1px">
<ADDRESS>
Generated Thu, 06 Apr 2006 11:16:33 GMT by svo-proxy-01.msk.aeroflot.ru (squid/2.5.STABLE12-20051118)
</ADDRESS>
</BODY></HTML>
Muhan (03:17 PM) :
это в обеих?
Amoralez (03:18 PM) :
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html>
<head><title>Сообщение Интернет-прокси (DCC://Box)</title><base href=" http://192.168.40.22/">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
<link rel="STYLESHEET" type="text/css" href="/theme/dcc.css">
</head><body><h1>Доступ к ресурсам Интернет запрещён</h1><h2>Уважаемый пользователь!</h2>
<p>В настоящее время Вам запрещен доступ к ресурсам Интернет.</p>
<p>Причины, по которым Вам запрещен доступ, могут быть следующие:<ul>
<li><em>Вы не являетесь членом домена MSK.AEROFLOT.RU.</em> В этом случае Вам необходимо подать заявку в службу поддержки пользователей (HelpDesk) по телефону 777 для включения в домен.</li>
<li><em>Вы являетесь членом домена MSK.AEROFLOT.RU, и Ваш компьютер работает по управлением операционной системы Windows98.</em> В этом случае необходимо ввести Ваше имя и пароль для входа в сеть.</li>
<li><em>Вы являетесь членом домена MSK.AEROFLOT.RU, но доступ в Интернет для Вашей учетной записи запрещен (возможно по указанию Вашего руководителя).</em></li>
</ul></p>
<p>Если Вы считаете, что доступ заблокирован ошибочно - направьте сообщение по адресу
<a href="mailto:proxy@aeroflot.ru?Subject=[Proxy]%20Blocked%20user%20upsets">proxy@aeroflot.ru</a></p>
<address> <a href=" http://dcc.sft.ru">DCC://Box v3.4</a> </address>
</body></html>

<BR clear="all">
<HR noshade size="1px">
<ADDRESS>
Generated Thu, 06 Apr 2006 11:16:31 GMT by svo-proxy-01.msk.aeroflot.ru (squid/2.5.STABLE12-20051118)
</ADDRESS>
</BODY></HTML>


Muhan_   (2006-04-06 15:19:00) [9]

хотя с нетом ..все ок..все качает без проблем


Muhan_   (2006-04-06 14:52:00) [10]

я не знаю ))
просто кто юзал под проксей у большинства такая хрень вылетала (((
и хз что делать ((


Сергей М.   (2006-04-06 14:51:00) [11]

Прокси-то причем тут ?

Отладчик тебе в руки ...


Наверх

Титульная страница Поиск, карта сайта Написать письмо