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

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

как создать подлючение к интернету через прокси [D7, WinXP]

Zloy ©   (2005-01-24 16:06:00) 

вот откопал я такой код, для подключения, и так получается подключаться на прямую, когда без прокси, но хочется предусмотреть подключению через прокси, не подскажите где править
Uses WinInet;
function FtpDownloadFile(strHost, strUser, strPwd: string;
 Port: Integer; ftpDir, ftpFile, TargetFile: string; ProgressBar: TProgressBar): Boolean;
  function FmtFileSize(Size: Integer): string;

 const
 READ_BUFFERSIZE = 4096;  // or 256, 512, ...
var
 hNet, hFTP, hFile: HINTERNET;
 buffer: array[0..READ_BUFFERSIZE - 1] of Char;
 bufsize, dwBytesRead, fileSize: DWORD;
 sRec: TWin32FindData;
 strStatus: string;
 LocalFile: file;
 bSuccess: Boolean;
 str: string;
implementation

  function FmtFileSize(Size: Integer): string;
 begin
   if Size >= $F4240 then
     Result := Format('%.2f', [Size / $F4240]) + ' Mb'
   else
   if Size < 1000 then
     Result := IntToStr(Size) + ' bytes'
   else
     Result := Format('%.2f', [Size / 1000]) + ' Kb';
 end;

function FtpDownloadFile(strHost, strUser, strPwd: string;
 Port: Integer; ftpDir, ftpFile, TargetFile: string; ProgressBar: TProgressBar): Boolean;

begin
 Result := False;

 { Open an internet session }
 hNet := InternetOpen('Program_Name', // Agent
                       INTERNET_OPEN_TYPE_PRECONFIG, // AccessType
                       nil,  // ProxyName
                       nil, // ProxyBypass
                       0); // or INTERNET_FLAG_ASYNC / INTERNET_FLAG_OFFLINE

 {
   Agent contains the name of the application or
   entity calling the Internet functions
 }

 { See if connection handle is valid }
 if hNet = nil then
 begin
   ShowMessage('Ïðîáëåìû ñ WinInet.Dll');
   Exit;

 end;

 { Connect to the FTP Server }
 hFTP := InternetConnect(hNet, // Handle from InternetOpen
                         PChar(strHost), // FTP server
                         port, // (INTERNET_DEFAULT_FTP_PORT),
                         PChar(StrUser), // username
                         PChar(strPwd),  // password
                         INTERNET_SERVICE_FTP, // FTP, HTTP, or Gopher?
                         0, // flag: 0 or INTERNET_FLAG_PASSIVE
                         0);// User defined number for callback

 if hFTP = nil then
 begin
   InternetCloseHandle(hNet);
  ShowMessage(Format('Ñåðâåð "%s" íå íàéäåí, ïðîâåðüòå ïîäêëþ÷åíèå ê èíòåðíåòó',[strHost]));
  Exit;

 end;

 { Change directory }
 bSuccess := FtpSetCurrentDirectory(hFTP, PChar(ftpDir));

 if not bSuccess then
 begin
   InternetCloseHandle(hFTP);
   InternetCloseHandle(hNet);
   ShowMessage(Format('Âðåìåííûé ïðîáëåìû ñ ñåðâåðîì, ïîäêëþ÷èòåñü ïîçæå %s.',[ftpDir]));
   Exit;
 end;

 { Read size of file }
 if FtpFindFirstFile(hFTP, PChar(ftpFile), sRec, 0, 0) nil then
 begin

   fileSize := sRec.nFileSizeLow;
   // fileLastWritetime := sRec.lastWriteTime
 end else
 begin
   InternetCloseHandle(hFTP);
   InternetCloseHandle(hNet);
   ShowMessage(Format('Cannot find file ',[ftpFile]));
   Exit;
 end;

 { Open the file }
 hFile := FtpOpenFile(hFTP, // Handle to the ftp session
                      PChar(ftpFile), // filename
                      GENERIC_READ, // dwAccess
                      FTP_TRANSFER_TYPE_BINARY, // dwFlags
                      0); // This is the context used for callbacks.

 if hFile = nil then
 begin
   InternetCloseHandle(hFTP);
   InternetCloseHandle(hNet);
   Exit;
 end;

 { Create a new local file }
 str:= TargetFile;
 AssignFile(LocalFile, TargetFile);
 {$i-}
 Rewrite(LocalFile, 1);
 {$i+}

 if IOResult 0 then
 begin
   InternetCloseHandle(hFile);
   InternetCloseHandle(hFTP);
   InternetCloseHandle(hNet);
   Exit;
 end;

 dwBytesRead := 0;
 bufsize := READ_BUFFERSIZE;

 while (bufsize > 0) do
 begin
   Application.ProcessMessages;

   if not InternetReadFile(hFile,
                           @buffer, // address of a buffer that receives the data
                           READ_BUFFERSIZE, // number of bytes to read from the file
                           bufsize) then Break; // receives the actual number of bytes read

   if (bufsize > 0) and (bufsize

---

dDan   (2005-01-28 18:11:00) [1]

Еще возник вопрос: если прокся требует авторизацию как ее произвести

---

Zloy   (2005-01-28 11:20:00) [2]

собственно я оттуда и скачал этот код, я пытаюсь использовать
INTERNET_OPEN_TYPE_PROXY(
'192.168.0.1:3128',  // ProxyName
                      nil, // ProxyBypass
                      0); // or INTERNET_FLAG_ASYNC / )INTERNET_FLAG_OFFLINE

и все равно он не хочет конектиться через прокси

---

hooch   (2005-01-28 10:33:00) [3]

если указана константа INTERNET_OPEN_TYPE_PRECONFIG то данные для соединения беруться из реестра, в том числе и настройка прокси, тут почитай http://www.delphiworld.narod.ru/

---

Zloy   (2005-01-28 10:12:00) [4]

ну не уж то ни кто не знает.....

---

Zloy   (2005-01-24 17:43:00) [5]

up

---

Наверх