当前位置:首页 » 委托授权 » delphi设置代理服务器

delphi设置代理服务器

发布时间: 2021-07-14 15:23:29

㈠ DELPHI 的WEBBROWSER控件如何通过HTTP代理服务器取得网页

直接将本机的IE设置代理然后用Webbrowser访问网页就行了
Webbrowser使用的是IE内核,直接设置IE就行了

㈡ delphi 代理服务器 如何在HTML中加html代码

首先要问你是否已经有代理服务器代码了,如果没有,那就帮不了你了,先去网上找一个,这不是几十行能解决问题的。 如果已经有了,那就简单,
你要做的就是分析html格式

javascript代码不是随意能加的,一般是加入到 <body>后面,他每发一个包你就pos一下有没有<body>,有,就在后面插入内容,然后再返回给真正客户。

拼接过程很简单
procere DataRecvd(pData:array of char);
var
s:string;
i:integer;
begin
s := pData;
i := pos('<body>',s);
if i<>0 then
begin
s := (s,1,i+7)+'<javascript..>'+(s,i+8,length(s));
StrP(pData,s,length(s));
end;
end;

难的地方是加入规则比较复杂,html有很多语法,你要进行分析,不能随意乱加。另一个一个tcp包是有大小限制的,还要考虑组包后大小。我以前做过这种东西,就是电信用的把广告代码插入到用户的网页里面,不过我做的是linux下的C写的。

㈢ delphi 如何设置IE网页代理

通过修改注册表设置
注册表项:HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings

ProxyEnable设置为1
ProxyServer设置为IP:端口号,如果211.211.211.211:8080

关于注册表的操作自己查一下吧

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Registry, StdCtrls;

type
TForm1 = class(TForm)
btn1: TButton;
mmo1: TMemo;
lbl1: TLabel;
procere FormCreate(Sender: TObject);
procere btn1Click(Sender: TObject);
procere FormClose(Sender: TObject; var Action: TCloseAction);
private
reg:TRegistry;
nEnable:Integer;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procere TForm1.FormCreate(Sender: TObject);
begin
reg:=TRegistry.Create;
{
通过修改注册表设置
注册表项:HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings

ProxyEnable设置为1
ProxyServer设置为IP:端口号,如果211.211.211.211:8080

关于注册表的操作自己查一下吧
}
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings',True);
nEnable:=reg.ReadInteger('ProxyEnable');
if nEnable=1 then
btn1.Caption:='取消代理'
else
btn1.Caption:='设置代理';
end;

procere TForm1.btn1Click(Sender: TObject);
begin
if nEnable=1 then
begin
nEnable:=0;
reg.WriteInteger('ProxyEnable',0);
btn1.Caption:='设置代理';
end
else
begin
nEnable:=1;
reg.WriteInteger('ProxyEnable',1);
reg.WriteString('ProxyServer',mmo1.Text);
btn1.Caption:='取消代理';
end;
end;

procere TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
reg.Free;
end;

end.

㈣ Delphi idhttp 使用代理方法

用Try包起来

㈤ delphi 修改火狐浏览器代理的问题

您好,感谢您对火狐的支持

在工具---选项---网络中可以直接设置代理IP和端口,也可以使用扩展,如autoproxy等,或者VPN软件,都能实现代理上网。
您可以在火狐官方网站下载火狐浏览器,在火狐社区了解更多内容。希望我的回答对您有所帮助,如有疑问,欢迎继续在本平台咨询。

㈥ 利用delphi制作一个代理服务器软件

delphi 自带的Demo中就有哦

㈦ 求delphi 设置socks5代理访问网页的源码

增加一个TIdIOHandlerSocket组件和一个TIdSocksInfo组件

把原来的IdHTTP组件的IOHandler属性设置为新增加的TIdIOHandlerSocket组件

把新增加的TIdIOHandlerSocket组件的SocksInfo属性设置为新增加的TIdSocksInfo组件

然后在TIdSocksInfo组件中正确设置Socks5代理的参数

㈧ Delphi如何实现Http代理登陆的功能

用TIdTCPClient实现非常容易,直接用它的WriteLn函数发送字符串,接收就用ReadLn。
用TClientSocket实现,请先将它设置为阻塞模式,然后用SendText函数发送字符串时要自己在字符串结尾加上#13#10,接收就用ReceiveText。

㈨ idhttp1 在delphi7下如何设置代理IP和Port

var
s: string;
begin
with IdHTTP1.ProxyParams do
begin
ProxyServer := '192.168.0.139'; //代理地址
ProxyPort := 808; //代理端口
ProxyUsername := '';//你的用户名
ProxyPassword := '';//你的密码
end;
s :=IdHTTP1.Get('http://www.126.com');
ShowMessage(s);//验证成功,小心啊...呵呵
end;

㈩ 谁能给我一个用Delphi写SOCKS5代理服务器的例程

所谓代理服务器 就是代理网络用户去取得网络信息。形象的说,它是网络信息的中转站.

热点内容
重百超市供应商系统 发布:2021-11-27 07:59:12 浏览:259
成都瓦尔塔蓄电池经销商 发布:2021-11-27 07:59:09 浏览:828
宁波办公用品供应商 发布:2021-11-27 07:59:05 浏览:753
广州人人店经销商 发布:2021-11-27 07:59:03 浏览:49
旺旺上海经销商 发布:2021-11-27 07:58:59 浏览:362
三折门上海经销商 发布:2021-11-27 07:58:20 浏览:207
澳洲保健品代理商 发布:2021-11-27 07:58:17 浏览:728
木旯代理商 发布:2021-11-27 07:58:15 浏览:464
供应商开发年度总结 发布:2021-11-27 07:58:07 浏览:578
汤臣钙片代理人是谁 发布:2021-11-27 07:56:27 浏览:433