как создать подлючение к интернету через прокси

← →
Zloy © (2005-01-24 16:06) [0]

вот откопал я такой код, для подключения, и так получается подключаться на прямую, когда без прокси, но хочется предусмотреть подключению через прокси, не подскажите где править
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 <= READ_BUFFERSIZE) then
Form9.Show;
BlockWrite(LocalFile, buffer, bufsize);
dwBytesRead := dwBytesRead + bufsize;

{ Show Progress }

ProgressBar.Position := Round(dwBytesRead * 100 / fileSize);
Form9.Label1.Caption := Format("%s of %s / %d %%",[FmtFileSize(dwBytesRead),FmtFileSize(fileSize) ,ProgressBar.Position]);

end;

CloseFile(LocalFile);

InternetCloseHandle(hFile);
InternetCloseHandle(hFTP);
InternetCloseHandle(hNet);
Result := True;
Form9.Close;
end;

← →
Zloy © (2005-01-24 17:43) [1]

← →
Zloy © (2005-01-28 10:12) [2]

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

← →
hooch © (2005-01-28 10:33) [3]

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

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

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

← →
dDan (2005-01-28 18:11) [5]

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

как создать подлючение к интернету через прокси Найти похожие ветки