VPF::Загрузка страниц через корпоративный прокси (Proxy

FearDog

Дата 8.2.2019, 06:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 17.4.2018

Репутация: нет
Всего: нет

Добрый день!
Мучаюсь уже несколько дней, и никак не могу выйти в просторы интернета в свой программе.
Пишу программу на работе. доступ в интернет происходит через Прокси сервер (Установлен параметр "Использовать прокси-сервер для локальных подключений (не применяется для коммутируемых или VPN-подключений)").

Я использую связку IdHTTP + IdSSLIOHandlerSocketOpenSSL. SSL библиотеки есть. На домашнем компьютере, без использования Прокси, программа работает отлично. Проверяю на http://ya.ru/

На работе же никак не могу заставить программу подключиться через прокси. использовал три варианта, ни один не работает:

код Pascal/Delphi

10:

11:

12:

13:

14:

15:

16:

17:

18:

19:

20:

21:

22:

23:

24:

25:

26:

27:

28:

29:

30:

31:

case ProxyType of

ptHTTP:

with idHTTP1.ProxyParams do

begin

ProxyServer := e_ProxyServer.Text;

ProxyPort := StrToIntDef(e_ProxyPort.Text,0);

ProxyUsername := e_ProxyUsername.Text;

ProxyPassword := e_ProxyPassword.Text;

BasicAuthentication := chb_BasicAuthentication.Checked;

end;

ptSocks:

with IdSocksInfo1 do //IdSocksInfo1 подключен в IdSSLIOHandlerSocketOpenSSL1

begin

Host := e_ProxyServer.Text;

Port := StrToIntDef(e_ProxyPort.Text,0);

Username := e_ProxyUsername.Text;

Password := e_ProxyPassword.Text;

if chb_BasicAuthentication.Checked then

Authentication := saUsernamePassword

else

Authentication := saNoAuthentication;

end;

ptSSLIOHandler:

with IdSSLIOHandlerSocketOpenSSL1.TransparentProxy do

begin

Host := e_ProxyServer.Text;

Port := StrToIntDef(e_ProxyPort.Text,0);

Username := e_ProxyUsername.Text;

Password := e_ProxyPassword.Text;

end;

End;

В полях содержимое типа:

код Pascal/Delphi

e_ProxyServer.Text = 11.22.33.10 //Взял из настроек браузера

e_ProxyPort.Text = 8080 //Взял там же

e_ProxyUsername.Text = domen\UserName //Логин входа в компьютер

e_ProxyPassword.Text = Qqqq1234 //Пароль для входа в компьютер

Ошибка EIdSocketException: 10061 Connection refused.

При использовании компонентов EmbeddedWB (EmbeddedWB, IEParser) все работает хорошо: просто кидаю на форму, параметры не меняю - сайты грузит.

Система:
Windows 10
Delphi XE5
Indy 10.1.5.0

P.S.:
Пробовал связки IdHTTP + IdSSLIOHandlerSocketOpenSSL и IdHTTP + IdSSLIOHandlerSocketOpenSSL + IdSocksInfo - результат не меняется.
Имя пользователя пробовал и с доменом и без, и в формате UserName@domen - результат не меняется.

neweraser

Дата 3.2.2020, 17:38 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 598
Регистрация: 17.2.2008

Репутация: нет
Всего: 6

Уже, наверное, неактуально, но может кто-то будет искать ответ. Можно использовать WinInet, читая настройки прокси из IE. Надо только убрать много лишнего и подстроить под себя:

код Pascal/Delphi

10:

11:

12:

13:

14:

15:

16:

17:

18:

19:

20:

21:

22:

23:

24:

25:

26:

27:

28:

29:

30:

31:

32:

33:

34:

35:

36:

37:

38:

39:

40:

41:

42:

43:

44:

45:

46:

47:

48:

49:

50:

51:

52:

53:

54:

55:

56:

57:

58:

59:

60:

61:

62:

63:

64:

65:

66:

67:

68:

69:

70:

71:

72:

73:

74:

75:

76:

77:

78:

79:

80:

81:

82:

83:

84:

85:

86:

87:

88:

89:

90:

91:

92:

93:

94:

95:

96:

97:

98:

99:

100:

101:

102:

103:

104:

105:

106:

107:

108:

109:

110:

111:

112:

113:

114:

115:

116:

117:

118:

119:

120:

121:

122:

123:

124:

125:

126:

127:

128:

129:

130:

131:

132:

133:

134:

135:

136:

137:

138:

139:

140:

141:

142:

143:

144:

145:

146:

147:

148:

149:

150:

151:

152:

153:

154:

155:

156:

157:

158:

159:

160:

161:

162:

163:

164:

165:

166:

167:

168:

169:

170:

171:

172:

173:

174:

175:

176:

177:

178:

179:

180:

181:

182:

183:

184:

185:

186:

187:

188:

189:

190:

191:

192:

193:

194:

195:

196:

197:

198:

199:

200:

201:

202:

203:

204:

205:

206:

207:

208:

209:

210:

211:

212:

213:

214:

215:

216:

217:

218:

219:

220:

221:

222:

223:

224:

225:

226:

227:

228:

229:

230:

231:

232:

233:

234:

235:

236:

237:

238:

239:

240:

241:

242:

243:

244:

245:

246:

247:

{

Если логин с паролем не указывать (в конструкторе или после создания), то , при

необходимости будет выскакивать окно с запросом

}

unit UnitWinInet;

interface

uses

System.SysUtils, System.Types, WinInet, Winapi.Windows;

type

TWinInet = class

private

FHWND: THandle; // Хэндл вызывающего приложения

FClientName, // Имя клиента

FParam, // параметры запроса (которые после ?)

FMethod, // GET, POST и др.

FType_Access, // mime type и проч, если установлен в '', то используется по умолчанию

FLogin, // логин

FPass: string; // пароль

FPostData: boolean; //True - передача параметров запроса через post data, False - через строку запроса

procedure SetMethod(AMethod: string);

public

property HWND: THandle read FHWND write FHWND;

property ClientName: string read FClientName write FClientName;

property Param: string read FParam write FParam;

property Method: string read FMethod write SetMethod;

property Type_Access: string read FType_Access write FType_Access;

property Login: string read FLogin write FLogin;

property Pass: string read FPass write FPass;

property PostData: boolean read FPostData write FPostData;

function GetHTTP(AURL: string): AnsiString;

constructor Create(AHWND: THandle);

end;

implementation

constructor TWinInet.Create(AHWND: THandle);

begin

FHWND:= AHWND;

FClientName:= 'WinInet';

FMethod:= 'GET';

FType_Access:= 'Content-Type: application/x-www-form-urlenDELPHId' + #13#10 +

'Content-Length:' + IntToStr(length(FParam));

FPostData:= False;

end;

procedure TWinInet.SetMethod(AMethod: string);

begin

FMethod:= UpperCase(AMethod);

end;

function TWinInet.GetHTTP(AURL: string): AnsiString;

function GetHostName(AUrl: string): string;

var

s: string;

begin // Имя хоста

if Pos('https://', AUrl) > 0 then

s:= 'https://'

else

if Pos('http://', AUrl) > 0 then

s:= 'http://'

else

s:= EmptyStr;

if s <> EmptyStr then

if Pos(s, AUrl) > 0 then

Delete(AUrl, 1, Length(s));

if Pos('/', AUrl) > 0 then

SetLength(AUrl, Pos('/', AUrl) - 1);

Result:= AUrl;

end;

function GetScriptName(AUrl, AHostname: string): string;

begin // URL после имени хоста

Result:= EmptyStr;

Delete(AUrl, 1, Pos(AHostname, AUrl) + Length(AHostname));

Result:= AUrl;

end;

procedure SetFlags(AUrl: string; out Flags_connection, Flags_Request: Cardinal);

begin // Определяем https или http

if Pos('https', AUrl) > 0 then

begin

Flags_connection:= INTERNET_DEFAULT_HTTPS_PORT;

Flags_Request:= INTERNET_FLAG_RELOAD

or INTERNET_FLAG_NO_CACHE_WRITE

or INTERNET_FLAG_SECURE

or INTERNET_FLAG_IGNORE_CERT_CN_INVALID

or INTERNET_FLAG_IGNORE_CERT_DATE_INVALID

or INTERNET_FLAG_KEEP_CONNECTION

end else

begin

Flags_connection:= INTERNET_DEFAULT_HTTP_PORT;

Flags_Request:= INTERNET_FLAG_RELOAD

or INTERNET_FLAG_IGNORE_CERT_CN_INVALID

or INTERNET_FLAG_NO_CACHE_WRITE

or INTERNET_FLAG_PRAGMA_NOCACHE

or INTERNET_FLAG_KEEP_CONNECTION;

end;

function GetResponseHeader(const hRequest: Pointer): string;

var

dwSize, Index: DWORD;

szBuff: array [0..1024] of Char;

begin // Возвращает заголовок ответа сервера в виде строк с CR/LF

Index:= 0;

dwSize:= SizeOf(szBuff);

HttpQueryInfo(hRequest, HTTP_QUERY_RAW_HEADERS_CRLF, @szBuff, dwSize, Index);

Result:= PChar(@szBuff);

end;

function GetStatus(const hRequest: Pointer): DWORD;

var

dwSize, dwStatus, Index: DWORD;

begin // Возвращает заголовок ответа сервера в виде строк с CR/LF

// Возвращает код статуса HTTP из заголовка ответа

Index:= 0;

dwSize:= SizeOf(dwStatus);

HttpQueryInfo(hRequest, HTTP_QUERY_STATUS_CODE or HTTP_QUERY_FLAG_NUMBER, @dwStatus, dwSize, Index);

Result:= dwStatus;

end;

function AddSecurityFlags(httpReq: Pointer): Boolean;

var

dwSize, dwFlags: DWORD;

begin

Result:= False;

dwSize:= SizeOf(dwFlags); // Get the current security flags

if (InternetQueryOption(httpReq, INTERNET_OPTION_SECURITY_FLAGS, @dwFlags, dwSize)) then

begin // Add desired flags

dwFlags:= dwFlags

or SECURITY_FLAG_IGNORE_UNKNOWN_CA

or SECURITY_FLAG_IGNORE_CERT_CN_INVALID

or SECURITY_FLAG_IGNORE_CERT_DATE_INVALID

or SECURITY_FLAG_IGNORE_REVOCATION;

Result:= (InternetSetOption(httpReq,

INTERNET_OPTION_SECURITY_FLAGS,

@dwFlags,

dwSize));

end

end;

function SendRequest(httpRequest: Pointer; AType_Access, AParam: string): boolean;

begin

case FPostData of

False: Result:= HttpSendRequest(httpRequest, nil, 0, nil, 0);

True: Result:= HttpSendRequest(httpRequest, PChar(AType_Access), Length(AType_Access), PChar(AParam), Length(AParam));

end;

var

httpSession, httpConnect, httpRequest: HINTERNET;

bytes, b, pos: Cardinal;

hostname, script: string;

Flags_connection, Flags_Request: Cardinal;

DlgError: DWORD;

begin

Result:= EmptyAnsiStr;

hostname:= GetHostName(AURL); // имя хоста

script:= GetScriptName(AURL, hostname); // скрипт

// установка доп. параметров

if not FPostData then // если передаем параметры через строку запроса, то

if FParam <> EmptyStr then // дополняем скрипт

if script[Length(script)] = '?' then

script:= script + FParam

else

script:= script + '?' + FParam;

try

SetFlags(AURL, Flags_connection, Flags_Request); // Устанавливаем флаги (http или https)

// Открываем сессию (инициализируем WinInet)

httpSession:= InternetOpen(PChar(FClientName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);

if Assigned(httpSession) then // Проверяем хэндл

try // Открываем соединение

httpConnect:= InternetConnect(httpSession, PChar(hostname), Flags_connection, nil, nil, INTERNET_SERVICE_HTTP, 0, 0);

if Assigned(httpConnect) then // Проверяем хэндл

try // Открываем запрос (передаем остаток URL (скрипт GetScriptName) в ф-ю HttpOpenRequest под параметром lpszObjectName)

httpRequest:= HttpOpenRequest(httpConnect, PChar(FMethod), PChar(script), HTTP_VERSION, nil, nil, Flags_Request, 0);

if Assigned(httpRequest) then

try

AddSecurityFlags(httpRequest);

SendRequest(httpRequest, FType_Access, FParam); // Отправляем запрос

if GetStatus(httpRequest) = HTTP_STATUS_DENIED then

begin // Если необходима авторизация

if FLogin <> EmptyStr then

begin

InternetSetOption(httpRequest, INTERNET_OPTION_USERNAME, PChar(FLogin), SizeOf(FLogin));

InternetSetOption(httpRequest, INTERNET_OPTION_PASSWORD, PChar(FPass), SizeOf(FPass));

end

else

begin

DlgError:= InternetErrorDlg(FHWND, httpRequest,

ERROR_INTERNET_CLIENT_AUTH_CERT_NEEDED,

FLAGS_ERROR_UI_FILTER_FOR_ERRORS

or FLAGS_ERROR_UI_FLAGS_GENERATE_DATA

//or FLAGS_ERROR_UI_SERIALIZE_DIALOGS

or FLAGS_ERROR_UI_FLAGS_CHANGE_OPTIONS,

PPointer(nil)^ );

if DlgError = 0 then

begin

Result:= AnsiString('Доступ запрещен! Ввод учетных данных отменен.'

+ sLineBreak + SysErrorMessage(GetLastError));

Exit;

end;

SendRequest(httpRequest, FType_Access, FParam);

end;

if GetStatus(httpRequest) = HTTP_STATUS_OK then

begin

pos:= 1;

b:= 1;

while b > 0 do

begin // Если количество данных 0 - генерируем исключение

if not InternetQueryDataAvailable(httpRequest, bytes, 0, 0) then

Result:= AnsiString('Сервер не вернул данные! (функция InternetQueryDataAvailable)' + sLineBreak + SysErrorMessage(GetLastError));

SetLength(Result, Cardinal(Length(Result)) + bytes);

// Получаем данные с сервера

InternetReadFile(httpRequest, @Result[Pos], bytes, b);

Inc(Pos, b);

end;

Result:= Result + AnsiString(sLineBreak + SysErrorMessage(GetLastError));

end else

Result:= AnsiString('ОШИБКА ' + IntToStr(GetStatus(httpRequest)) + sLineBreak + SysErrorMessage(GetLastError));

finally

InternetCloseHandle(httpRequest); // закрываем запрос

end else

Result:= AnsiString('Ошибка формирования запроса (функция HttpOpenRequest)' + sLineBreak + SysErrorMessage(GetLastError));

finally

InternetCloseHandle(httpConnect); // закрываем соединение

end else

Result:= AnsiString('Ошибка открытия сессии (функция InternetConnect)' + sLineBreak + SysErrorMessage(GetLastError));

finally

InternetCloseHandle(httpSession); // закрываем сессию

end else

Result:= AnsiString('Отсутствует подключение к сети (функция InternetOpen)' + sLineBreak + SysErrorMessage(GetLastError));

except

On E: Exception do

Result:= AnsiString('Ошибка! ' + E.ClassName + ': ' + E.Message);

end;

end.

Использование:

код Pascal/Delphi

10:

11:

12:

13:

14:

15:

uses

..., UnitWinInet;

...

Client:= TWinInet.Create(FrmTesting.Handle);

with Client do

try

if FrmTesting.CheckBox1.Checked then

begin

Pass:= 'Password';

end;

FHTTPResult:= GetHTTP(FrmTesting.Edt1.Text);

finally

FreeAndNil(Client);

end;

--------------------

Кто ищет, тот всегда найдет.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »