delphi设置代理服务器
㈠ 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代理服务器的例程
所谓代理服务器 就是代理网络用户去取得网络信息。形象的说,它是网络信息的中转站.