Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=38721&view=findpost&p=259140 Sun, 07 Dec 2003 14:40:45 +0000 прокси https://forum.sources.ru/index.php?showtopic=38721&view=findpost&p=259140
Цитата

Гость jam-jam и тебя прокси пропускает. Аутентификацию не требует?

А как вообще подключиться через прокси без компонента, а потом уже что-нибудь качать? ]]> Гость jam-jam Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=38721&view=findpost&p=257863 Fri, 05 Dec 2003 05:25:02 +0000 прокси https://forum.sources.ru/index.php?showtopic=38721&view=findpost&p=257863 Alex-Co Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=38721&view=findpost&p=254772 Sun, 30 Nov 2003 08:12:14 +0000 прокси https://forum.sources.ru/index.php?showtopic=38721&view=findpost&p=254772 http://shu.ru/tech/wininet/InternetSetFilePointer.htm ]]> pigas Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=38721&view=findpost&p=254763 Sun, 30 Nov 2003 07:35:10 +0000 прокси https://forum.sources.ru/index.php?showtopic=38721&view=findpost&p=254763
Цитата (Гость jam-jam @ 30.11.03, 06:11)
И куда тут подставлять InternetSetFilePointer?

В яндекс ]]> pigas Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=38721&view=findpost&p=254738 Sun, 30 Nov 2003 06:11:53 +0000 прокси https://forum.sources.ru/index.php?showtopic=38721&view=findpost&p=254738
Цитата

функция InternetSetFilePointer


А какие у неё парамерты и что она должна вернуть.

Как я понимаю, собственно за скачивание отвечает
Цитата

InternetReadFile(hURL, @Buffer,
SizeOf(Buffer), BufferLen);
BlockWrite(f, Buffer, BufferLen)


И куда тут подставлять InternetSetFilePointer? ]]> Гость jam-jam Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=38721&view=findpost&p=254532 Sat, 29 Nov 2003 16:56:42 +0000 прокси https://forum.sources.ru/index.php?showtopic=38721&view=findpost&p=254532 x2er0 Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=38721&view=findpost&p=254524 Sat, 29 Nov 2003 16:47:46 +0000 прокси https://forum.sources.ru/index.php?showtopic=38721&view=findpost&p=254524 blink.gif ]]> Гость jam-jam Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=38721&view=findpost&p=253427 Thu, 27 Nov 2003 16:17:52 +0000 прокси https://forum.sources.ru/index.php?showtopic=38721&view=findpost&p=253427 Вот прикольная статейка с работающим кодом _)))





Получение файла из сети

10 дек 2002 (вторник), 10:35:46


(Перевод одноимённой статьи с сайта delphi.about.com )

Обычно при разработке приложений, которые планируется в дальнейшем обновлять
и усовершенствовать, основные модули хранятся в виде пакетов (Package) или библиотек DLL.
В настоящее время Internet предоставляет возможность без особых усилий осуществлять
обновление этих модулей. Поэтому добавление к Вашему приложению функции авто-обновления,
является наилучшим способом для обновления приложения.

Давайте посмотрим, как реализовывается данный механизм в любом FTP приложении.

Delphi предоставляет нам полный доступ к WinInet API (wininet.pas), который можно использовать
для соединения и получения файлов с веб-сайта, который использует
либо Hypertext Transfer Protocol (HTTP) либо File Transfer Protocol (FTP).
Например, мы можем использовать функции из WinInet API для: добавления FTP браузера
в любое приложение, создания приложения, которое автоматически скачивает файлы с общедоступных
FTP серверов или поиска Internet сайтов, ссылающихся на графику и скачивать только графику.

Функция GetInetFile

uses Wininet;

function 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;



Обратите внимание: Чтобы обеспечить некоторую визуальную обратную связь для пользователя,
Вы можете добавить строчку наподобие FlashWindow(Application.Handle,True) в тело блока
" повторить/до тех пор" (repeat/until). Вызов FlashWindow API высвечивает заголовок
Вашего имени приложений в панели задач.

Использование
Для вызова функции GetInetFile можно использовать следующий код:


var FileOnNet, LocalFileName: string
begin
FileOnNet:=
'http://delphi.about.com/library/forminbpl.zip';
LocalFileName:='File Downloaded From the Net.zip'

if GetInetFile(FileOnNet,LocalFileName)=True then
ShowMessage('Download successful')
else
ShowMessage('Error in file download')

end;



Данный код запрашивает файл 'forminbpl.zip' с сайта, скачивает его, и сохраняет его как
'File Downloaded From the Net.zip'.

Обратите внимание: В зависимости от версии Delphi,
Вы можете использовать различные компоненты, которые можно найти на Интернет страницах,
посвещённых VCL и, которые можно использовать для упрощения создания приложений
(например FTP компонент, необходимый для TNMFTP, находящийся на странице FastNet VCL).



Сонг еше както подсказал апю
Размер вернёт функция FtpFindFirstFile()


]]> pigas Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=38721&view=findpost&p=253251 Thu, 27 Nov 2003 12:19:24 +0000 прокси https://forum.sources.ru/index.php?showtopic=38721&view=findpost&p=253251 tolsty Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=38721&view=findpost&p=252711 Wed, 26 Nov 2003 15:28:27 +0000 прокси https://forum.sources.ru/index.php?showtopic=38721&view=findpost&p=252711 Гость jam-jam Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=38721&view=findpost&p=252141 Tue, 25 Nov 2003 18:46:48 +0000 прокси https://forum.sources.ru/index.php?showtopic=38721&view=findpost&p=252141
Цитата (Гость jam-jam @ 25.11.03, 18:08)
Это целый файл, а как мне взять его часть?

Както можно ( но вероятно тогда прокси пролетит ) иши нужные апи ]]> pigas Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=38721&view=findpost&p=252133 Tue, 25 Nov 2003 18:08:53 +0000 прокси https://forum.sources.ru/index.php?showtopic=38721&view=findpost&p=252133 Гость jam-jam Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=38721&view=findpost&p=251515 Mon, 24 Nov 2003 18:21:55 +0000 прокси https://forum.sources.ru/index.php?showtopic=38721&view=findpost&p=251515
    uses
     Psock, NMHttp;
     
    vaR
        NMHTTP1: TNMHTTP;
    begin
      NMHTTP1:= TNMHTTP.Create(nil);
      NMHTTP1.Proxy:='123.123.123.123';
      NMHTTP1.ProxyPort:=80;
      //try
    NMHTTP1.InputFileMode:=true;
    NMHTTP1.Body:='C:\hard_porno.gif';
    NMHTTP1.Header:='c:\hard_porno_Header.txt';
    NMHTTP1.Get('http://spb.rol.ru/images/rol3l_rollogo2.gif');
    //except
    //end;
     
    showmessage('OK');
    end.


что можно сказать девушке по телефону чтобы познакомится ( но чтоб она не повесила трубку )
ps девушка рекламирует косметику.....]]> pigas Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=38721&view=findpost&p=251483 Mon, 24 Nov 2003 17:14:31 +0000 прокси https://forum.sources.ru/index.php?showtopic=38721&view=findpost&p=251483 Гость jam-jam Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=38721&view=findpost&p=250785 Sun, 23 Nov 2003 17:17:06 +0000 прокси https://forum.sources.ru/index.php?showtopic=38721&view=findpost&p=250785 pigas Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=38721&view=findpost&p=250781 Sun, 23 Nov 2003 17:05:19 +0000 прокси https://forum.sources.ru/index.php?showtopic=38721&view=findpost&p=250781 Гость jam-jam Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=38721&view=findpost&p=250759 Sun, 23 Nov 2003 15:58:57 +0000 прокси https://forum.sources.ru/index.php?showtopic=38721&view=findpost&p=250759 pigas Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=38721&view=findpost&p=250731 Sun, 23 Nov 2003 14:39:37 +0000 прокси https://forum.sources.ru/index.php?showtopic=38721&view=findpost&p=250731 Гость jam-jam Delphi: Сетевое программирование