دلفــي
یک شنبه 13 بهمن 1392, 13:57 عصر
من با استفاده از کد زیر می تونم به راحتی تنظیمات پراکسی رو در دلفی 7 انجام بدم و توسط WebBrowser از این تنظیمات استفاده کنم و لی همین کد در دلفی XE5 کار نمی کنه، دلیلش چی می تونه باشه ؟!
procedure proxy(text:string);
var PIInfo: PInternetProxyInfo; UserAgent:String;
begin
UserAgent:='MSIE';
New(PIInfo);
PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
PIInfo^.lpszProxy:=(PAnsiChar(text)); // مثلا text = 123.251.120.12:8080
PIInfo^.lpszProxyBypass := PAnsiChar('');
UrlMkSetSessionOption(INTERNET_OPTION_PROXY, PIInfo, SizeOf(Internet_Proxy_Info), 0);
Dispose(PIInfo);
end;
procedure proxy(text:string);
var PIInfo: PInternetProxyInfo; UserAgent:String;
begin
UserAgent:='MSIE';
New(PIInfo);
PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
PIInfo^.lpszProxy:=(PAnsiChar(text)); // مثلا text = 123.251.120.12:8080
PIInfo^.lpszProxyBypass := PAnsiChar('');
UrlMkSetSessionOption(INTERNET_OPTION_PROXY, PIInfo, SizeOf(Internet_Proxy_Info), 0);
Dispose(PIInfo);
end;