<?xml version='1.0' encoding="utf-8"?>
      <rss version='2.0'>
      <channel>
      <title>Форум на Исходниках.RU</title>
      <link>https://forum.sources.ru</link>
      <description>Форум на Исходниках.RU</description>
      <generator>Форум на Исходниках.RU</generator>
  	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=96179&amp;view=findpost&amp;p=2119586</guid>
        <pubDate>Wed, 19 Nov 2008 09:27:41 +0000</pubDate>
        <title>Как узнать размер файла в нете?</title>
        <link>https://forum.sources.ru/index.php?showtopic=96179&amp;view=findpost&amp;p=2119586</link>
        <description><![CDATA[Sec†orX: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=96179&view=findpost&p=2119112'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Mr. Gonarh &#064; <time class="tag-quote__quoted-time" datetime="2008-11-18T21:34:25+03:00">18.11.08, 18:34</time></span><div class='quote '>а idHTTP не подойдет?</div></div><br>
Не, от Indy давно уже отказался.  &lt;_&lt; <br>
Нашел вчера решение <a class='tag-url' href='http://programmersforum.ru/showthread.php?t=22930' target='_blank'>здесь</a>  :)]]></description>
        <author>Sec†orX</author>
        <category>Delphi: Сетевое программирование</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=96179&amp;view=findpost&amp;p=2119112</guid>
        <pubDate>Tue, 18 Nov 2008 18:34:25 +0000</pubDate>
        <title>Как узнать размер файла в нете?</title>
        <link>https://forum.sources.ru/index.php?showtopic=96179&amp;view=findpost&amp;p=2119112</link>
        <description><![CDATA[Gonarh: а idHTTP не подойдет?]]></description>
        <author>Gonarh</author>
        <category>Delphi: Сетевое программирование</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=96179&amp;view=findpost&amp;p=2119065</guid>
        <pubDate>Tue, 18 Nov 2008 17:49:05 +0000</pubDate>
        <title>Как узнать размер файла в нете?</title>
        <link>https://forum.sources.ru/index.php?showtopic=96179&amp;view=findpost&amp;p=2119065</link>
        <description><![CDATA[Sec†orX: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=96179&view=findpost&p=2119055'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Mr. Gonarh &#064; <time class="tag-quote__quoted-time" datetime="2008-11-18T17:32:12+00:00">18.11.08, 17:32</time></span><div class='quote '>к сожалению работал только с Winsock API</div></div><br>
Жаль.  :&#39;(<br>
<br>
Кто подскажет как реализовать через WinInet???]]></description>
        <author>Sec†orX</author>
        <category>Delphi: Сетевое программирование</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=96179&amp;view=findpost&amp;p=2119055</guid>
        <pubDate>Tue, 18 Nov 2008 17:32:12 +0000</pubDate>
        <title>Как узнать размер файла в нете?</title>
        <link>https://forum.sources.ru/index.php?showtopic=96179&amp;view=findpost&amp;p=2119055</link>
        <description><![CDATA[Gonarh: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=96179&view=findpost&p=2119051'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Sec†orX &#064; <time class="tag-quote__quoted-time" datetime="2008-11-18T17:28:48+00:00">18.11.08, 17:28</time></span><div class='quote '><div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=96179&view=findpost&p=2119039'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Mr. Gonarh &#064; <time class="tag-quote__quoted-time" datetime="2008-11-18T17:14:59+00:00">18.11.08, 17:14</time></span><div class='quote '>дык говорю же формируешь запрос, читаеш заголовок и в поле Content-Location будет тебе то что нужно</div></div><br>
Можно поподробнее?<br>
Желательно пример отправки запроса. Только WinInet, не WinSock.</div></div><br>
к сожалению работал только с Winsock API]]></description>
        <author>Gonarh</author>
        <category>Delphi: Сетевое программирование</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=96179&amp;view=findpost&amp;p=2119051</guid>
        <pubDate>Tue, 18 Nov 2008 17:28:48 +0000</pubDate>
        <title>Как узнать размер файла в нете?</title>
        <link>https://forum.sources.ru/index.php?showtopic=96179&amp;view=findpost&amp;p=2119051</link>
        <description><![CDATA[Sec†orX: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=96179&view=findpost&p=2119039'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Mr. Gonarh &#064; <time class="tag-quote__quoted-time" datetime="2008-11-18T17:14:59+00:00">18.11.08, 17:14</time></span><div class='quote '>дык говорю же формируешь запрос, читаеш заголовок и в поле Content-Location будет тебе то что нужно</div></div><br>
Можно поподробнее?<br>
Желательно пример отправки запроса. Только WinInet, не WinSock. <br>
<br>
<span class="tag-color tag-color-named" data-value="gray" style="color: gray"><span class='tag-size' data-value='7' style='font-size:7pt;'>Добавлено <time class="tag-mergetime" datetime="2008-11-18T17:30:02+00:00">18.11.08, 17:30</time></span></span><br>
либо получение хеадера через HTTP_QUERY_RAW_HEADERS]]></description>
        <author>Sec†orX</author>
        <category>Delphi: Сетевое программирование</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=96179&amp;view=findpost&amp;p=2119041</guid>
        <pubDate>Tue, 18 Nov 2008 17:19:22 +0000</pubDate>
        <title>Как узнать размер файла в нете?</title>
        <link>https://forum.sources.ru/index.php?showtopic=96179&amp;view=findpost&amp;p=2119041</link>
        <description><![CDATA[Lumen: <strong class='tag-b'>Mr. Gonarh</strong><br>
Может тогда уже HEAD-запрос?]]></description>
        <author>Lumen</author>
        <category>Delphi: Сетевое программирование</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=96179&amp;view=findpost&amp;p=2119039</guid>
        <pubDate>Tue, 18 Nov 2008 17:14:59 +0000</pubDate>
        <title>Как узнать размер файла в нете?</title>
        <link>https://forum.sources.ru/index.php?showtopic=96179&amp;view=findpost&amp;p=2119039</link>
        <description><![CDATA[Gonarh: дык говорю же формируешь запрос, читаеш заголовок и в поле Content-Location будет тебе то что нужно]]></description>
        <author>Gonarh</author>
        <category>Delphi: Сетевое программирование</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=96179&amp;view=findpost&amp;p=2119034</guid>
        <pubDate>Tue, 18 Nov 2008 17:09:12 +0000</pubDate>
        <title>Как узнать размер файла в нете?</title>
        <link>https://forum.sources.ru/index.php?showtopic=96179&amp;view=findpost&amp;p=2119034</link>
        <description><![CDATA[Sec†orX: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=96179&view=findpost&p=2119031'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Mr. Gonarh &#064; <time class="tag-quote__quoted-time" datetime="2008-11-18T17:06:53+00:00">18.11.08, 17:06</time></span><div class='quote '>GET/POST ?</div></div><br>
Вот <a class='tag-url' href='http://forum.chertenok.ru/viewtopic.php?p=26220' target='_blank'>тут</a> подобный вопрос задавали.<br>
<div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <div class='quote '>Привет всем. <br>
Столкнулся с проблемой. Как определить размер файла, примеров в сети уйма, а вот как определить имя файла ни одного даже намёка не нашел   <br>
<br>
Ну, с прямыми ссылками типа <br>
http://host.net/download/file.zip <br>
всё понятно, но если ссылка типа <br>
http://host.net/go.php?act=download&file=76534 <br>
то как быть в этой ситуации? <br>
<br>
Заранее биг фенькс. <br>
<br>
</div></div> <br>
<br>
<span class="tag-color tag-color-named" data-value="gray" style="color: gray"><span class='tag-size' data-value='7' style='font-size:7pt;'>Добавлено <time class="tag-mergetime" datetime="2008-11-18T17:09:52+00:00">18.11.08, 17:09</time></span></span><br>
как это сделать? <br>
<br>
<span class="tag-color tag-color-named" data-value="gray" style="color: gray"><span class='tag-size' data-value='7' style='font-size:7pt;'>Добавлено <time class="tag-mergetime" datetime="2008-11-18T17:14:23+00:00">18.11.08, 17:14</time></span></span><br>
Пробовал через эту функцию:<br>
<br>
<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">function GetUrlInfo(const dwInfoLevel: DWORD; const FileURL: string):</div><div class="code_line">string;</div><div class="code_line">var</div><div class="code_line">&nbsp;hSession, hFile: hInternet;</div><div class="code_line">&nbsp;dwBuffer: Cardinal;</div><div class="code_line">&nbsp;dwBufferLen, dwIndex: DWORD;</div><div class="code_line">begin</div><div class="code_line">&nbsp;Result := &#39;&#39;;</div><div class="code_line">&nbsp;hSession := InternetOpen(&#39;Explorer&#39;,</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);</div><div class="code_line">&nbsp;if Assigned(hSession) then begin</div><div class="code_line">&nbsp;&nbsp; hFile := InternetOpenURL(hSession, PChar(FileURL), nil, 0,</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;INTERNET_FLAG_RELOAD, 0);</div><div class="code_line">&nbsp;&nbsp; dwIndex &nbsp;:= 0;</div><div class="code_line">&nbsp;&nbsp; dwBufferLen := 1000;</div><div class="code_line">&nbsp;&nbsp; if HttpQueryInfo(hFile, dwInfoLevel, @dwBuffer, dwBufferLen, dwIndex)</div><div class="code_line">&nbsp;&nbsp; &nbsp; then Result :=PChar( @dwBuffer);</div><div class="code_line">&nbsp;&nbsp; if Assigned(hFile) then InternetCloseHandle(hFile);</div><div class="code_line">&nbsp;&nbsp; InternetCloseHandle(hsession);</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;end;</div><div class="code_line">end;</div></ol></div></div></div></div><script>preloadCodeButtons('1');</script><br>
<br>
Но возвращает пустой результат.<br>
<br>
Вызов:<br>
GetUrlInfo(HTTP_QUERY_LOCATION, url);]]></description>
        <author>Sec†orX</author>
        <category>Delphi: Сетевое программирование</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=96179&amp;view=findpost&amp;p=2119031</guid>
        <pubDate>Tue, 18 Nov 2008 17:06:53 +0000</pubDate>
        <title>Как узнать размер файла в нете?</title>
        <link>https://forum.sources.ru/index.php?showtopic=96179&amp;view=findpost&amp;p=2119031</link>
        <description><![CDATA[Gonarh: GET/POST ?]]></description>
        <author>Gonarh</author>
        <category>Delphi: Сетевое программирование</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=96179&amp;view=findpost&amp;p=2119024</guid>
        <pubDate>Tue, 18 Nov 2008 16:58:57 +0000</pubDate>
        <title>Как узнать размер файла в нете?</title>
        <link>https://forum.sources.ru/index.php?showtopic=96179&amp;view=findpost&amp;p=2119024</link>
        <description><![CDATA[Sec†orX: Что по поводу моего вопроса? Весь форум пеперыл по фразе WinInet, решения не нашел&#33; И у десятка кодеров в аське спросил, никто не может ничего подсказать.]]></description>
        <author>Sec†orX</author>
        <category>Delphi: Сетевое программирование</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=96179&amp;view=findpost&amp;p=2119018</guid>
        <pubDate>Tue, 18 Nov 2008 16:54:34 +0000</pubDate>
        <title>Как узнать размер файла в нете?</title>
        <link>https://forum.sources.ru/index.php?showtopic=96179&amp;view=findpost&amp;p=2119018</link>
        <description><![CDATA[Gonarh: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=96179&view=findpost&p=725332'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>CrazyVirus &#064; <time class="tag-quote__quoted-time" datetime="2005-05-21T13:34:23+00:00">21.05.05, 13:34</time></span><div class='quote '>Не фига в факе нету&#33;</div></div><br>
Уважаемый, та вааще в фак заглядывал?  :angry: <br>
<a class='tag-url' href='http://forum.sources.ru/index.php?showtopic=96234' target='_blank'>фак</a>]]></description>
        <author>Gonarh</author>
        <category>Delphi: Сетевое программирование</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=96179&amp;view=findpost&amp;p=2118961</guid>
        <pubDate>Tue, 18 Nov 2008 15:53:39 +0000</pubDate>
        <title>Как узнать размер файла в нете?</title>
        <link>https://forum.sources.ru/index.php?showtopic=96179&amp;view=findpost&amp;p=2118961</link>
        <description><![CDATA[Sec†orX: А как узнать имя файла из URL, если ссылка непрямая??? <br>Через WinInet есс-но.]]></description>
        <author>Sec†orX</author>
        <category>Delphi: Сетевое программирование</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=96179&amp;view=findpost&amp;p=731772</guid>
        <pubDate>Sat, 28 May 2005 14:59:36 +0000</pubDate>
        <title>Как узнать размер файла в нете?</title>
        <link>https://forum.sources.ru/index.php?showtopic=96179&amp;view=findpost&amp;p=731772</link>
        <description><![CDATA[Mr.Delphist: Только имей ввиду, что ты получишь размер файла <strong class='tag-b'>ТОЛЬКО В ТОМ СЛУЧАЕ, ЕСЛИ СЕРВЕР УМЕЕТ ЭТО СООБЩАТЬ.</strong><br>
Многие бесплатные хосты сообщают длину файла как ноль (хотя реально файл есть).]]></description>
        <author>Mr.Delphist</author>
        <category>Delphi: Сетевое программирование</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=96179&amp;view=findpost&amp;p=725738</guid>
        <pubDate>Sun, 22 May 2005 07:56:42 +0000</pubDate>
        <title>Как узнать размер файла в нете?</title>
        <link>https://forum.sources.ru/index.php?showtopic=96179&amp;view=findpost&amp;p=725738</link>
        <description><![CDATA[CrazyVirus: Спасибо&#33;&#33;&#33;&#33;&#33;&#33;&#33;&#33;&#33;&#33;&#33; :)]]></description>
        <author>CrazyVirus</author>
        <category>Delphi: Сетевое программирование</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=96179&amp;view=findpost&amp;p=725449</guid>
        <pubDate>Sat, 21 May 2005 16:16:03 +0000</pubDate>
        <title>Как узнать размер файла в нете?</title>
        <link>https://forum.sources.ru/index.php?showtopic=96179&amp;view=findpost&amp;p=725449</link>
        <description><![CDATA[P.O.D: <div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">uses wininet;</div><div class="code_line">...</div><div class="code_line">function GetUrlSize(const URL:string):integer;//результат в байтах</div><div class="code_line">var</div><div class="code_line">&nbsp;&nbsp;hSession,hFile:hInternet;</div><div class="code_line">&nbsp;&nbsp;dwBuffer:array[1..20] of char;</div><div class="code_line">&nbsp;&nbsp;dwBufferLen,dwIndex:DWORD;</div><div class="code_line">begin</div><div class="code_line">Result:=0;</div><div class="code_line">hSession:=InternetOpen(&#39;GetUrlSize&#39;,INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);</div><div class="code_line">if Assigned(hSession) then begin</div><div class="code_line">&nbsp;hFile:=InternetOpenURL(hSession,PChar(URL),nil,0,INTERNET_FLAG_RELOAD,0);</div><div class="code_line">&nbsp;dwIndex:=0;</div><div class="code_line">&nbsp;dwBufferLen:=20;</div><div class="code_line">&nbsp;if HttpQueryInfo(hFile,HTTP_QUERY_CONTENT_LENGTH,@dwBuffer,dwBufferLen,dwIndex) then Result:=StrToInt(StrPas(@dwBuffer));</div><div class="code_line">&nbsp;if Assigned(hFile) then InternetCloseHandle(hFile);</div><div class="code_line">&nbsp;InternetCloseHandle(hsession);</div><div class="code_line">end;</div><div class="code_line">end;</div></ol></div></div></div></div>]]></description>
        <author>P.O.D</author>
        <category>Delphi: Сетевое программирование</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=96179&amp;view=findpost&amp;p=725332</guid>
        <pubDate>Sat, 21 May 2005 13:34:23 +0000</pubDate>
        <title>Как узнать размер файла в нете?</title>
        <link>https://forum.sources.ru/index.php?showtopic=96179&amp;view=findpost&amp;p=725332</link>
        <description><![CDATA[CrazyVirus: Не фига в факе нету&#33;]]></description>
        <author>CrazyVirus</author>
        <category>Delphi: Сетевое программирование</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=96179&amp;view=findpost&amp;p=725171</guid>
        <pubDate>Sat, 21 May 2005 10:08:55 +0000</pubDate>
        <title>Как узнать размер файла в нете?</title>
        <link>https://forum.sources.ru/index.php?showtopic=96179&amp;view=findpost&amp;p=725171</link>
        <description><![CDATA[P.O.D: HttpQueryInfo<br>----<br>Может в фак загоним это, или там уже есть ?]]></description>
        <author>P.O.D</author>
        <category>Delphi: Сетевое программирование</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=96179&amp;view=findpost&amp;p=725019</guid>
        <pubDate>Sat, 21 May 2005 06:00:41 +0000</pubDate>
        <title>Как узнать размер файла в нете?</title>
        <link>https://forum.sources.ru/index.php?showtopic=96179&amp;view=findpost&amp;p=725019</link>
        <description><![CDATA[CrazyVirus: Как узнать размер файла в нете?]]></description>
        <author>CrazyVirus</author>
        <category>Delphi: Сетевое программирование</category>
      </item>
	
      </channel>
      </rss>
	